asp 随机字符串函数

1. '*************************************  
2. 'asp计算随机数  
3. '*************************************  
4.  
5. Function randomStr(intLength)  
6. Dim strSeed, seedLength, pos, Str, i  
7. strSeed = "abcdefghijklmnopqrstuvwxyz1234567890"  
8. seedLength = Len(strSeed)  
9. Str = ""  
10. Randomize  
11. For i = 1 To intLength  
12. Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1)  
13. Next  
14. randomStr = Str  
15. End Function