lhb_keshi_qx.asp

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

<%
'检查登录工号的管理科室
L_GH=Session("LHB_GongHao")
Set Lours=server.createobject("adodb.recordset")
Action="Select L_Manage_KeShi from LHB_BuMenQX where L_GongHao='"&L_GH&"'"
Lours.Open Action,LouConn,1,1
If Lours.EOF And Lours.BOF Then 
L_Sql=1 '没有管理权限
Else
L_Sql=2
L_Manage_KeShi=Lours("L_Manage_KeShi")
End If
Lours.Close
Set Lours=Nothing

If L_Manage_KeShi<>"" Then '如果不为空就赋值
L_Sql=2
L_Manage_KeShi=L_Manage_KeShi
Else
L_Sql=1 '否则强行赋值
End If
%>