📄 password.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim remindpass__MMColParam
remindpass__MMColParam = "1"
if (Request.QueryString("user") <> "") then remindpass__MMColParam = Request.QueryString("user")
%>
<%
set remindpass = Server.CreateObject("ADODB.Recordset")
remindpass.ActiveConnection = MM_conn_STRING
remindpass.Source = "SELECT * FROM user WHERE user = '" + Replace(remindpass__MMColParam, "'", "''") + "'"
remindpass.CursorType = 0
remindpass.CursorLocation = 2
remindpass.LockType = 3
remindpass.Open()
remindpass_numRows = 0
Dim var_done
var_done = "0"
If Not remindpass.EOF Or Not remindpass.BOF Then
If (Request.QueryString("answer") <> "") AND ( Request.QueryString("answer") = remindpass.Fields.Item("panswer").Value) Then
Set xpCDO = Server.CreateObject("CDONTS.NewMail")
xpCDO.From = "webmaster@bbsport.net"
xpCDO.To = remindpass.Fields.Item("email").Value
xpCDO.CC = "webmaster@bbsport.net"
xpCDO.Subject = "您在棒棒体育商城的注册信息"
xpCDO.Body = "您的用户名："&remindpass.Fields.Item("user").Value&"您的密码："&remindpass.Fields.Item("password").Value
xpCDO.Send()
Set xpCDO = Nothing
var_done = "1"
End If
End If
%>
<html>
<head>
<title>用户取回密码</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="ddd.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="2" leftmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top.asp" -->
<table width="771" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000" class="bk">
<tr>
<td bgcolor="#FFFFFF">
<p> <img src="images/password.gif" width="195" height="33"></p>
<form name="form1" method="get" action="password.asp">
<div align="center" class="productName">
<% If remindpass.EOF And remindpass.BOF Then %>
<%If (Request.QueryString("user") <> "") then %>
<p>该用户不存在，请再次输入！ </p>
<% End If %>
<% End If ' end remindpass.EOF And remindpass.BOF %>
<p>请输入你的用户名：
<input type="text" name="user" value="<% = Request.QueryString("user") %>">
</p>
<% If Not remindpass.EOF Or Not remindpass.BOF Then %>
<p>你的问题是：<%=(remindpass.Fields.Item("pquestion").Value)%></p>
<p>答案：
<input type="text" name="answer" value="<% = Request.QueryString("answer") %>">
</p>
<% If (Request.QueryString("answer") <> remindpass.Fields.Item("panswer").Value) AND (Request.QueryString("answer") <> "") Then %>
<p>错误的回答，请确认后再次回答</p>
<% End If %>
<% End If ' end Not remindpass.EOF Or NOT remindpass.BOF %>
<p>
<% If var_done <> "1" Then %>
<input type="submit" value="回答">
<input type="reset" value="清除" name="Reset">
<% End If %>
</p>
<% If var_done = "1" Then %>
<p>您的密码已经发送到您的电子信箱中，请查看信箱并重新登录</p>
<% End If %>
</div>
</form>
<p> </p>
</td>
</tr>
</table>
<br>
<!--#include file="bottom.asp" -->
</body>
</html>
<%
remindpass.Close()
set remindpass=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -