saveuser.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<!--#include file="conn.asp"-->
<!--#include file="../func.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if session("rank")>1 then
response.Write "<div align=center><font size=5 color=red><b>你的权限不够！</b></font></div>"
response.End
end if
end if
dim userid,action
action=request.QueryString("action")
userid=request.QueryString("id")
if userid="" then userid=request("userid")
select case action
case "save"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [user] where userid="&userid,conn,1,3
if trim(request("password"))<>"" then rs("password")=md5(trim(request("password")))
rs("realname")=trim(request("realname"))
rs("identify")=trim(request("identify"))
rs("mobile")=trim(request("mobile"))
rs("userqq")=trim(request("userqq"))
rs("useremail")=trim(request("useremail"))
rs("quesion")=trim(request("quesion"))
if trim(request("answer"))<>"" then rs("answer")=md5(trim(request("answer")))
rs("sex")=request("usersex")
rs("city")=trim(request("city"))
rs("address")=trim(request("address"))
rs("postcode")=trim(request("postcode"))
rs("usertel")=trim(request("usertel"))
rs("score")=trim(request("score"))
rs("deposit")=trim(request("deposit"))
rs("book")=trim(request("book"))
if request("vip")=1 then  
rs("vip")=true
else
rs("vip")=false
end if
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('操作成功!');history.go(-1);</script>"
case "del"
conn.execute "delete from [user] where userid in ("&userid&") "
conn.execute "delete from orders where userid in ("&userid&")"
response.Redirect "adminuser.asp"
end select
%>