国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

產(chǎn)生隨機(jī)密碼的函數(shù)

2019-11-18 21:13:54
字體：大 中 小
供稿：網(wǎng)友
<%
response.write makePassWord(16)

function makePassword(byVal maxLen)

Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize

For intCounter = 1 To maxLen
    whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'character
        upper = 90
        lower = 65
Else
        upper = 57
        lower = 48
End If
        strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
        makePassword = strNewPass

end function
%>   

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 临洮县| 迭部县| 鄂伦春自治旗| 彭水| 屯留县| 炉霍县| 闸北区| 饶河县| 邛崃市| 津南区| 沭阳县| 兖州市| 申扎县| 大埔县| 蒙阴县| 保亭| 柘城县| 潢川县| 弥勒县| 华安县| 高陵县| 杂多县| 蕉岭县| 临洮县| 比如县| 红河县| 昌图县| 灵石县| 乌恰县| 稷山县| 耿马| 改则县| 义乌市| 漳州市| 汉中市| 三河市| 商河县| 元氏县| 旅游| 高安市| 高州市|