一個獲得隨機字符串的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