综合

img floy

一个生成随机密码的函数

发表于2004/10/22 11:37:00  863人阅读

分类: VB/asp/asp.net

tmp = "0123456789abcdefghijklmnopqrstopwxyz"
tmpPWD = RoundStr(tmp,8)

Function RoundStr(str,Num)
 s = ""
 for i = 1 to Num

                  Randomize

  strLen = Len(str)
  t = Round((RND * (strLen-1))+1)
  s = s & mid(str,t,1)
 Next
 RoundStr = s
End Function

阅读全文
0 0

相关文章推荐

img
取 消
img