一个获得随机字符串的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