lhb_zuqx.asp

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

<!-- #include file="../inc/LHB_Check_Session.asp" -->
<!-- #include file="../inc/Conn.asp"-->
<!--#include file="../inc/LHB_Check_Action.asp"-->
<!--#include file="../inc/LHB_Copy.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日（搜捕者）                         国
'中　　版权：源代码公开，允许自行修改，但自行修改造成的后果自负  国
'中　　使用该软件必须保留软件作者的版权声明，将该软件从原有自然  国
'中　　语言文字转换成另一自然语言文字的，仍应注明出处。          国
'中　　************************************************          国
'国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国
'==================================================================
Set Lours=server.createobject("adodb.recordset")
SqlXT="Select * from LHB_GongYong where L_FenLeiBM="&FuLei_Group_XuHao
Lours.Open SqlXT,Louconn,1,1
If Not(Lours.EOF And Lours.BOF) Then
%>
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center" class="table4">
<tr align="center">
<td height="30" background="../pic/bg.gif">角色名称</td>
<td background="../pic/bg.gif">编辑权限</td>
</tr>
<%Do while Not Lours.EOF%>  
<tr align="center">
<td height="30"><%=Lours("L_MingCheng")%></td>
<td><a href="?LouHB_Key=<%=Lours("L_MingChengBM")%>&QX_CaiDanID=<%=Request("QX_CaiDanID")%>">编辑权限</a></td>
</tr>
<%
Lours.Movenext
Loop
%>
</table>
<%
End If
Lours.Close
Set Lours=Nothing

L_Key=Request("LouHB_Key")
If L_Key <> ""Then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50%" valign="top" align="right">
<table width="200" border="0" cellspacing="0" cellpadding="0" class="table4">
<form name="form1" method="post" id="form1" action="LHB_ZuQX_Save.asp">
<tr bgcolor="#D5E7F7">
  <td width="264" height="30" align="center">菜单及权限</td>
</tr>
<tr>
<td>
<ul>
<%
Set Lours=server.createobject("adodb.recordset")
CaiDan="Select * From LHB_GongYong_CaiDan Order by L_CaiDanBM"
Lours.Open CaiDan,LouConn,1,1

If Not(Lours.EOF And Lours.BOF)Then
i=1
Do while Not Lours.EOF
If Len(Lours("L_CaiDanBM"))=6 Then
response.write"<ul>"
End If
Set rs=server.createobject("adodb.recordset")
CaiDan1="Select L_YesNo From LHB_GongYong_ZuCD where L_CaiDanID="&Lours("L_CaiDanID")&" And L_ZuBM="&L_Key
rs.Open CaiDan1,LouConn,1,1
If Not(rs.EOF And rs.BOF)Then
L_YesNo2=rs("L_YesNo")
Else
L_YesNo2=2
End If
rs.Close
Set rs=Nothing
%>
<li><input name="LouHB_YesNo<%=i%>" type="checkbox" value="1" <%If L_YesNo2=1 Then response.write"checked"%>><input name="LouHB_CaiDanID<%=i%>" type="hidden" value="<%=Lours("L_CaiDanID")%>">
<%
If Lours("L_QiYong")=2 Then Response.Write"<Font Color=""#CCCCCC"">" 
Response.Write Lours("L_CaiDanMC")
If Lours("L_QiYong")=2 Then Response.Write"</Font>" 
%></li>
<%
If Len(Lours("L_CaiDanBM"))=6 Then
response.write"</ul>"
End If
Lours.movenext
i=i+1
Loop

End If
Lours.Close
Set Lours=Nothing
%>
</ul></td>
</tr>
<tr>
<td align="center">
<input type="submit" name="button" id="button" value="保　存" class="btn3_mouseup">
<input type="hidden" name="LouHB_i" id="LouHB_i" value="<%=i-1%>">
<input type="hidden" name="FormName" id="FormName" value="form1">
<input type="hidden" name="LouHB_ZuBM" id="LouHB_ZuBM" value="<%=L_Key%>">
<input type="hidden" name="QX_CaiDanID" id="QX_CaiDanID" value="<%=Request("QX_CaiDanID")%>">
</td>
</tr>
</form>
</table></td>
<td width="50%" valign="top">
<table width="200" border="0" cellspacing="0" cellpadding="0" class="table4">
<form name="form2" method="post" id="form2" action="LHB_ZuQX_Save.asp">
<tr bgcolor="#D5E7F7">
<td height="30" align="center">系统设置权限</td>
</tr>
<tr>
<td>
<%
Set Lours=server.createobject("adodb.recordset")
XT="Select * From LHB_GongYong_DaLei Order by L_DaLeiBM" 
Lours.open XT,Louconn,1,1
If Not(Lours.EOF And Lours.BOF)Then
II=1
Do while Not Lours.EOF
Set rs=server.createobject("adodb.recordset")
DL="Select L_YesNo From LHB_GongYong_ZuDL where L_DaLeiBM="&Lours("L_DaLeiBM")&" And L_ZuBM="&L_Key
rs.Open DL,LouConn,1,1
If Not(rs.EOF And rs.BOF)Then
L_YesNo1=rs("L_YesNo")
Else
L_YesNo1=2
End If
rs.Close
Set rs=Nothing
response.write"&nbsp;&nbsp;&nbsp;&nbsp;"
response.write"<input name=""LouHB_YesNo"&II&""" type=""checkbox"" value=""1"" "
If L_YesNo1-1=0 Then response.write"checked"
response.write">"
response.write"<input name=""LouHB_DaLeiBM"&II&""" type=""hidden"" value="""&Lours("L_DaLeiBM")&""">"
response.write ""&Lours("L_DaLeiMC")&""
response.write "<br>"
Lours.movenext
II=II+1
Loop
End If
Lours.Close
Set Lours=Nothing
%></td>
</tr>
<tr>
<td align="center">
<input type="submit" name="button" id="button" value="保　存" class="btn3_mouseup">
<input type="hidden" name="LouHB_i" id="LouHB_i" value="<%=II-1%>">
<input type="hidden" name="FormName" id="FormName" value="form2">
<input type="hidden" name="LouHB_ZuBM" id="LouHB_ZuBM" value="<%=L_Key%>">
<input type="hidden" name="QX_CaiDanID" id="QX_CaiDanID" value="<%=Request("QX_CaiDanID")%>">
</td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td colspan="2" align="center">
</td>
</tr>
</table>
<%
End If
LouConn.Close()
Set LouConn=Nothing
Call Copy()
%>