📄 index2.asp

📁 派出所案件管理系统 20080728 　　用于派出所内部管理案件信息
💻 ASP
字号:
<!-- #include file="../inc/LHB_Check_Session.asp" -->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/LHB_Check_Action.asp"-->
<!--#include file="../inc/LHB_KeShi_QX.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"-->
<%
'==================================================================
'　　************** 思翔 派出所案件管理系统 ***************
'　　文件名：index2.asp
'　　作用：按涉案人员信息查询
'　　作者：搜捕者
'　　网站：思翔　http://www.sxang.cn
'　　联系：QQ:7937080
'　　邮件：soubuzhe@hotmail.com MSN 
'　　更新日期：2008年7月28日（搜捕者）
'　　版权：源代码公开，允许自行修改，但自行修改造成的后果自负
'　　使用该软件必须保留软件作者的版权声明，将该软件从原有自然
'　　语言文字转换成另一自然语言文字的，仍应注明出处。
'　　************************************************
'==================================================================
L_PageName=request("LouHB_PageName")
Select Case L_PageName
Case "第一页"
page=1
Case "上一页"
page=Request("LouHB_PageNo")-1
Case "下一页"
page=Request("LouHB_PageNo")+1
Case "最后一页"
page=Request("LouHB_SunPage")
Case "跳转到"
page=Clng(Request("page"))
End Select
judge=request("judge")
judge2=request("judge2")
judge3=0
L_XingMing=Request("LouHB_XingMing")
L_XingBie=Request("LouHB_XingBie")
L_HuJiDZ=Request("LouHB_HuJiDZ")
L_CuoHao=Request("LouHB_CuoHao")
L_ShenFenZHM=Request("LouHB_ShenFenZHM")
L_ChuShengRQ1=Request("LouHB_ChuShengRQ1")
L_ChuShengRQ2=Request("LouHB_ChuShengRQ2")
L_ZhuZhi=Request("LouHB_ZhuZhi")
L_QianKeQK=Request("LouHB_QianKeQK")
L_LianXiFS=Request("LouHB_LianXiFS")
L_BeiZhu=Request("LouHB_BeiZhu")

Set Lours=server.createobject("adodb.recordset")
Sql="Select a.* From LHB_SheAnRenXX a Inner Join LHB_AnJianXX b on a.L_AnJianID=b.ID where a.ID>0"
Select Case SxangDB '判断数据库开始
Case 1
Sql=Sql&" And "&L_InStr&"(rtrim(b.L_KeShi),'"&L_Manage_KeShi&"')>0"
Case 2
Sql=Sql&" And "&L_InStr&"('"&L_Manage_KeShi&"',rtrim(b.L_KeShi))>0"
End Select '判断数据库结束
Lours.Open Sql,LouConn,1,1
If Lours.BOF And Lours.EOF Then
response.write "结果为空"
Else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr align="center">
    <td height="30" colspan="10" class="table13">点击姓名查看案件信息</td>
  </tr>
  <tr align="center" >
    <td width="5%" height="30" class="table13">姓名</td>
    <td width="5%" class="table13">性别</td>
    <td width="23%" class="table13">户籍地址</td>
    <td width="8%" class="table13">绰号</td>
    <td width="13%" class="table13">身份证号</td>
    <td width="9%" class="table13">出生年月</td>
    <td width="13%" class="table17">现住址</td>
    <td width="11%" class="table17">前科情况</td>
    <td width="8%" class="table17">联系方式</td>
    <td width="5%" class="table17">备注</td>
  </tr>
	<%			
    Lours.MoveFirst
    Lours.PageSize = Page_Size  '每页显示的条数  
    If page < 1 Then page = 1 
    If page > Lours.PageCount Then page = Lours.PageCount  
    Lours.AbsolutePage = page
    For ipage = 1 To Lours.PageSize
    %>
