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)%>