saveuserinfo.asp

购物系统(本版为正式商业版

<!--
┌─9911.com.cn────────────┐
│  动感购物 WWW.9911.com.cn 版权所有  │
│  动感购物2005Vb  联系：[e-mail] │
└───────────9911.com.cn──┘
-->
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="fuction.asp"-->
<%dim action,username
action=nosql(request.QueryString("action"))
username=nosql(session("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("dadyname")=nosql(trim(request("dadyname")))
rs("szSheng")=nosql(trim(request("szSheng")))
rs("szShi")=nosql(trim(request("szShi")))
rs("shouhuodizhi")=nosql(trim(request("shouhuodizhi")))
rs("youbian")=nosql(trim(request("youbian")))
rs("usertel")=nosql(trim(request("usertel")))
rs("songhuofangshi")=nosql(trim(request("songhuofangshi")))
rs("zhifufangshi")=nosql(trim(request("zhifufangshi")))

rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('您的详细资料信息保存成功！');</script>"
response.redirect "myuser.asp?action=shouhuoxx"
response.End

'//用户资料
case "userziliao"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_user] where username='"&username&"'",conn,1,3
rs("useremail")=nosql(trim(request("useremail")))
if request("ifgongkai")="" then 
rs("ifgongkai")=0
else
rs("ifgongkai")=nosql(trim(request("ifgongkai")))
end if
rs("userzhenshiname")=nosql(trim(request("userzhenshiname")))
rs("sfz")=nosql(trim(request("sfz")))
rs("sex")=nosql(trim(request("shousex")))
rs("nianling")=nosql(trim(request("nianling")))
rs("szsheng")=nosql(trim(request("szsheng")))
rs("szshi")=nosql(trim(request("szshi")))
rs("shouhuodizhi")=nosql(trim(request("shouhuodizhi")))
rs("usertel")=nosql(trim(request("usertel")))
rs("youbian")=nosql(trim(request("youbian")))
rs("oicq")=nosql(trim(request("qq")))
rs("homepage")=nosql(trim(request("homepage")))
rs("content")=nosql(trim(request("content")))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('您的个人资料修改成功！');window.location.href='"&request.servervariables("http_referer")&"';</script>"
response.end

case "savepass"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_user] where username='"&username&"'",conn,1,3
if trim(request("userpassword"))<>"" then
rs("userpassword")=md5(trim(request("userpassword")))
end if
if trim(request("answer"))<>"" then
rs("answer")=md5(trim(request("answer")))
end if
rs("quesion")=nosql(trim(request("quesion")))
rs.update
rs.close
set rs=nothing
	
response.Write "<script language=javascript>alert('密码更改成功！');window.location.href='"&request.servervariables("http_referer")&"';</script>"
response.End
'//取回密码
case "repass"
set rs=server.CreateObject("adodb.recordset")
rs.open "select userpassword from [shop_user] where username='"&nosql(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('您的密码取回成功，请登陆！');history.go(-1);</script>"
end select
%>