asp 随机字符串函数

也想出现在这里？点击联系我~

1. '*************************************
2. 'asp计算随机数
3. '*************************************
5. FunctionrandomStr(intLength)
6. DimstrSeed,seedLength,pos,Str,i
7. strSeed="abcdefghijklmnopqrstuvwxyz1234567890"
8. seedLength=Len(strSeed)
9. Str=""
10. Randomize
11. Fori=1TointLength
12. Str=Str+Mid(strSeed,Int(seedLength*Rnd)+1,1)
13. Next
14. randomStr=Str
15. EndFunction