系统分配随机密码
摘要：复制代码代码如下:
复制代码 代码如下:
<%
'系统分配随机密码
FunctionCreatepass()
DimRan,i,LengthNum
LengthNum=6
Createpass=""
Fori=1ToLengthNum
Randomize
Ran=CInt(Rnd*2)
Randomize
IfRan=0Then
Ran=CInt(Rnd*25)+97
Createpass=Createpass&UCase(Chr(Ran))
ElseIfRan=1Then
Ran=CInt(Rnd*9)
Createpass=Createpass&Ran
ElseIfRan=2Then
Ran=CInt(Rnd*25)+97
Createpass=Createpass&Chr(Ran)
EndIf
Next
EndFunction
response.writecreatepass()
%>
【系统分配随机密码】相关文章：
★ 虚拟主机重启代码
★ ASP经典分页类
★ 总是弹出visual studio 实时调试器 三种解决办法
上一篇：
获取字符中中文首字字符
下一篇：
管理员登录