asp 随机字符串和数字组合函数
'************************************* 
'asp随机数 
'************************************* 
Function randomStr(intLength) 
Dim strSeed, seedLength, pos, Str, i 
strSeed = "abcdefghijklmnopqrstuvwxyz1234567890" 
seedLength = Len(strSeed) 
Str = "" 
Randomize 
For i = 1 To intLength 
Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1) 
Next 
randomStr = Str 
End Function
调用：<%=randomStr(10)%>