<tr>
    <td height="30" align="center" background="../pic/DHT-bg.gif" class="table3"><a href="index.asp?LouHB_AnJianID=<%=Lours("L_AnJianID")%>&QX_CaiDanID=<%=QX_CaiDanID%>"><%=Lours("L_XingMing")%></a></td>
    <td align="center" background="../pic/DHT-bg.gif" class="table3">
      <%
	If Lours("L_XingBie")=1 Then
	Response.Write "男"
	ElseIf Lours("L_XingBie")=2 Then
	Response.Write "女"
	Else
	Response.Write "不详"
	End If
	%>    </td>
    <td background="../pic/DHT-bg.gif" class="table3">
	<%
	If Lours("L_HuJiDZ")<>"" Then 
	Response.Write Lours("L_HuJiDZ") 
	Else 
	Response.Write "&nbsp;"
	End If
	%></td>
    <td align="center" background="../pic/DHT-bg.gif" class="table3">
	<%
	If Lours("L_CuoHao")<>"" Then 
	Response.Write Lours("L_CuoHao") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
	</td>
    <td align="center" background="../pic/DHT-bg.gif" class="table3">
	<%
	If Lours("L_ShenFenZHM")<>"" Then 
	Response.Write Lours("L_ShenFenZHM") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
	</td>
    <td align="center" background="../pic/DHT-bg.gif" class="table3">
	<%
	If Lours("L_ChuShengRQ")<>"" Then 
	Response.Write Lours("L_ChuShengRQ") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
	</td>
    <td background="../pic/DHT-bg.gif" class="table4">
	<%
	If Lours("L_ZhuZhi")<>"" Then 
	Response.Write Lours("L_ZhuZhi") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
	</td>
    <td background="../pic/DHT-bg.gif" class="table4">
	<%
	If Lours("L_QianKeQK")<>"" Then 
	Response.Write Lours("L_QianKeQK") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
	</td>
    <td align="center" background="../pic/DHT-bg.gif" class="table4">
	<%
	If Lours("L_LianXiFS")<>"" Then 
	Response.Write Lours("L_LianXiFS") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
	</td>
    <td align="center" background="../pic/DHT-bg.gif" class="table4">
	<%
	If Lours("L_BeiZhu")<>"" Then 
	Response.Write Lours("L_BeiZhu") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
	</td>
</tr>
<%
Set rs=server.createobject("adodb.recordset")
Sql="Select * From LHB_SheAnRenXX where L_AnJianID="&Lours("L_AnJianID")&" And ID<>"&Lours("ID")
rs.Open Sql,LouConn,1,1
If Not(rs.BOF And rs.EOF)Then 
Do while Not rs.EOF
%>
<tr>
  <td height="30" align="center" class="table3"><%=rs("L_XingMing")%></td>
  <td align="center" class="table3"><%
	If rs("L_XingBie")=1 Then
	Response.Write "男"
	ElseIf rs("L_XingBie")=2 Then
	Response.Write "女"
	Else
	Response.Write "不详"
	End If
	%></td>
  <td class="table3">
  <%
	If rs("L_HuJiDZ")<>"" Then 
	Response.Write rs("L_HuJiDZ") 
	Else 
	Response.Write "&nbsp;"
	End If
	%></td>
  <td align="center" class="table3">
  <%
	If rs("L_CuoHao")<>"" Then 
	Response.Write rs("L_CuoHao") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
  </td>
  <td align="center" class="table3">
  <%
	If rs("L_ShenFenZHM")<>"" Then 
	Response.Write rs("L_ShenFenZHM") 
	Else 
	Response.Write "&nbsp;"
	End If
	%></td>
  <td align="center" class="table3">
  <%
	If rs("L_ChuShengRQ")<>"" Then 
	Response.Write rs("L_ChuShengRQ") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
  </td>
  <td class="table4">
  <%
	If rs("L_ZhuZhi")<>"" Then 
	Response.Write rs("L_ZhuZhi") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
  </td>
  <td class="table4">
  <%
	If rs("L_QianKeQK")<>"" Then 
	Response.Write rs("L_QianKeQK") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
  </td>
  <td align="center" class="table4">
  <%
	If rs("L_LianXiFS")<>"" Then 
	Response.Write rs("L_LianXiFS") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
  </td>
  <td align="center" class="table4">
  <%
	If rs("L_BeiZhu")<>"" Then 
	Response.Write rs("L_BeiZhu") 
	Else 
	Response.Write "&nbsp;"
	End If
	%>
  </td>
</tr>
  <%
  rs.movenext
  Loop
  End If
  rs.Close
  Set rs=Nothing
  Lours.MoveNext      
  If Lours.EOF Then Exit For   
  Next
  %>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="<%=Table_Width%>" class="table4" align="center">
