常州网络公司首页 >>> WEB编程 >> ASP

ASP随机产生一段字符串

发布时间:2010-3-18 16:00:52   浏览次数:6129

有时需要随机产生一串字符串出自动生成密码或作其他用途。
下面提供ASP随机字符串的函数:

Function getCode(iCount)'这里的iCount是需要产生多少位字符串
     Dim arrChar
     Dim j,k,strCode
     arrChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"'这里的字符就是在你产生字符串时,需要用哪些字符来生成
     k=Len(arrChar)
     Randomize
     For i=1 to iCount
          j=Int(k * Rnd )+1
          strCode = strCode & Mid(arrChar,j,1)
     Next
     getCode = strCode
End Function

上一条:Null
下一条:FLASH+ASP批量上传类 KzUpload Ver 2.0 源文件
首页 | 在线留言 | 网站地图

CopyRight ©2008-2014   糊涂蛋技术网    苏ICP备05013073号
站长:万创   QQ:54960248  E-mail:xlxcn#126.com