当前位置: 王朝网络 >> asp >> 一个生成随机密码的函数

一个生成随机密码的函数

王朝asp·作者佚名 2006-01-09

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)

RoundStr = s

End Function

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。