<tr> 
<form method="post" action="" id="form6" name="form6">
<td width="45%" height="25">
<%
If page = 1 Then 
Response.Write "<button class=""btn3_mouseover"" disabled>第一页</button>　<button class=""btn3_mouseover"" disabled>上一页</button>" 
End If
If page <> 1 Then 
Response.Write "　<input name=""LouHB_PageName"" type=""submit"" class=""btn3_mouseover"" id=""LouHB_PageName"" value=""第一页"">"
Response.Write "　<input name=""LouHB_PageName"" type=""submit"" class=""btn3_mouseover"" id=""LouHB_PageName"" value=""上一页"">"
End If
If page <> Lours.PageCount Then 
Response.Write "　<input name=""LouHB_PageName"" type=""submit"" class=""btn3_mouseover"" id=""LouHB_PageName"" value=""下一页"">"
Response.Write "　<input name=""LouHB_PageName"" type=""submit"" class=""btn3_mouseover"" id=""LouHB_PageName"" value=""最后一页"">"
End If 
If page = Lours.PageCount Then 
Response.Write "　<button class=""btn3_mouseover"" disabled>下一页</button>　<button class=""btn3_mouseover"" disabled>最后一页</button>" 
End If
Response.Write "<input type=""hidden"" name=""LouHB_PageNo"" value='"&page&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_SunPage"" value='"&Lours.PageCount&"'>"
Response.Write "<input type=""hidden"" name=""QX_CaiDanID"" value='"&QX_CaiDanID&"'>"
Response.Write "<input type=""hidden"" name=""L_XingMing"" value='"&L_XingMing&"'>"
Response.Write "<input type=""hidden"" name=""L_XingBie"" value='"&L_XingBie&"'>"
Response.Write "<input type=""hidden"" name=""L_L_HuJiDZ"" value='"&L_L_HuJiDZ&"'>"
Response.Write "<input type=""hidden"" name=""L_CuoHao"" value='"&L_CuoHao&"'>"
Response.Write "<input type=""hidden"" name=""L_ShenFenZHM"" value='"&L_ShenFenZHM&"'>"
Response.Write "<input type=""hidden"" name=""L_ChuShengRQ1"" value='"&L_ChuShengRQ1&"'>"
Response.Write "<input type=""hidden"" name=""L_ChuShengRQ2"" value='"&L_ChuShengRQ2&"'>"
Response.Write "<input type=""hidden"" name=""L_ZhuZhi"" value='"&L_ZhuZhi&"'>"
Response.Write "<input type=""hidden"" name=""L_QianKeQK"" value='"&L_QianKeQK&"'>"
Response.Write "<input type=""hidden"" name=""L_LianXiFS"" value='"&L_LianXiFS&"'>"
Response.Write "<input type=""hidden"" name=""L_BeiZhu"" value='"&L_BeiZhu&"'>"
%></td>
</form>
<form onSubmit="return test();" method="post" action="" id="form2" name="form2">
<td width="55%"  height="25"><input name="LouHB_PageName" type="submit" class="btn3_mouseover" value="跳转到">第
<input type="text" size="5" maxlength="4" name="page" class="button1"><input type="hidden" name="judge" value="1">页
<%
Response.Write "<input type=""hidden"" name=""L_XingMing"" value='"&L_XingMing&"'>"
Response.Write "<input type=""hidden"" name=""L_XingBie"" value='"&L_XingBie&"'>"
Response.Write "<input type=""hidden"" name=""L_L_HuJiDZ"" value='"&L_L_HuJiDZ&"'>"
Response.Write "<input type=""hidden"" name=""L_CuoHao"" value='"&L_CuoHao&"'>"
Response.Write "<input type=""hidden"" name=""L_ShenFenZHM"" value='"&L_ShenFenZHM&"'>"
Response.Write "<input type=""hidden"" name=""L_ChuShengRQ1"" value='"&L_ChuShengRQ1&"'>"
Response.Write "<input type=""hidden"" name=""L_ChuShengRQ2"" value='"&L_ChuShengRQ2&"'>"
Response.Write "<input type=""hidden"" name=""L_ZhuZhi"" value='"&L_ZhuZhi&"'>"
Response.Write "<input type=""hidden"" name=""L_QianKeQK"" value='"&L_QianKeQK&"'>"
Response.Write "<input type=""hidden"" name=""L_LianXiFS"" value='"&L_LianXiFS&"'>"
Response.Write "<input type=""hidden"" name=""L_BeiZhu"" value='"&L_BeiZhu&"'>"
%>
</td>
</form>
</tr>
<tr>
<td colspan="2" height="25" >总数：<%=Lours.recordCount%>　总页数：<%=Lours.PageCount%>　当前页次：<%=page%> </td>
</tr>
</table>
<%
End If
Lours.Close
Set Lours=Nothing
Call Copy()
%>
⌨️ 快捷键说明

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