<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%dim action,username
action=request.QueryString("action")
username=request.Cookies("bookshop")("username")
select case action
'//收貨人信息
case "shouhuoxx"
set rs=server.CreateObject("adodb.recordset")
    rs.Open "select * from shop_user where username='"&username&"' ",conn,1,3
rs("shouname")=trim(request("shouname"))
rs("shengshi")=trim(request("shengshi"))
rs("city")    =trim(request("cityclass"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("youbian")=cstr(request("youbian"))
rs("usertel")=trim(request("usertel"))
rs("songid")=int(request("songid"))
rs("zhifufangshi")=int(request("zhifufangshi"))
rs("shousex")=int(request("shousex"))
rs("blnedit")=1
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('您的收貨信息保存成功！');window.location.reload('myuser.asp?action=shouhuoxx')</script>"
response.End
'//用戶資料
case "userziliao"
set rs=server.CreateObject("adodb.recordset")
rs.open "select useremail,userzhenshiname,quesion,answer from shop_user where username='"&username&"'",conn,1,3
rs("useremail")=trim(request("useremail"))
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("quesion")=trim(request("quesion"))
if trim(request("answer"))<>""then
rs("answer")=md5(trim(request("answer")))
end if
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_user 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_user 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
%>