一个获得随机字符串的asp函数

response.write getCode(10)   '得到一个长度为10 的随机字符串


Function getCode(iCount)

     Dim arrChar

     Dim j,k,strCode

     arrChar = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

     k=Len(arrChar)

     Randomize

     For i=1 to iCount

          j=Int(k * Rnd )+1

          strCode = strCode & Mid(arrChar,j,1)

     Next

     getCode = strCode

End Function

本文地址：http://com.8s8s.com/it/it8079.htm