userstat.asp

来自「ASP-六合在线投注系统,绝对好用」· ASP 代码 · 共 39 行

<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
  Response.Redirect "888_Login.Asp"
  Response.End
End If

If Not Isnumeric(Request("ID")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If

If Not Isnumeric(Request("stat")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If

If Request("stat")<0 Or Request("stat")>1 Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If

Dim ID,stat
  ID=cLng(Request("ID"))
  stat=cInt(Request("stat"))

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.Recordset")
  Set Rs6=Conn.Execute("update m_member set Stat="&Stat&" Where ID="&ID)
  Set Rs6=Nothing
 if  request("stat")=1 then
 stat=0
 else
 stat=1
 end if
 manager2="Agent"
Response.Redirect "index_member.asp?manager="&request("manager")&"&K1="&stat&"&manager2="&manager2&""
%>