系統(tǒng)分配隨機(jī)密碼
更新時(shí)間：2006年10月31日 00:00:00 作者：
復(fù)制代碼 代碼如下:
<%
'系統(tǒng)分配隨機(jī)密碼
Function Createpass()
Dim Ran, i, LengthNum
LengthNum = 6
Createpass = ""
For i = 1 To LengthNum
Randomize
Ran = CInt(Rnd * 2)
Randomize
If Ran = 0 Then
Ran = CInt(Rnd * 25) + 97
Createpass = Createpass & UCase(Chr(Ran))
ElseIf Ran = 1 Then
Ran = CInt(Rnd * 9)
Createpass = Createpass & Ran
ElseIf Ran = 2 Then
Ran = CInt(Rnd * 25) + 97
Createpass = Createpass & Chr(Ran)
End If
Next
End Function
response.write createpass()
%>
相關(guān)文章
asp WAP獲取手機(jī)終端信息的一段代碼...2007-11-11
asp下比較全面的獲取IP地址的代碼...2007-08-08
asp調(diào)用Word打印的代碼...2007-04-04
web文件管理器的后續(xù)開發(fā)...2007-03-03
利用Adodb.Stream制作彩色驗(yàn)證碼...2006-08-08
ASP讀取Request.QueryString編碼的函數(shù)代碼
ASP讀取Request.QueryString編碼的函數(shù)代碼，學(xué)習(xí)asp的朋友可以參考下。2011-09-09
網(wǎng)上用的比較多的asp級(jí)聯(lián)菜單效果代碼
ASP連動(dòng)下拉列表從數(shù)據(jù)庫(kù)讀取2008-04-04
完美解決PJ的Cookies保存時(shí)限問題!可選擇記錄登陸時(shí)長(zhǎng)!
完美解決PJ的Cookies保存時(shí)限問題!可選擇記錄登陸時(shí)長(zhǎng)!...2007-02-02
ASP JSON類源碼分享，需要的朋友可以參考下。2011-06-06
asp下對(duì)POST提交數(shù)據(jù)限制的解決方法
由于微軟對(duì)POST提交數(shù)據(jù)的大小進(jìn)行了限制，當(dāng)表單發(fā)送的數(shù)據(jù)量很大時(shí)，就會(huì)報(bào)錯(cuò)(錯(cuò)誤 "ASP 0107 : 80004005")。原因是微軟對(duì)用Request.Form()可接收的最大數(shù)據(jù)限制為100K字節(jié)。2008-06-06