asp 生成任意英文+数字位数长度的随机码函数

<% 
'****************************** 
'函数：Generator(Length) 
'参数：Length,任意长度的数值，随机码位数 
'作者：www.zzzyk.com 
'日期：2007/7/15 
'描述：生成任意英文+数字位数长度的随机码函数 
'示例：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 
%>

上一个：asp 取得中文句子头一个字的大写拼音字母的函数
下一个：ASP通用分页样式函数代码