saveuser.asp

顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access

<!--#include file="super_admin.asp"-->
<!--#include file="HMconnection.asp"-->
<!--#include file="../MD5/md5.asp"-->
<%dim userid,action
action=request.QueryString("action")
userid=request.QueryString("userid")
if userid="" then userid=request("userid")
select case action
case "save"
  set rs=server.CreateObject("adodb.recordset")
  rs.Open "select pricepoit,Grade,Regtime,paymethod from [user] where id="&userid,conn,1,3
  rs("Grade")=trim(request("Grade"))
  if request.Form("timelimit")<>0 then
   if  rs("Regtime")<now() then
    rs("Regtime")=now()+request.Form("timelimit")
   else
    rs("Regtime")=rs("Regtime")+request.Form("timelimit")
   end if
   rs("paymethod")=1
  else
    rs("paymethod")=2 
    rs("usedPoit")=rs("usedPoit")+int(trim(request("usedpoit")))
    rs("pricepoit")=rs("pricepoit")+int(trim(request("pricepoit")))-int(trim(request("usedpoit")))
  end if
  rs.Update
  rs.Close
  set rs=nothing
    response.Write "<script language=javascript>alert('操作成功!');document.URL='manageuser.asp';</script>"
case "del"
   conn.execute "delete from [useDeteil] where userID in ("&userid&") "
   conn.execute "delete from [user] where id in ("&userid&") "
   conn.execute "delete from [UserMsg] where UserId in ("&userid&") "
   response.Redirect "manageuser.asp"
case "locku"
   conn.execute "update [user] set Lockuser=true where id in ("&userid&") "
   response.Redirect "manageuser.asp"
case "unlocku"
   conn.execute "update [user] set Lockuser=false where id in ("&userid&") "
   response.Redirect "manageuser.asp"
end select
%>