📄 lhb_left.asp

📁 派出所案件管理系统 20080728 　　用于派出所内部管理案件信息
💻 ASP
字号:
<!-- #include file="../inc/LHB_Check_Session.asp" -->
<!-- #include file="../inc/Conn.asp"-->
<html>
<head>
<script language="javascript">
var old='';
function menu(name)
{
	submenu=eval("submenu_"+name+".style");
	if(old!=submenu)
	{
		if(old!='')
		{
				old.display='none';
		}
		submenu.display='block';
		old=submenu;
	}
	else
	{
		submenu.display='none';
		old='';
	}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>左侧菜单</title>
<link rel="stylesheet" type="text/css" href="../css/link.css">
<style type="text/css">
<!--
BODY{ 
style=SCROLLBAR-FACE-COLOR:#214C9B;
SCROLLBAR-HIGHLIGHT-COLOR:#214C9B;
SCROLLBAR-SHADOW-COLOR:#214C9B;
SCROLLBAR-ARROW-COLOR:#214C9B;
SCROLLBAR-BASE-COLOR:#214C9B;
SCROLLBAR-TRACK-COLOR:#214C9B;
SCROLLBAR-DARKSHADOW-COLOR:#214C9B;
background-color: #214C9B;
}
-->
</style>
</head>
<table cellSpacing="0" cellPadding="0" width="140" align="center">
<%
Set Lours=server.createobject("adodb.recordset")
FCaiDan="Select a.* From LHB_GongYong_CaiDan a Right Join LHB_GongYong_ZuCD b on a.L_CaiDanID=b.L_CaiDanID where a.L_QiYong=1 And Len(L_CaiDanBM)=4 And L_ZuBM="&Session("LHB_Group")
If Session("LHB_YongHuID")<>200800001 Then FCaiDan=FCaiDan&" And b.L_YesNo=1"
FCaiDan=FCaiDan&" Order by L_CaiDanBM"
Lours.Open FCaiDan,LouConn,1,1
If Not(Lours.EOF And Lours.BOF)Then
Menu0=0
Do while Not Lours.EOF
%>
<tr >
<td height="30" onClick="menu(<%=Menu0%>);" style="CURSOR:hand"><a href="<%=Lours("L_CanShu")%><%If Instr(Lours("L_CanShu"),"?")>0 Then Response.Write "&" Else Response.Write "?" End If%>QX_CaiDanID=<%=Lours("L_CaiDanID")%>" target="Right" class="2"><%=Lours("L_CaiDanMC")%></a></td>
</tr>
<tr>
<td id="submenu_<%=Menu0%>" style="DISPLAY: none;">
<table width="90%" align="center">
<%
Set rs=server.createobject("adodb.recordset")
ZCaiDan="Select a.* From LHB_GongYong_CaiDan a Right Join LHB_GongYong_ZuCD b on a.L_CaiDanID=b.L_CaiDanID where L_QiYong=1 And Len(L_CaiDanBM)=6 And Left(L_CaiDanBM,4)='"&Lours("L_CaiDanBM")&"' And L_ZuBM="&Session("LHB_Group")
If Session("LHB_YongHuID")<>200800001 Then ZCaiDan=ZCaiDan&" And b.L_YesNo=1"
ZCaiDan=ZCaiDan&" Order by L_CaiDanBM"
rs.Open ZCaiDan,LouConn,1,1
If Not(rs.EOF And rs.BOF)Then
Response.Write "<ul>"
Do while Not rs.EOF
%>
<tr>
<td height="22"><a href="<%=rs("L_CanShu")%><%If Instr(rs("L_CanShu"),"?")>0 Then Response.Write "&" Else Response.Write "?" End If%>QX_CaiDanID=<%=rs("L_CaiDanID")%>" target="Right" class="2">┗<%=rs("L_CaiDanMC")%></a></td>
</tr>
<%
rs.movenext
Loop
End If
rs.Close
Set rs=Nothing
%>
</table>
</td>
</tr>
<%
Lours.movenext
Menu0=Menu0+1
Loop
End If
Lours.Close
Set Lours=Nothing
%>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -