您的位置:首页 > 编程语言 > ASP

一个获得随机字符串的asp函数

2005-10-26 23:29 246 查看
response.write getCode(10) '得到一个长度为10 的随机字符串

Function getCode(iCount)

Dim arrChar

Dim j,k,strCode

arrChar = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