saveuserinfo.asp

购物系统时尚版.强大的后台文章编辑器的功能

<!--#include file="chk.asp"-->
<!--#include file="my_lib/my_request.asp" -->
<!--#include file="my_lib/md5.asp" -->
<!--#include file="db_conn.asp" -->
<%
response.write "<link href=""../css/css.css"" rel=""stylesheet"" type=""text/css"">"
action=my_request("action",0)
select case action
case "c_pass"
call c_pass()
case "modi"
call save_modi()
case "message"
call message()
case "favorite"
call favorite()
case "delmessage"
call delmessage()
case "delorder"
call delorder()
case else
response.write "操作错误，请检查您的操作。"
end select



sub c_pass()
old_password=my_request("old_password",0)
new_password=my_request("new_password",0)
new_password2=my_request("new_password2",0)

if old_password="" or new_password="" or new_password2="" then
response.write"<SCRIPT language=JavaScript>alert('信息不完整！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if

if new_password<>new_password2 then
response.write"<SCRIPT language=JavaScript>alert('两次新密码输入不一致！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if

userid=session("chk_id")
set rs=server.createobject("adodb.recordset")
sql="select txt_login_pass from user_info_list where id="&userid
rs.open sql,conn,1,3
password=rs("txt_login_pass")
if password<>md5(old_password,32) then
response.write"<SCRIPT language=JavaScript>alert('原密码输入有错误！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
rs("txt_login_pass")=md5(new_password,32)
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<meta HTTP-EQUIV=REFRESH CONTENT=""2; URL=UserCenter.asp"">"
response.write "<center>"
response.write "<a href=UserCenter.asp class=smallfont>密码修改成功！一秒钟返回首页，如果不想等待，请点击这里</a>"
response.write "</center>"
end if
end sub

sub save_modi()
userid=session("chk_id")
question=my_request("question",0)
answer=my_request("answer",0)
email=my_request("email",0)
realname=my_request("realname",0)
idcard=my_request("idcard",0)
sex=my_request("sex",0)
kind=my_request("kind",0)
address=my_request("address",0)
postal=my_request("postal",0)
phone=my_request("phone",0)
mobile=my_request("mobile",0)
qq=my_request("qq",0)
msn=my_request("msn",0)
checkcode=my_request("checkcode",0)

if question="" or email="" or realname="" or idcard="" or sex="" or kind="" or address="" or postal="" or phone="" or checkcode="" then
response.write"<SCRIPT language=JavaScript>alert('请确认您的信息已经按要求填写完整。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
sql="select txt_question,txt_answer,txt_email,txt_realname,txt_idcard,txt_sex,txt_kind,txt_address,txt_postal,txt_phone,txt_mobile,txt_qq,txt_msn from user_info_list where id="&userid
set rs=server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,3
rs("txt_question")=question
if answer<>"" then
rs("txt_answer")=md5(answer,32)
end if
rs("txt_email")=email
rs("txt_realname")=realname
rs("txt_idcard")=idcard
rs("txt_sex")=sex
rs("txt_kind")=kind
rs("txt_address")=address
rs("txt_postal")=postal
rs("txt_phone")=phone
rs("txt_mobile")=mobile
rs("txt_qq")=qq
rs("txt_msn")=msn
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Session.Contents.Remove("CheckCode")
response.write "<meta HTTP-EQUIV=REFRESH CONTENT=""2; URL=UserCenter.asp"">"
response.write "<center>"
response.write "<a href=UserCenter.asp class=smallfont>资料修改成功！一秒钟返回首页，如果不想等待，请点击这里</a>"
response.write "</center>"
end if
end sub

sub message()
flag=my_request("flag",1)
title=my_request("title",0)
email=my_request("email",0)
phone=my_request("phone",0)
content=my_request("content",0)
userid=session("chk_id")
ip=Request.ServerVariables("REMOTE_ADDR")
addtime=now()
if flag="" or title="" or email="" or content="" then
response.write"<SCRIPT language=JavaScript>alert('信息不完整！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if userid="" then
c_id="zw"
else
c_id=userid
end if
sql="insert into message_yqj (userid,title,flag,email,phone,content,addtime,ip) values ('"&c_id&"','"&title&"',"&flag&",'"&email&"','"&phone&"','"&content&"','"&addtime&"','"&ip&"')"
conn.execute (sql)
response.write "<meta HTTP-EQUIV=REFRESH CONTENT=""2; URL=UserCenter.asp"">"
response.write "<center>"
response.write "<a href=UserCenter.asp class=smallfont>留言成功！一秒钟返回首页，如果不想等待，请点击这里</a>"
response.write "</center>"
end sub

sub favorite()
id=my_request("id",1)
page=my_request("page",1)
userid=cint(session("chk_id"))
sql = "delete from favorite where id="&id&" and userid="&userid
conn.execute(sql)
response.redirect "MyFavorite.asp?page="&page
end sub

sub delmessage()
id=my_request("id",1)
action=my_request("action",0)
page=my_request("page",1)
userid=cint(session("chk_id"))
sql = "delete from message_yqj where id="&id&" and userid="&userid
conn.execute(sql)
sql = "delete from revert where lid="&id
conn.execute(sql)
conn.close
set conn=nothing
response.redirect "revert.asp?page="&page
end sub

sub delorder()
username=session("chk_name")
id=my_request("id",1)
ddhb=my_request("nodot",0)
page=my_request("page",1)
sql = "delete from buyer where id="&id&" and userid='"&username&"'"
conn.execute(sql)
sql = "delete from list where cartbh='"&ddhb&"' and huiyuan='"&username&"'"
conn.execute(sql)
conn.close
set conn=nothing
response.redirect "MyHisoryCart.asp?page="&page
end sub
%>