userstat.asp

1。超强文件读写锁定

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_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
 
Response.Redirect "index_member.asp?manager="&request("manager")&"&K1="&stat&""
%>