随机产生用户密码-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

随机产生用户密码
说明：通过随机产生密码，然后将密码EMail给注册用户，你可以确认用户的EMail填写是否准确。自动产生的密码往往安全性更高，同时，你可以过滤那些无效的用户。

　　把下面的代码保存为random.asp文件：

<%
Sub StrRandomize(strSeed)
　　Dim i, nSeed
　　nSeed = CLng(0)
　　For i = 1 To Len(strSeed)
　　　　nSeed = nSeed Xor ((256 * ((i - 1) Mod 4) * AscB(Mid(strSeed, i, 1))))
　　Next

　　Randomize nSeed
End Sub

Function GeneratePassword(nLength)
　　Dim i, bMadeConsonant, c, nRnd

　　Const strDoubleConsonants = "bdfglmnpst"
　　Const strConsonants = "bcdfghklmnpqrstv"
　　Const strVocal = "aeiou"

　　GeneratePassword = ""
　　bMadeConsonant = False

　　For i = 0 To nLength
　　　　nRnd = Rnd
　　　　If GeneratePassword <> "" AND (bMadeConsonant <> True) AND (nRnd < 0.15) Then
　　　　　　c = Mid(strDoubleConsonants, Int(Len(strDoubleConsonants) * Rnd + 1), 1)
　　　　　　c = c & c
　　i = i + 1
　　　　　　bMadeConsonant = True
　　　　Else
　　　　　　If (bMadeConsonant <> True) And (nRnd < 0.95) Then
　　　　　　　　c = Mid(strConsonants, Int(Len(strConsonants) * Rnd + 1), 1)
　　　　　　　　bMadeConsonant = True
　　　　　　Else
　　　　　　　　c = Mid(strVocal,Int(Len(strVocal) * Rnd + 1), 1)
　　　　　　　　bMadeConsonant = False
　　　　　　End If
　　　　End If
　　　　GeneratePassword = GeneratePassword & c
　　Next

　　If Len(GeneratePassword) > nLength Then
　　　　GeneratePassword = Left(GeneratePassword, nLength)
　　End If
End Function
%>

　　然后在你的目标程序中这样调用上面的代码，就可以实现密码的自动生成：(仅仅是一个例子，你可以把他们粘贴到一个Test.asp的文件中，然后运行Test.asp)



<%
\\\'产生一个六位的密码

StrRandomize CStr(Now) & CStr(Rnd)
response.write GeneratePassword(6)

%>

<%

\\\'产生一个8位的密码
StrRandomize CStr(Now) & CStr(Rnd)
response.write GeneratePassword(8)

%>

<%
\\\'产生一个10位的密码
StrRandomize CStr(Now) & CStr(Rnd)
response.write GeneratePassword(10)
%>

<%

\\\'产生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 "
"
next
%>

返回类别: 教程
上一教程: ASP进阶教程Ⅹ：留言簿自动发E-MAIL
下一教程: VBS、ASP代码语法加亮显示的类(1)

您可以阅读与"随机产生用户密码"相关的教程:
· 用ASP程序随机产生用户密码
· 随机产生N位由数字和字母组成的密码
· 产生密码，记录到数据库，然后发送给用户
· 在线修改SERV-U 4.2用户密码
· 产生密码，记录到数据库，然后发送给用户。


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接