一个生成随机密码的函数 - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- 一个生成随机密码的函数 (http://www.webasp.net/article/15/14164.htm) |
| -- 作者：未知 -- 发布日期： 2004-10-25 |
| 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 |
| webasp.net |