台灣最大程式設計社群網站
線上人數
862
 
會員總數:245619
討論主題:189317
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 亂數需包含英文字母及數字
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
亂數需包含英文字母及數字
價值 : 0 QP  點閱數:482 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
亂數產生8位數英文字母大小寫加數字

response.write GenPassword

Function GenPassword()

genPassword=""

Randomize

For j = 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

End Function
本篇文章發表於2002-06-11 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.