如何做一個隨機(jī)密碼產(chǎn)生器？
更新時間：2006年11月16日 00:00:00 作者：
<%
genPassword = ""
Randomize
For i = 1 to 8
intNum = Int(10 * Rnd + 48)
intUpper = Int(26 * Rnd + 65)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
Select Case intRand
Case 1
strPartPass = Chr(intNum)
Case 2
strPartPass = Chr(intUpper)
Case 3
strPartPass = Chr(intLower)
End Select
genPassword = genPassword & strPartPass
Next
response.write(genPassword & "<br>")
%>
' 顯示瀏覽器表頭信息和服務(wù)器變量
<%
For Each name In Request.ServerVariables
Response.write("<b>"&name&"</b>:<br>")
Response.write(Request.ServerVariables(name))
Next
%>
[1]
相關(guān)文章
禁止站外提交表單(author:killer)...2006-11-11
如何用組件實(shí)現(xiàn)自動發(fā)送電子郵件？
如何用組件實(shí)現(xiàn)自動發(fā)送電子郵件？...2006-11-11
如何獲知頁面上的圖象的實(shí)際尺寸？...2006-11-11
如何正確顯示數(shù)據(jù)庫里同時存在的GB碼和BIG5碼？
如何正確顯示數(shù)據(jù)庫里同時存在的GB碼和BIG5碼？...2006-11-11
如何阻止別人非法鏈接你網(wǎng)站的圖片？...2006-11-11
如何做一個檢索結(jié)果帶鏈接的檢索？...2006-11-11
如何驗(yàn)證日期輸入是否正確？...2006-11-11
如何根據(jù)用戶銀行帳戶余額的多少進(jìn)行顯式的提交或終止？
如何根據(jù)用戶銀行帳戶余額的多少進(jìn)行顯式的提交或終止？...2006-11-11
如何制作K線圖？...2006-11-11
CPU,GPU,DPU,TPU,NPU,BPU等處理器的性能及概念
CPU,GPU,DPU,TPU,NPU,BPU各種U還在傻傻分不清么？本文帶你領(lǐng)略這些不同的U所代表的意義，讓你有醍醐灌頂般的醒悟收獲，有需要的朋友可以借鑒參考2021-08-08