asp 生成任意英文+數(shù)字位數(shù)長(zhǎng)度的隨機(jī)碼函數(shù)
更新時(shí)間：2007年08月08日 12:10:46 作者：
<%
'******************************
'函數(shù)：Generator(Length)
'參數(shù)：Length,任意長(zhǎng)度的數(shù)值，隨機(jī)碼位數(shù)
'作者：阿里西西
'日期：2007/7/15
'描述：生成任意英文+數(shù)字位數(shù)長(zhǎng)度的隨機(jī)碼函數(shù)
'示例：Generator(80)
'******************************
Function Generator(Length)
Dim i, tempS
tempS = "abcdefghijklmnopqrstuvwxyz1234567890"
Generator = ""
If isNumeric(Length) = False Then
Exit Function
End If
For i = 1 to Length
Randomize
Generator = Generator & Mid(tempS,Int((Len(tempS) * Rnd) + 1),1)
Next
End Function
%>
'******************************
'函數(shù)：Generator(Length)
'參數(shù)：Length,任意長(zhǎng)度的數(shù)值，隨機(jī)碼位數(shù)
'作者：阿里西西
'日期：2007/7/15
'描述：生成任意英文+數(shù)字位數(shù)長(zhǎng)度的隨機(jī)碼函數(shù)
'示例：Generator(80)
'******************************
Function Generator(Length)
Dim i, tempS
tempS = "abcdefghijklmnopqrstuvwxyz1234567890"
Generator = ""
If isNumeric(Length) = False Then
Exit Function
End If
For i = 1 to Length
Randomize
Generator = Generator & Mid(tempS,Int((Len(tempS) * Rnd) + 1),1)
Next
End Function
%>
相關(guān)文章
ASP獲取數(shù)據(jù)庫(kù)表名、庫(kù)名、字段名的方法
這篇文章主要介紹了ASP獲取數(shù)據(jù)庫(kù)表名、庫(kù)名、字段名的方法,本文例子使用的是SqlServer數(shù)據(jù)庫(kù),需要的朋友可以參考下2014-07-07
ASP開發(fā)中可能有時(shí)候會(huì)用大段的if... else 的判斷，不過如果是動(dòng)態(tài)Response.write的內(nèi)容，你想更方便閱讀代碼，可以用Response.End()來終端ASP的執(zhí)行，也就類似于Break的用法2014-10-10
用ASP寫組件...2006-08-08
asp下用實(shí)現(xiàn)模板加載的的幾種方法總結(jié)
asp下html模板的加載方法，一般有以下幾種，大家可以根據(jù)情況自己決定，結(jié)果都是一樣的，都是好方法2008-01-01
asp下實(shí)現(xiàn)記錄集內(nèi)隨機(jī)取記錄的代碼
asp下實(shí)現(xiàn)記錄集內(nèi)隨機(jī)取記錄的代碼...2007-11-11
用asp實(shí)現(xiàn)檢測(cè)文件編碼...2007-01-01
asp中將有雙引號(hào)標(biāo)題入庫(kù)的方法
asp中將有雙引號(hào)標(biāo)題入庫(kù)的方法，需要的朋友可以參考下2012-10-10
ASP下的簡(jiǎn)潔的多重查詢的方法與函數(shù) 真不錯(cuò)
ASP下的簡(jiǎn)潔的多重查詢的方法與函數(shù) 真不錯(cuò)...2007-10-10
大寫數(shù)字驗(yàn)證碼的實(shí)現(xiàn)方法2008-11-11
這篇文章主要介紹了Asp如何解析XML并分頁(yè)顯示，附截圖，需要的朋友可以參考下2014-05-05