📄 index.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"-->
<%
'==================================================================
'　　************** 思翔 派出所案件管理系统 ***************
'　　文件名：index.asp
'　　作用：按案件信息查询
'　　作者：搜捕者
'　　网站：思翔　http://www.sxang.cn
'　　联系：QQ:7937080
'　　邮件：soubuzhe@hotmail.com MSN 
'　　更新日期：2008年7月28日（搜捕者）
'　　版权：源代码公开，允许自行修改，但自行修改造成的后果自负
'　　使用该软件必须保留软件作者的版权声明，将该软件从原有自然
'　　语言文字转换成另一自然语言文字的，仍应注明出处。
'　　************************************************
'==================================================================
L_Action=Request("LouHB_Action")
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_AnJianXZ=Request("LouHB_AnJianXZ")
L_AnJianQK=Request("LouHB_AnJianQK")
L_AnJianRQ1=Request("LouHB_AnJianRQ1")
L_AnJianRQ2=Request("LouHB_AnJianRQ2")
L_RuLuRQ1=Request("LouHB_RuLuRQ1")
L_RuLuRQ2=Request("LouHB_RuLuRQ2")
L_AnJianLB=Request("LouHB_AnJianLB")
L_KeShi=Request("LouHB_KeShi")
L_AnJianID=Request("LouHB_AnJianID")

Set Lours=server.createobject("adodb.recordset")
Sql="Select a.*,b.L_MingCheng as L_AJXZ,c.L_MingCheng as L_AJLB,d.L_MingCheng as L_KS From ((LHB_AnJianXX a Left Join LHB_GongYong b on a.L_AnJianXZ=b.L_MingChengBM And a.L_AnJianXZ_FLBM=b.L_FenLeiBM)Left Join LHB_GongYong c on a.L_AnJianLB=c.L_MingChengBM And a.L_AnJianLB_FLBM=c.L_FenLeiBM)Left Join LHB_GongYong d on a.L_KeShi=d.L_MingChengBM And a.L_KeShi_FLBM=d.L_FenLeiBM where a.ID>0"
Sql=Sql&" And a.L_KeShi="&Session("LHB_KeShiBM")
Select Case SxangDB '判断数据库开始
Case 1
Sql=Sql&" And "&L_InStr&"(rtrim(a.L_KeShi),'"&L_Manage_KeShi&"')>0"
Case 2
Sql=Sql&" And "&L_InStr&"('"&L_Manage_KeShi&"',rtrim(a.L_KeShi))>0"
End Select '判断数据库结束
Sql=Sql&" order by a.ID desc"
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">
<form name="form1">
  <tr align="center">
    <td height="30" colspan="8" background="../pic/DHT-bg.gif">
    <%If "Manage"=L_Action Then%>
      <input type="submit" name="submit" id="submit" value="修改案件信息" class="btn3_mouseover" onClick="action='LHB_TianJiaAJ.asp';method='get';">&nbsp;&nbsp;
      <input type="submit" name="submit" id="submit" value="新增涉案人员" class="btn3_mouseover" onClick="action='LHB_TianJiaRY.asp';method='get';">
　<input type="submit" name="submit2" id="submit2" value="删除选中案件" class="btn3_mouseover" onClick="action='LHB_ShanChuAJ.asp';method='get';return confirm('敬告：删除案件信息的同时将删除相关涉案人员信息，您确定吗？');">　　
<input type="hidden" name="QX_CaiDanID" value="<%=QX_CaiDanID%>">
<%End If%>
</td>
    </tr>
  <tr align="center">
  <%If "Manage"=L_Action Then%>
    <td width="2%" class="table13">选择</td>
    <%End If%>
    <td width="5%" height="30" class="table13">案件性质</td>
    <td width="35%" class="table13">案件情况</td>
    <td width="6%" class="table13">案件时间</td>
    <td width="5%" class="table13">类别</td>
    <td width="6%" class="table13">科室</td>
    <td width="8%" class="table13">输入时间</td>
    <td width="33%" 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>
    <%If "Manage"=L_Action Then%>
    <td align="center" class="table3"><input type="radio" name="LouHB_AnJianID" id="LouHB_AnJianID" value="<%=Lours("ID")%>"></td>
    <%End If%>
    <td height="30" align="center" class="table3"><%=Lours("L_AJXZ")%></td>
    <td class="table3"><%=Lours("L_AnJianQK")%></td>
    <td align="center" class="table3"><%=Lours("L_AnJianRQ")%></td>
    <td align="center" class="table3"><%=Lours("L_AJLB")%></td>
    <td align="center" class="table3"><%=Lours("L_KS")%></td>
    <td align="center" class="table3"><%=Lours("L_RuLuRQ")%></td>
    <td class="table4">
    <%
	Set rs=server.createobject("adodb.recordset")
	Sql1="Select * From LHB_SheAnRenXX where L_AnJianID="&Lours("ID")
	rs.Open Sql1,LouConn,1,1
	If rs.BOF And rs.EOF Then
	response.write "涉案人员未添加"
	Else
	Do while Not rs.EOF
	response.write rs("L_XingMing")
	response.write "—"
	response.write rs("L_HuJiDZ")
	response.write "&nbsp;&nbsp;"
	If "Manage"=L_Action Then
	response.write "<a href=""LHB_XiuGaiRY.asp?QX_CaiDanID="&QX_CaiDanID&"&LouHB_ID="&rs("ID")&"&LouHB_AnJianID="&Lours("ID")&""">修改</a>"
	response.write "&nbsp;&nbsp;"
	response.write "<a href=""LHB_ShanChuRY.asp?LouHB_ID="&rs("ID")&"&QX_CaiDanID="&QX_CaiDanID&""" onClick=""return confirm('敬告：您确定删除吗？');"">删除</a>"
	response.write "&nbsp;&nbsp;"
	End If
	response.write "<a href=""LHB_XiangXiRY.asp?LouHB_ID="&rs("ID")&"&QX_CaiDanID="&QX_CaiDanID&""">详细</a>"
	response.write "<br>"
	rs.movenext
    Loop
	End If
	rs.Close
	Set rs=Nothing
	%>
    </td>
  </tr>
  <%
  Lours.MoveNext
  If Lours.EOF Then Exit For
  Next
  %>
</form>
</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=""LouHB_AnJianXZ"" value='"&L_AnJianXZ&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_AnJianQK"" value='"&L_AnJianQK&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_AnJianRQ1"" value='"&L_AnJianRQ1&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_AnJianRQ2"" value='"&L_AnJianRQ2&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_RuLuRQ1"" value='"&L_RuLuRQ1&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_RuLuRQ2"" value='"&L_RuLuRQ2&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_AnJianLB"" value='"&L_AnJianLB&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_KeShi"" value='"&L_KeShi&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_Action"" value='"&L_Action&"'>"
%></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=""QX_CaiDanID"" value='"&QX_CaiDanID&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_AnJianXZ"" value='"&L_AnJianXZ&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_AnJianQK"" value='"&L_AnJianQK&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_AnJianRQ1"" value='"&L_AnJianRQ1&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_AnJianRQ2"" value='"&L_AnJianRQ2&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_RuLuRQ1"" value='"&L_RuLuRQ1&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_RuLuRQ2"" value='"&L_RuLuRQ2&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_AnJianLB"" value='"&L_AnJianLB&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_KeShi"" value='"&L_KeShi&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_Action"" value='"&L_Action&"'>"
%>
</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 + -