网络编程 
首页 > 网络编程 > 浏览文章

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

(编辑:jimmy 日期: 2024/10/9 浏览:3 次 )
<%
'******************************
'函数:Generator(Length)
'参数:Length,任意长度的数值,随机码位数
'作者:阿里西西
'日期: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通用分页样式函数代码