lhb_check_action.asp

派出所案件管理系统 20080728 用于派出所内部管理案件信息

<%
If ""=Request.ServerVariables("HTTP_REFERER") Then Response.Redirect("../CuoWu/LHB_CuoWu.asp")'防止在地址栏直接输入参数访问
S_URL=Request.ServerVariables("HTTP_REFERER")
ServerName = Split(S_URL,"/")
Server_IP=ServerName(2)
If Server_IP<>Request.ServerVariables("Server_Name") Then Response.Redirect("../CuoWu/LHB_CuoWu.asp")'防伪装

L_ZuBM = Session("LHB_Group")
QX_CaiDanID=Request("QX_CaiDanID")
If QX_CaiDanID="" Then QX_CaiDanID=1234567890

Set AC_Rs=Server.Createobject("adodb.recordset")
Check="Select L_YesNo From LHB_GongYong_ZuCD where L_ZuBM="&L_ZuBM&" And L_CaiDanID="&QX_CaiDanID
AC_Rs.Open Check,LouConn,1,1
If AC_Rs.EOF And AC_Rs.BOF Then
L_YesNo=2
Else
L_YesNo=AC_Rs("L_YesNo")
End If
AC_Rs.Close
Set AC_Rs=Nothing
If 2=L_YesNo Then'And 200800001<>Session("LHB_YongHuID") Then
Response.Redirect("../CuoWu/LHB_CuoWu.asp")
Response.End
End If
%>