lhb_dht_02---.asp

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

<table width="992" height="35" align="center" cellpadding="0" cellspacing="0" background="../pic/DHT.gif">
<tr>
<td align="center">
<ul id="nav">
<%
Set Lours=server.createobject("adodb.recordset")
FCaiDan="Select * From LHB_GongYong_CaiDan where L_QiYong=1 And Len(L_CaiDanBM)=4 Order by L_CaiDanBM"
Lours.Open FCaiDan,LouConn,1,1
If Not(Lours.EOF And Lours.BOF)Then
Do while Not Lours.EOF
%>
<li>
<a href="<%=Lours("L_CanShu")%><%If Instr(Lours("L_CanShu"),"?")>0 Then Response.Write "&" Else Response.Write "?" End If%>QX_CaiDanID=<%=Lours("L_CaiDanID")%>"><%=Lours("L_CaiDanMC")%></a>
<%
Set rs=server.createobject("adodb.recordset")
ZCaiDan="Select * From LHB_GongYong_CaiDan where L_QiYong=1 And Len(L_CaiDanBM)=6 And Left(L_CaiDanBM,4)='"&Lours("L_CaiDanBM")&"' 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
%>
<li><a href="<%=rs("L_CanShu")%><%If Instr(rs("L_CanShu"),"?")>0 Then Response.Write "&" Else Response.Write "?" End If%>QX_CaiDanID=<%=rs("L_CaiDanID")%>"><%=rs("L_CaiDanMC")%></a></li>
<%
rs.movenext
Loop
Response.Write "</ul>"
End If
rs.Close
Set rs=Nothing
%>
</li>
<%
Lours.movenext
Loop
End If
Lours.Close
Set Lours=Nothing
%>
<li><a href="../Manage/logout.asp">退出</a></li>
</ul>
</td>
</tr>
</table>