pword.asp

本程序开发的是一个论坛系统

<!--#INCLUDE FILE="config.inc" -->
<!--#INCLUDE FILE="top.inc" -->
<%
if Request.QueryString("mode") = "doit" then

	Set smtp = Server.CreateObject("SmtpMail.SmtpMail.1")
	set my_conn= Server.CreateObject("ADODB.Connection")
	my_Conn.Open ConnString
	
	MailServer = "mail1.stoneplanet.com"
	Recipients = request.form("email")
	Sender = "[e-mail]"
	Subject = "ASP Forum Password"
	mssg = "You have received this mail because you have asked to be reminded of you password"
	mssg = mssg & "For the ASP Forum at http://www.asp-dev.ml.org" & vbCrLf & vbCrLf
	
	
	strSql = "Select M_name, M_Password, M_Email from members where M_Name = '"
	strSql = strSql & Request.Form("Name") & "' and M_Email ='"
	strSql = strSql & Request.Form("email") & "'"
	
	set rs = my_conn.Execute (StrSql)
	
	if rs.EOF or rs.BOF then
		mssg = mssg & "Sorry The details you passed were unknown." & vbCrLf & vbCrLf
		mssg = mssg & "Please register again at http://www.asp-dev.ml.org/forum/register.asp" & vbCrLf
	Else
		mssg = mssg & " Your Password id :- " & rs("M_Password") & vbCrLf
	End if
	
	mssg = mssg & "Thank you for using the ASP Forum"
	
	
	smtp.MailServer = MailServer
	smtp.Recipients = Recipients
	smtp.Sender = Sender
	smtp.Subject = Subject
	smtp.Message = mssg
	smtp.SendMail2
	Set smtp = Nothing
	on error resume next
	rs.close
	set rs=nothing
	my_conn.Close
	set my_conn = nothing
%>
<p align=center><font face="<% =DefaultFontFace %>" size=4>Password Reminder</p>
<p align=center><font face="<% =DefaultFontFace %>" size=2>You should receive an email any moment now!</p>

<%	
Else
%>

<p align=center><font face="<% =DefaultFontFace %>" size=4>Password Reminder</p>
<form action="pword.asp?mode=doit" method="post">
<div align="center">
<TABLE background="" bgColor=#b0c4de border=1 borderColor=#000000 cellPadding=0 
cellSpacing=0 width=70%>
<TBODY>
<TR>
<TD width=50%><FONT face="<% =DefaultFontFace %>" size=2>User Name </TD>
<TD width=50%><FONT face="<% =DefaultFontFace %>" size=3>
<INPUT name=Name size=30> </FONT></TD>
<TR>
<TD><FONT face="<% =DefaultFontFace %>" size=2>Email</TD>
<TD><FONT face="<% =DefaultFontFace %>" size=3>
<INPUT name=email size=30 type=password value=""></FONT></TD>
</TR>

<TD align=middle colSpan=2><INPUT name=submit1 type=submit value=Submit></TD></TR></TBODY></TABLE></FONT></TD></TR></TBODY></TABLE>
<P>