memmodifysave.asp

《实例精粹ASP》中部分源代码

<!-- #include file = "include/sysbase.asp" -->
<%
dim strSQL, cmdObj, rsObj
dim IsModifyPwd, strPwd1, strPwd2, nMemberId

IsModifyPwd  =  CInt(Request.Form("modifyPassword"))
strPwd1  =  RealString(Request.Form("password1"))
strPwd2  =  RealString(Request.Form("password2"))
nMemberId  =  RealString(Request.Form("memberID"))

if IsModifyPwd = 1 then
	if strPwd1 <> strPwd2 then
		Response.Write "密码、确认密码不同<br><a href = 'Javascript:window.history.go(-1)'>返回</a>"
		Response.End
	end if
end if
'	Response.Write IsModifyPwd
'	Response.End
       Set cmdObj  =  Server.CreateObject("ADODB.Command")
       Set rsObj  =  Server.CreateObject("ADODB.RecordSet")
       cmdObj.CommandText  =  "SELECT * FROM member WHERE MemberId = '" & nMemberId & "'"
       cmdObj.CommandType  =  adCmdText
       Set cmdObj.ActiveConnection  =  conn
       rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic
       rsObj("memberID")  = nMemberId	   
       rsObj("name")  = Request.Form("name")
       rsObj("sex")  = Request.Form("sex")
if IsModifyPwd = 1 then
       rsObj("Pwd")  =  strPwd1
end if
       rsObj("question")  =  Request.Form("question")
       rsObj("answer")  =  Request.Form("answer")
       rsObj("email")  =  Request.Form("email")
       rsObj("phone")  =  Request.Form("phone")
       rsObj("address")  =  Request.Form("address")
       rsObj("Zipcode")  =  Request.Form("Zipcode")
       rsObj.Update

       rsObj.Close
       set rsObj = nothing

       CloseConn()
%>
<script language = Javascript>
<!--
alert("修改成功！");
this.document.location = "<%=Session("adminOldUrl")%>";
-->
</script>