usermodifysave.asp

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

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

IsModifyPwd  =  Request.Form("modifyPassword")
strAccount  =  RealString(Request.Form("userID"))
strPwd1  =  RealString(Request.Form("password1"))
strPwd2  =  RealString(Request.Form("password2"))


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 Admins WHERE Account = '"& strAccount & "'"
       cmdObj.CommandType  =  adCmdText
       Set cmdObj.ActiveConnection  =  conn
       rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic
       rsObj("Account")  =  strAccount   
       rsObj("name")  =  Request.Form("name")
	   if IsModifyPwd  =  1 then
			rsObj("Pwd")  = strPwd1
	   end if
       rsObj.Update
       rsObj.Close
	   
       set rsObj = nothing
       CloseConn()
%>
<script language = Javascript>
<!--
alert("修改成功！");
this.document.location = "<%=Session("adminOldUrl")%>";
-->
</script>