📄 reminder.asp

📁 简介：一个程序小巧而功能强大
💻 ASP
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="Includes/site-dataconn.asp" -->
<!--#include file="Includes/func-common.asp" -->
<!--#include file="Includes/site-config.asp" -->
<!--#include file="Includes/inc-common.asp" -->
<%
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<html>

<head>
<title>// <%=Site_Name%> //</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL=stylesheet TYPE="text/css" HREF="Includes/site-style.css">
</head>

<body>
<!--#include file="Includes/inc-header.asp" -->
<%
Action = request.querystring("Action")

if Action <> "Reminder" and Action <> "Lookup" then
	Action = "Reminder"
end if
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" class="main">
	<tr valign="middle" class="title">
	<td align="center"><%=Site_Name%> // Login</td>
	</tr>
	<form action="reminder.asp?Action=Lookup" method="post" onSubmit="this.button.disabled = true;">
	<tr class="body">
	<td align="center">
	<%
	if Action = "Lookup" then
		'Look up user and send e-mail if found
		set rsPassword = server.createobject("adodb.recordset")
		sqlPassword = "SELECT User_Name, User_Password, User_Email, User_Last_Reminder FROM Forum_Users WHERE User_Name = '"& clean_text(request.form("Name"), 0) &"'"
		rsPassword.cursortype = 2
		rsPassword.locktype = 3
		rsPassword.open sqlPassword, adoConn, CMDtext
		if rsPassword.eof or rsPassword.bof then
			rsPassword.close
			set rsPassword = nothing
			strMessage = "Unfortunately we have no record of a user by that name. Please check your spelling and <a href='reminder.asp'>try again</a>."
		else
			if rsPassword("User_Last_Reminder") < search_time(-60)  then
				strUser = rsPassword("User_Name")
				strPassword = rsPassword("User_Password")
				strEmail = rsPassword("User_Email")
				rsPassword("User_Last_Reminder") = db_time()
				rsPassword.update
				rsPassword.close
				set rsPassword = nothing
				
				'Construct E-Mail
				emailTo = strEmail
				emailFrom = Site_Name & " Accounts" & "<" & Site_Email_Address & ">"
				emailSubject = Site_Name & " Password Reminder"
				emailBody = "Hello <b>" & strUser & "</b><br><br>You have received this e-mail from "& Site_Name &" as you completed the first part of the sites password retrieval process.<br><br>Your "& Site_Name &" password is <b>"& strPassword &"</b>. If you didn't not request a password reminder you may disgard this e-mail and no further action is necassary.<br><br>" & Site_Email_Signature
				'Send Email using e-mail include
				%>
				<!--#include file="Includes/inc-email.asp" -->
				<%
				strMessage = "Your password has been sent to your registered e-mail address. Click <a href='default.asp'>here</a> to return to "& Site_Name &"."
			else
				strMessage = "You have already recently requested a password reminder you must an hour between requests. Click <a href='default.asp'>here</a> to return to "& Site_Name
			end if
		end if
		response.write(strMessage)
	end if
	
	if Action = "Reminder" then
		'Present the user with password request form
		%>
		请输你的用户名，之后你就可以到你的E-mail取到密码.<br>
		<input name="Name" type="text" style="height: 22px;border: 1px solid black;"><br><br><input name="button" type="submit" value="完成" align="bottom" style="height: 25px;">
		<%
	end if 
	%>
	</td>
	</tr>
	</form>
</table>

<!--#include file="Includes/inc-footer.asp" -->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -