Asp中随机产生用户密码的代码(2)

日期：2020-05-13 栏目：程序人生 浏览：次

　　　　GeneratePassword = Left(GeneratePassword, nLength)  
　　End If  
End Function  
%>  
　　然后在你的目标程序中这样调用上面的代码，就可以实现密码的自动生成：(仅仅是一个例子，你可以把他们粘贴到一个Test.asp的文件中，然后运行Test.asp) 
复制代码 代码如下:

<!--include file="random.asp" -->  
<%  
'产生一个六位的密码  
StrRandomize CStr(Now) & CStr(Rnd)  
response.write GeneratePassword(6)  
%>  
<br><br>  
<%  
'产生一个8位的密码  
StrRandomize CStr(Now) & CStr(Rnd)  
response.write GeneratePassword(8)  
%>  
<br><br>  
<%  
'产生一个10位的密码  
StrRandomize CStr(Now) & CStr(Rnd)  
response.write GeneratePassword(10)  
%>  
<br><br>  
<%  
'产生1000个密码  
dim t, t2  
　　for t = 1 to 500  
　　For t2 = 1 to 661  
　　StrRandomize CStr(Now) & CStr(Rnd)  
　　next  
　　StrRandomize CStr(Now) & CStr(Rnd)  
　　response.write GeneratePassword(6)  
　　response.write "<br>"  
next  
%>