如何做一个密码“生成器”？_编程10000问

randompassword.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword

genPassword = \"\"

Randomize

' 用Randomize生成随机种子.

For i = 1 to 7

' 循环7次，即创建7位随机密码.

intNum = Int(10 * Rnd + 48)

' 0-9的ASCII码范围是48-57.

intUpper = Int(26 * Rnd + 65)

' A-Z的ASCII码范围是65-90.

intLower = Int(26 * Rnd + 97)

' a-z的ASCII码范围是97-123.

intRand = Int(3 * Rnd + 1)

' 对Int(3 * Rnd + 1)取整得到intRand,会有3种结果,用select case判断当前的intRand值是1,2还是3.如果是1显示数字,是2显示大写字符,是3则显示小写字符.

Select Case intRand

Case 1

strPartPass = Chr(intNum)

' 用Chr方法换算到对应的ASCII值.

Case 2

strPartPass = Chr(intUpper)

Case 3

strPartPass = Chr(intLower)

End Select

genPassword = genPassword & strPartPass

randomPassword = genPassword

' 将创建的密码保存在变量randomPassword中.

<%=\"请保存好，您的密码是：\" & randomPassword%>

[1]

时间： 2024-08-24 03:25:38

如何做一个密码“生成器”？_编程10000问的相关文章

如何取回已忘记的密码？_编程10000问

forget.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 申请. <html> <head> <title>闪亮日子之用户密码核实</title> </head> <div align="center"><center> <table border

如何让用户也能修改密码？_编程10000问

<% id = Request("id") newpassword = Request("password") newpasswordtemp = Request("passwordtemp") If newpassword <> newpasswordtemp Then Response.Write "<center>对不起,密码未能确认,请重新输入!</center>" Respo

Write(StrING) WriteLine(StrING) WriteBlankLines(LINES) <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> 〈html〉〈head〉〈http-equiv="Content-Type" content="text/html; charset=gb2312"〉〈title〉

如何通过表单创建一个Word？_编程10000问

docform.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <form action="doccreate.asp">姓名: <input type="text" name="Name" size="50" maxlength="100">

如何做一个检索结果带链接的检索？_编程10000问

如何做一个检索结果带链接的检索?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <% data=request.form("search_data") ' 从FORM变量集得到要查询的文件名称所要包含的字符串 p=search_folder(data,"http://jack/cgi-bin","c:\intels

如何制作一个防止多次刷新计数的图片计数器？_编程10000问

请问如何做一个专业的图片计数器? <% countlong=8 ' 定义计数器位数. On Error Resume Next ' 忽略所有的错误. count=server.mappath(count.txt) set cou = server.createobject(scripting.filesystemobject) set out=cou.opentextfile(count,1,false,false) counter=out.readline out.close

如何做一个计数器并让人家申请使用？_编程10000问

第一步,创建一个计数器(最简单的数字计数器,不是图片式的): <% @language="vbscript" %> <% set fsFilesys=CreateObject("Scripting.FileSystemObject") set myText=fsFilesys.OpenTextFile(Server.MapPath("/count")&"\count.txt")count=myTe

如何做一个文本搜索？_编程10000问

<%head = "搜索"SearchString = Request("SearchString")count=0 Function UnMapPath( Path ) UnMapPath = Replace(Mid(Path, Len(Server.MapPath("/")) + 1), "\", "/")<?xml:namespace prefix = o ns = "ur

如何用FileSystemObject组件来做一个站内搜索？_编程10000问

searchpage.htm' 搜索页面. <html><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <head> <title>千花飞舞之站内搜索引擎</title> </head> <body> <CENTER> <