如何編制一個產生隨機密碼的函數(shù)？
更新時間：2006年11月16日 00:00:00 作者：
<%
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
%>
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]
相關文章
如何更好地保護我的網(wǎng)頁？...2006-11-11
如何創(chuàng)建一個PDF文件？...2006-11-11
如何在ASP中恰當?shù)剡\用Cookies？...2006-11-11
網(wǎng)上考試設計思路是怎樣的？...2006-11-11
如何實現(xiàn)無組件上傳二進制文件？...2006-11-11
這篇文章主要為大家介紹了為什么數(shù)組下標是從0?開始而不是?1?呢的問題解析，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步，早日升職加薪2023-04-04
如何用下拉列表顯示數(shù)據(jù)庫里的內容？...2006-11-11
如何在讀取Excel文件時創(chuàng)建列表的下拉菜單？
如何在讀取Excel文件時創(chuàng)建列表的下拉菜單？...2006-11-11
這篇文章主要為大家介紹了web面試中面試官會經常問到的http緩存問題，本文來為大家極大為什么要有http緩存?http緩存之強制緩存，協(xié)商緩存中的資源標識等問題2021-09-09
在之前，信息量不像現(xiàn)在那么大的時候，我們通過一些分類網(wǎng)站去獲取我們想要的信息，隨著互聯(lián)網(wǎng)信息量越來越大，用戶大多時候并不清楚自己想要搜什么，這就需要推薦系統(tǒng)去給用戶推薦2021-08-08