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 |
一个获得随机字符串的asp函数
最新推荐文章于 2022-01-17 17:00:34 发布