lhb_user.asp

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

<!-- #include file="../inc/LHB_Check_Session.asp" -->
<!--#include file="../inc/LHB_copy.asp"-->
<!-- #include file="../inc/Conn.asp"-->
<!-- #include file="MyDesk.asp"-->
<!--#include file="../inc/LHB_head.asp"-->
<!--#include file="../inc/LHB_DHT_01.asp"-->
<!--#include file="../inc/LHB_DHT_02.asp"-->
<%
'==================================================================
'中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中
'中　　************** 思翔 实用办公系统 ***************　　　　　国
'中　　文件名：            　　　　　　　　　　　　　　　　　　　国
'中　　作用：                　　　　　　　　　　　　　　　　　　国
'中　　作者：搜捕者　　　　　　　　　　　　　　　　　　　　　　　国
'中　　网站：思翔　http://www.sxang.cn　　　　　　　　　 　　　　国
'中　　联系：QQ:7937080　　　　　　　　　　　　　　　  　　　　　国
'中　　邮件：[e-mail] MSN                            国
'中　　更新日期：2008年6月14日（搜捕者）                         国
'中　　版权：源代码公开，允许自行修改，但自行修改造成的后果自负  国
'中　　使用该软件必须保留软件作者的版权声明，将该软件从原有自然  国
'中　　语言文字转换成另一自然语言文字的，仍应注明出处。          国
'中　　************************************************          国
'国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国
'==================================================================
L_Action=Request("LouHB_Action")
Select Case L_Action
Case "LiuLan"
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 L_YesNo=1 Then
Call MyDesk("有管理权限")
ElseIf L_YesNo=2 Then
Call MyDesk("无管理权限")
End If

Case ""
Call MyDesk("无管理权限")
End Select
Call Copy()
%>