Asp生成随机字符串函数
作者:admin 日期:2007-10-25
Function getCode(iCount)
Dim arrChar
Dim j,k,strCode
arrChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
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
技术才是王道!
[本日志由 admin 于 2007-10-29 10:31 AM 编辑]
上一篇: 电子商务网站的建设和运用下一篇: dos下的爱情~
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp
相关日志:
评论: 0 | 引用: 0 | 查看次数: 3071
发表评论
广告位