forgetpwd.asp

AspMaker调用的自定义包

<!--##session forgetpwd_script##-->
<%
<!--## If PROJ.OptionExplicit Then ##-->
Dim bValidEmail, sEmail, sPassword, sFilter
<!--## End If ##-->

If Request.Form("email") <> "" Then

	bValidEmail = False

	' Setup variables
	sEmail = Request.Form("email")

<!--##
Set TABLE = DB.Tables(PROJ.SecTbl)
Set FIELD = TABLE.Fields(PROJ.SecEmailFld)
##-->

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open xDb_Conn_Str

	sFilter = "<!--##=Quote(DB.DBQuoteS & PROJ.SecEmailFld & DB.DBQuoteE)##--> = <!--##=FIELD.FldQuoteS##-->" & AdjustSql(sEmail) & "<!--##=FIELD.FldQuoteE##-->"

	sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "")

	Set rs = conn.Execute(sSql)
	If Not rs.Eof Then
		sPassword = rs("<!--##=PROJ.SecPasswdFld##-->")
		bValidEmail = True
	End If

	rs.Close
	Set rs = Nothing
	conn.Close
	Set conn = Nothing

	If bValidEmail Then
		' Load Email Content
		Call LoadEmail("forgetpwd.txt")
		sEmailFrom = Replace(sEmailFrom, "<!--$From-->", "<!--##=PROJ.SecSenderEmail##-->") ' Replace Sender
		sEmailTo = Replace(sEmailTo, "<!--$To-->", sEmail) ' Replace Receiver
		sEmailContent = Replace(sEmailContent, "<!--$Password-->", sPassword) ' Replace Password

		' Send Email
		Call Send_Email(sEmailFrom, sEmailTo, sEmailCc, sEmailBcc, sEmailSubject, sEmailContent, sEmailFormat)
		Session(ewSessionMessage) = "<!--##@PwdEmailSent##-->"
		Response.Redirect "<!--##=fn_login##-->"
	End If

Else
	bValidEmail = True
End If
%>
<!--##/session##-->
<!--##session forgetpwd_htm##-->
<script type="text/javascript" src="ew.js"></script>
<script type="text/javascript">
<!-- start JavaScript
function  EW_checkMyForm(EW_this) {
if  (!EW_hasValue(EW_this.email, "TEXT" )) {
            if  (!EW_onError(EW_this, EW_this.email, "TEXT", "<!--##@EnterValidEmail##-->"))
                return false;
        }
if  (!EW_checkemail(EW_this.email.value)) {
            if  (!EW_onError(EW_this, EW_this.email, "TEXT", "<!--##@EnterValidEmail##-->"))
                return false;
        }
return true;
}
// end JavaScript -->
</script>

<p><span class="aspmaker">
<!--##@RequestPwdPage##--><br><br>
<a href="<!--##=fn_login##-->"><!--##@BackToLogin##--></a>
</span></p>

<% If Not bValidEmail Then %>
<p><span<!--##=ewCSSMsg##-->><!--##@InvalidEmail##--></span></p>
<% End If %>

<form action="<!--##=fn_forgetpwd##-->" method="post" onSubmit="return EW_checkMyForm(this);">
<table border="0" cellspacing="0" cellpadding="4">
	<tr>
		<td><span class="aspmaker"><!--##@UserEmail##--></span></td>
		<td><span class="aspmaker"><input type="text" name="email" value="<%= sEmail %>" size="<!--##=FIELD.FldTagSize##-->" maxlength="<!--##=FIELD.FldTagMaxLength##-->"></span></td>
	</tr>
	<tr>
		<td>&nbsp;</td>
		<td><span class="aspmaker"><input type="submit" name="submit" value="<!--##@SendPwd##-->"></span></td>
	</tr>
</table>
</form>
<br>

<!--##/session##-->