国产探花免费观看_亚洲丰满少妇自慰呻吟_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]

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 黎平县| 乐东| 韶关市| 博乐市| 秭归县| 石林| 博湖县| 湖南省| 新蔡县| 诸暨市| 罗源县| 辽宁省| 阜康市| 蚌埠市| 富裕县| 麻城市| 尉犁县| 西吉县| 康保县| 兴和县| 安泽县| 沧源| 抚州市| 伊川县| 休宁县| 景东| 河津市| 新绛县| 赣榆县| 灌阳县| 宽甸| 锦屏县| 诸暨市| 方正县| 漯河市| 沛县| 德令哈市| 南投县| 广水市| 双柏县| 启东市|