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

首頁 > 學院 > 編程設計 > 正文

如何編制一個產生隨機密碼的函數？

2020-06-19 13:50:27
字體：大 中 小
來源：轉載
供稿：網友
<%
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
        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
%>

[1]

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 荃湾区| 吉木萨尔县| 田林县| 台东市| 东明县| 慈溪市| 闽清县| 海伦市| 鱼台县| 榆树市| 阳江市| 富裕县| 孙吴县| 农安县| 民乐县| 桂林市| 综艺| 佛冈县| 鲁甸县| 芦溪县| 荃湾区| 三台县| 中西区| 玉山县| 平原县| 朔州市| 奉节县| 海宁市| 积石山| 喀什市| 阿图什市| 宾川县| 横峰县| 长白| 科尔| 和林格尔县| 澎湖县| 乌恰县| 封开县| 白水县| 玉溪市|