lhb_xiugairy.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_XiuGaiRY.asp
'　　作用：修改涉案人员信息
'　　作者：搜捕者
'　　网站：思翔　http://www.sxang.cn
'　　联系：QQ:7937080
'　　邮件：[e-mail] MSN 
'　　更新日期：2008年7月28日（搜捕者）
'　　版权：源代码公开，允许自行修改，但自行修改造成的后果自负
'　　使用该软件必须保留软件作者的版权声明，将该软件从原有自然
'　　语言文字转换成另一自然语言文字的，仍应注明出处。
'　　************************************************
'==================================================================

Sub L_CuoWu(LouHB_CuoWu)
if LouHB_CuoWu <> "" then Response.Write("<script>alert('" & LouHB_CuoWu & "');history.back();</script>")
Response.End
End Sub
L_ID=Request("LouHB_ID")
Select Case Request.ServerVariables("REQUEST_METHOD")
Case "POST"
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_ChuShengRQ=Request("LouHB_ChuShengRQ")
If L_ChuShengRQ="" Then L_ChuShengRQ=#1900-1-1#
L_ZhuZhi=Request("LouHB_ZhuZhi")
L_QianKeQK=Request("LouHB_QianKeQK")
L_LianXiFS=Request("LouHB_LianXiFS")
L_BeiZhu=Request("LouHB_BeiZhu")
L_AnJianID=Request("LouHB_AnJianID")
L_TianBiaoR=Session("LHB_YongHuID")

If Len(L_XingMing)<1 Then L_CuoWu("姓名不能为空")
If L_XingBie=0 Then L_CuoWu("性别未选择")
If Len(L_HuJiDZ)<1 Then L_CuoWu("户籍地址未填写")

Set Lours=server.createobject("adodb.recordset")
Sql="Select * From LHB_SheAnRenXX where ID="&L_ID
Lours.Open Sql,LouConn,1,3
If Not(Lours.BOF And Lours.EOF) Then
Lours("L_XingMing")=L_XingMing
Lours("L_XingBie")=L_XingBie
Lours("L_HuJiDZ")=L_HuJiDZ
Lours("L_CuoHao")=L_CuoHao
Lours("L_ShenFenZHM")=L_ShenFenZHM
Lours("L_ChuShengRQ")=L_ChuShengRQ
Lours("L_ZhuZhi")=L_ZhuZhi
Lours("L_QianKeQK")=L_QianKeQK
Lours("L_LianXiFS")=L_LianXiFS
Lours("L_BeiZhu")=L_BeiZhu
Lours("L_AnJianID")=L_AnJianID
Lours.update
End If
Lours.Close
Set Lours=Nothing

L_Jump=Request.ServerVariables("HTTP_REFERER")
'L_Jump="index.asp"
response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜，修改成功！');</script>"
response.write "<form action="""&L_Jump&""" method=""GET"" name=""JumpForm"">" 
response.write "<input type=""hidden"" name=""QX_CaiDanID"" value="""&QX_CaiDanID&""">"
response.write "<input type=""hidden"" name=""LouHB_ID"" value="""&L_ID&""">"
response.write "</form>"
Response.Write "<Script Language=""JavaScript"">" & chr(13) & "document.JumpForm.submit();" & chr(13) & "</Script>"
Response.End
End Select

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">
<form name="form1" method="post" action="">
  <tr>
    <td width="193" height="30" align="right">&nbsp;</td>
    <td width="407">&nbsp;</td>
  </tr>
  <tr>
    <td height="30" align="right">姓名</td>
    <td><input type="text" name="LouHB_XingMing" id="LouHB_XingMing" size="20" value="<%=L_XingMing%>" class="button1"></td>
  </tr>
  <tr>
    <td height="30" align="right">性别</td>
    <td><select name="LouHB_XingBie" class="button1">
      <option value="0" <%If L_XingBie-0=0 Then response.write"selected"%>>性别</option>
      <option value="1" <%If L_XingBie-1=0 Then response.write"selected"%>>男</option>
      <option value="2" <%If L_XingBie-2=0 Then response.write"selected"%>>女</option>
    </select></td>
  </tr>
  <tr>
    <td height="30" align="right">户籍地址</td>
    <td><input type="text" name="LouHB_HuJiDZ" size="30" value="<%=L_HuJiDZ%>" class="button1"></td>
  </tr>
  <tr>
    <td height="30" align="right">绰号</td>
    <td><input type="text" name="LouHB_CuoHao" size="20" value="<%=L_CuoHao%>" class="button1"></td>
  </tr>
  <tr>
    <td height="30" align="right">身份证号码</td>
    <td><input type="text" name="LouHB_ShenFenZHM" size="20" value="<%=L_ShenFenZHM%>" class="button1"></td>
  </tr>
  <tr>
    <td height="30" align="right">出生年月</td>
    <td><input type="text" name="LouHB_ChuShengRQ" size="20" onFocus="calendar()" value="<%=L_ChuShengRQ%>" class="button1"></td>
  </tr>
  <tr>
    <td height="30" align="right">现住址</td>
    <td><input type="text" name="LouHB_ZhuZhi" size="30" value="<%=L_ZhuZhi%>" class="button1"></td>
  </tr>
  <tr>
    <td height="30" align="right">前科情况</td>
    <td><textarea name="LouHB_QianKeQK" cols="20" rows="3" class="button1"><%=L_QianKeQK%></textarea></td>
  </tr>
  <tr>
    <td height="30" align="right">联系方式</td>
    <td><input type="text" name="LouHB_LianXiFS" size="20" value="<%=L_LianXiFS%>" class="button1"></td>
  </tr>
  <tr>
    <td height="30" align="right">备注</td>
    <td><input type="text" name="LouHB_BeiZhu" size="20" value="<%=L_BeiZhu%>" class="button1"></td>
  </tr>
  <tr>
    <td height="30" align="right">&nbsp;</td>
    <td>
        <input type="submit" name="button2" id="button2" value="保　　存" class="btn3_mouseup">
    <input type="hidden" name="QX_CaiDanID" value="<%=QX_CaiDanID%>">
    <input type="hidden" name="LouHB_ID" value="<%=L_ID%>">
    </td>
  </tr>
    </form>
</table>

<%Call Copy()%>