saveuserinfo.asp

BJXSHOP购物管理系统是一个功能完善、展示信息丰富的电子商店销售平台；针对企业与个人的网上销售系统；开放式远程商店管理；完善的订单管理、销售统计、结算系统；强力搜索引擎支持；提供网上多种在线支付方

<!--#include file="connection.asp"-->
<!--#include file="admin/md5.asp"-->
<%dim action,username
action=request.QueryString("action")
username=request.Cookies("bookshop")("username")
function HTMLEncode(fString)

	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")

	fString = Replace(fString, CHR(13), "")
	HTMLEncode = fString
end function
select case action
'//收货人信息
case "shouhuoxx"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [shop_users] where username='"&username&"' ",conn,1,3
rs("shouname")=HTMLEncode(replace(trim(request("shouname")),"'",""))
rs("shengshi")=HTMLEncode(replace(trim(request("shengshi")),"'",""))
rs("shouhuodizhi")=HTMLEncode(replace(trim(request("shouhuodizhi")),"'",""))
rs("youbian")=cstr(request("youbian"))
rs("usertel")=HTMLEncode(replace(trim(request("usertel")),"'",""))
rs("songhuofangshi")=int(request("songhuofangshi"))
rs("zhifufangshi")=int(request("zhifufangshi"))
rs("shousex")=int(request("shousex"))
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('您的收货信息保存成功！');window.location.reload('myuser1.asp')</script>"
response.End
'//用户资料
case "userziliao"
set rs=server.CreateObject("adodb.recordset")
rs.open "select useremail,userzhenshiname,quesion,answer,grtt,companyname,zhuzhaitel,yidongtel from [shop_users] where username='"&username&"'",conn,1,3
rs("useremail")=trim(request("useremail"))
rs("userzhenshiname")=htmlencode(replace(trim(request("userzhenshiname")),"'",""))
rs("zhuzhaitel")=trim(request("zhuzhaitel"))
rs("yidongtel")=trim(request("yidongtel"))
rs("quesion")=trim(request("quesion"))
if trim(request("answer"))<>""then rs("answer")=md5(trim(request("answer")))
if int(rs("grtt"))=1 then rs("companyname")=htmlencode(replace(trim(request("companyname")),"'",""))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('您的资料修改成功！');window.location.reload('myuser1.asp')</script>"
case "savepass"
set rs=server.CreateObject("adodb.recordset")
rs.open "select userpassword from [shop_users] where username='"&username&"'",conn,1,3
if md5(trim(request("userpassword")))<>trim(rs("userpassword")) then
response.Write "<script language=javascript>alert('对不起，您输入的原密码错误！');window.location.reload('javascript:history.go(-1)')</script>"
response.End
else
rs("userpassword")=md5(trim(request("userpassword1")))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('密码更改成功！');window.location.reload('myuser1.asp')</script>"
response.End
end if
'//取回密码
case "repass"
set rs=server.CreateObject("adodb.recordset")
rs.open "select userpassword from [shop_users] where username='"&trim(request("username2"))&"'",conn,1,3
rs("userpassword")=md5(trim(request("userpassword2")))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('您的密码修改成功，请重新登陆！');window.location.reload('myuser.asp?action=login')</script>"
end select
conn.close
set conn=nothing
%>
</body>
</html>