subuser_act.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 31 行

<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" and not isnumeric(request("rid")) Then
  Response.Redirect "888_Login.Asp"
  Response.End
End If
select case request("action")
case "mod"
subuser_mod
case "del"
subuser_del
end select
Dim Rs6
sub subuser_mod
username=request("username_cut_level")&request("username_cut_name")
password=request("password")
alias=request("truename")
rid=request("rid")
response.Write "update m_reportuser set Login_Name='"&username&"',Login_Pwd='"&password&"',TrueName='"&alias&"' where ID='"&rid&"'"
Set Rs6=Conn.Execute("update m_reportuser set Login_Name='"&username&"',Login_Pwd='"&password&"',TrueName='"&alias&"' where ID='"&rid&"'")
response.Redirect "index_subuser.asp"
end sub

sub subuser_del
rid=request("rid")
Set Rs6=Conn.Execute("delete from m_reportuser where ID='"&rid&"'")
response.Redirect "index_subuser.asp"
end sub
response.Redirect "index_subuser.asp"
%>