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