手机商城 网上购物 电子商务网上购物 手机销售终端

				
								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 "密码、确认密码不同返回"
						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()
				%>
				
								alert("修改成功！");
				this.document.location = "";
				-->