changepwd.asp

AspMaker调用的自定义包

<!--##session changepwd_script##-->
<!--##
Set TABLE = DB.Tables(PROJ.SecTbl)
Set FIELD = TABLE.Fields(PROJ.SecLoginIDFld)
sFldName = ewFieldName
sFldQuoteS = FIELD.FldQuoteS
sFldQuoteE = FIELD.FldQuoteE
##-->
<!--##~Security##-->
<%
<!--## If PROJ.OptionExplicit Then ##-->
Dim bValidPwd, bPwdUpdated, sUsername, sOPwd, sNPwd, sCPwd, sEmail, sFilter
<!--## End If ##-->

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

	bValidPwd = False
	bPwdUpdated = False

	' Setup variables
	sUsername = CurrentUserName
	sOPwd = Request.Form("opwd")
	sNPwd = Request.Form("npwd")
	sCPwd = Request.Form("cpwd")

	If sNPwd = sCPwd Then

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

		sFilter = "(<!--##=Quote(sFldName)##--> = <!--##=sFldQuoteS##-->" & AdjustSql(sUsername) & "<!--##=sFldQuoteE##-->)"

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

		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open sSql, conn, 1, 2
		If Not rs.Eof Then
			If sOPwd = rs("<!--##=PROJ.SecPasswdFld##-->") Then
				rs("<!--##=PROJ.SecPasswdFld##-->") = sNPwd ' Change Password
<!--## If PROJ.SecChangeEmail Then ##-->
				sEmail = rs("<!--##=PROJ.SecEmailFld##-->")
<!--## End If ##-->
				rs.Update
				bValidPwd = True
				bPwdUpdated = True
			End If
		End If

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

	End If

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

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

Else
	bValidPwd = True
End If
%>
<!--##/session##-->
<!--##session changepwd_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.opwd, "TEXT" )) {
            if  (!EW_onError(EW_this, EW_this.opwd, "TEXT", "<!--##@EnterPassword##-->"))
                return false;
        }
if  (!EW_hasValue(EW_this.npwd, "TEXT" )) {
            if  (!EW_onError(EW_this, EW_this.npwd, "TEXT", "<!--##@EnterPassword##-->"))
                return false;
        }
if  (EW_this.npwd.value != EW_this.cpwd.value) {
            if  (!EW_onError(EW_this, EW_this.cpwd, "TEXT", "<!--##@MismatchPassword##-->"))
                return false;
        }
return true;
}
// end JavaScript -->
</script>

<p><span class="aspmaker"><!--##@ChangePwdPage##--></span></p>

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

<form action="<!--##=fn_changepwd##-->" method="post" onSubmit="return EW_checkMyForm(this);">
<table border="0" cellspacing="0" cellpadding="4">
	<tr>
		<td><span class="aspmaker"><!--##@OldPassword##--></span></td>
		<td><span class="aspmaker"><input type="password" name="opwd" size="20"></span></td>
	</tr>
	<tr>
		<td><span class="aspmaker"><!--##@NewPassword##--></span></td>
		<td><span class="aspmaker"><input type="password" name="npwd" size="20"></span></td>
	</tr>
	<tr>
		<td><span class="aspmaker"><!--##@ConfirmPassword##--></span></td>
		<td><span class="aspmaker"><input type="password" name="cpwd" size="20"></span></td>
	</tr>
	<tr>
		<td>&nbsp;</td>
		<td><span class="aspmaker"><input type="submit" name="submit" value="<!--##@ChangePwdBtn##-->"></span></td>
	</tr>
</table>
</form>
<br>

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