给你一个随机生成的函数
<%
tmp = "0123456789ascdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Temp4 = RoundStr(tmp,16) //自己定义位数
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
%>