lhb_xiangxiry.asp

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

<!-- #include file="../inc/LHB_Check_Session.asp" -->
<script language="JavaScript" src="../css/Calendar30.js"></script>
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/LHB_Check_Action.asp"-->
<%
'==================================================================
'　　************** 思翔 派出所案件管理系统 ***************
'　　文件名：LHB_XiangXiRY.asp
'　　作用：涉案人员详细资料
'　　作者：搜捕者
'　　网站：思翔　http://www.sxang.cn
'　　联系：QQ:7937080
'　　邮件：[e-mail] MSN 
'　　更新日期：2008年7月28日（搜捕者）
'　　版权：源代码公开，允许自行修改，但自行修改造成的后果自负
'　　使用该软件必须保留软件作者的版权声明，将该软件从原有自然
'　　语言文字转换成另一自然语言文字的，仍应注明出处。
'　　************************************************
'==================================================================

L_ID=Request("LouHB_ID")
If L_ID<>"" Then
Set Lours=server.createobject("adodb.recordset")
Sql="Select * From LHB_SheAnRenXX where ID="&L_ID
Lours.Open Sql,LouConn,1,1
If Not(Lours.BOF And Lours.EOF) Then
L_XingMing=Lours("L_XingMing")
L_XingBie=Lours("L_XingBie")
L_HuJiDZ=Lours("L_HuJiDZ")
L_CuoHao=Lours("L_CuoHao")
L_ShenFenZHM=Lours("L_ShenFenZHM")
L_ChuShengRQ=Lours("L_ChuShengRQ")
L_ZhuZhi=Lours("L_ZhuZhi")
L_QianKeQK=Lours("L_QianKeQK")
L_LianXiFS=Lours("L_LianXiFS")
L_BeiZhu=Lours("L_BeiZhu")
End If
Lours.Close
Set Lours=Nothing
End If
%>
<!--#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"-->
<br>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="table4">
  <tr>
    <td width="114" height="30" align="right" background="../pic/bg.gif">&nbsp;</td>
    <td width="484" background="../pic/bg.gif">&nbsp;</td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">姓名：</td>
    <td class="table11"><%=L_XingMing%></td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">性别：</td>
    <td class="table11">
	<%
	If L_XingBie=1 Then
	Response.Write "男"
	ElseIf L_XingBie=2 Then
	Response.Write "女"
	Else
	Response.Write "不详"
	End If
	%>
    </td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">户籍地址：</td>
    <td class="table11">
    <%
	If L_HuJiDZ<>"" Then
	Response.Write L_HuJiDZ
	Else
	Response.Write "&nbsp;"
	End If
	%>
    </td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">绰号：</td>
    <td class="table11">
	<%
	If L_CuoHao<>"" Then
	Response.Write L_CuoHao
	Else
	Response.Write "&nbsp;"
	End If
	%>
    </td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">身份证号码：</td>
    <td class="table11">
	<%
	If L_ShenFenZHM<>"" Then
	Response.Write L_ShenFenZHM
	Else
	Response.Write "&nbsp;"
	End If
	%>
	</td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">出生年月：</td>
    <td class="table11">
	<%
	If L_ChuShengRQ<>"" Then
	Response.Write L_ChuShengRQ
	Else
	Response.Write "&nbsp;"
	End If
	%>
	</td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">现住址：</td>
    <td class="table11">
	<%
	If L_ZhuZhi<>"" Then
	Response.Write L_ZhuZhi
	Else
	Response.Write "&nbsp;"
	End If
	%>
	</td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">前科情况：</td>
    <td class="table11">
	<%
	If L_QianKeQK<>"" Then
	Response.Write L_QianKeQK
	Else
	Response.Write "&nbsp;"
	End If
	%>
	</td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">联系方式：</td>
    <td class="table11">
	<%
	If L_LianXiFS<>"" Then
	Response.Write L_LianXiFS
	Else
	Response.Write "&nbsp;"
	End If
	%>
	</td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">备注：</td>
    <td class="table11">
	<%
	If L_BeiZhu<>"" Then
	Response.Write L_BeiZhu
	Else
	Response.Write "&nbsp;"
	End If
	%>
	</td>
  </tr>
  <tr>
    <td height="30" align="right" class="table16">&nbsp;</td>
    <td class="table11">&nbsp;</td>
  </tr>
</table>
<%Call Copy()%>