求随机生成12位字母数字混合出现代码？

来源：百度知道 编辑：UC知道 时间：2024/05/18 00:07:27
Chr (Int((90 - 65 + 1) * Rnd + 65))

<%
Function GetStr(n) '自定义函数
Dim Str,temp
Str="abcdefghijklmnopqrstuvwxyz0123456789" 取值范围，你甚至可以加入大写字母或中文
Randomize
For i=0 To n-1
Temp=Int(Rnd *36) '36表示上面str的字符个数
If Temp=0 Then Temp=1
GetStr=GetStr&Mid(Str,Temp,1)
Next
End Function
Response.Write GetStr(12) '你可以取任意长度的值。
%>