subuser_act.asp

1。超强文件读写锁定

<!--#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")
password=request("password")
alias=request("alias")
rid=request("rid")
Set Rs6=Conn.Execute("update  m_reportuser set Login_Name='"&username&"',Login_Pwd='"&password&"',truename='"&alias&"' where ID='"&&"'")
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"
%>