ASP随机生成字符串函数

<%
Function getCode(iCount)

Dim arrChar

Dim j,k,strCode

arrChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

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
response.write getcode(2)
%>