asp生成随机字符串(大写)

function makeId(byVal maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makeId = strNewPass
end function

调用方法：<%=makeId(12)%>

引用地址:

发表评论
post by 不懂戀愛魚兒 | 2011年12月11日 | 归档于 [Asp技术]
标签: asp 随机 字符串

发表评论

sitemap ƽ̨