ASP生成隨機(jī)字符串(數(shù)字+大小寫字母)的代碼
更新時(shí)間:2007年10月15日 23:11:10 作者:
<%
'ASP生成隨機(jī)字符串(數(shù)字+大小寫字母)練習(xí)
'阿會(huì)楠練習(xí),為我所用,非我所想
Function randKey(obj)
Dim char_array(80)
Dim temp
For i = 0 To 9
char_array(i) = Cstr(i)
Next
For i = 10 To 35
char_array(i) = Chr(i + 55)
Next
For i = 36 To 61
char_array(i) = Chr(i + 61)
Next
Randomize
For i = 1 To obj
'rnd函數(shù)返回的隨機(jī)數(shù)在0~1之間,可等于0,但不等于1
'公式:int((上限-下限+1)*Rnd+下限)可取得從下限到上限之間的數(shù),可等于下限但不可等于上限
temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0)
Next
randKey = temp
End Function
Response.Write(randKey(6))
%>
'ASP生成隨機(jī)字符串(數(shù)字+大小寫字母)練習(xí)
'阿會(huì)楠練習(xí),為我所用,非我所想
Function randKey(obj)
Dim char_array(80)
Dim temp
For i = 0 To 9
char_array(i) = Cstr(i)
Next
For i = 10 To 35
char_array(i) = Chr(i + 55)
Next
For i = 36 To 61
char_array(i) = Chr(i + 61)
Next
Randomize
For i = 1 To obj
'rnd函數(shù)返回的隨機(jī)數(shù)在0~1之間,可等于0,但不等于1
'公式:int((上限-下限+1)*Rnd+下限)可取得從下限到上限之間的數(shù),可等于下限但不可等于上限
temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0)
Next
randKey = temp
End Function
Response.Write(randKey(6))
%>
相關(guān)文章
ASP是使用正則提取內(nèi)容里所有圖片路徑SRC的實(shí)現(xiàn)代碼
有時(shí)候客戶提交的內(nèi)容里包含多個(gè)圖片,客戶想單獨(dú)把圖片路徑提取出來(lái)進(jìn)行保存,下面腳本之家小編跟大家分享ASP正則提取內(nèi)容里所有圖片路徑SRC的方法函數(shù),需要的朋友可以參考下2019-09-09把字符串轉(zhuǎn)換成數(shù)據(jù)庫(kù)SQL語(yǔ)句格式
把字符串轉(zhuǎn)換成數(shù)據(jù)庫(kù)SQL語(yǔ)句格式...2006-10-10asp實(shí)現(xiàn)限制一個(gè)ip只能訪問(wèn)一次的方法
這篇文章主要介紹了asp實(shí)現(xiàn)限制一個(gè)ip只能訪問(wèn)一次的方法,感興趣的小伙伴們可以參考一下2015-10-10asp中通過(guò)fso讀取和生成UTF-8編碼的txt
利用fso.OpenTextFil讀取UTF-8文件或者用FSO.save生成UTF-8文件時(shí)亂碼解決辦法生成靜態(tài)頁(yè)使用的方法是讀取asp頁(yè)面的html代碼,保存為html文件,這種方法2013-08-08Webform 內(nèi)置對(duì)象 Session對(duì)象、Application全局對(duì)象,ViewState詳細(xì)介紹
這篇文章主要介紹了Webform 內(nèi)置對(duì)象 Session對(duì)象、Application全局對(duì)象,ViewState的相關(guān)資料,需要的朋友可以參考下2016-09-09TSYS中生成靜態(tài)頁(yè)時(shí)溢出: ''CInt''
TSYS中生成靜態(tài)頁(yè)時(shí)溢出: ''CInt''...2007-01-01