ASP
本类阅读TOP10
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站
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 = sEnd Function
相关软件: