lhb_tianjiary.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_TianJiaRY.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

RY=Request("LouHB_RY")
L_AnJianID=Request("LouHB_AnJianID")

If Len(L_AnJianID)<1 Then L_CuoWu("非法添加！原因：案件未选择")

Select Case Request.ServerVariables("REQUEST_METHOD")
Case "POST"
For L=1 to RY
L_XingMing=Request("LouHB_XingMing"&L)
L_XingBie=Request("LouHB_XingBie"&L)
L_HuJiDZ=Request("LouHB_HuJiDZ"&L)
L_CuoHao=Request("LouHB_CuoHao"&L)
L_ShenFenZHM=Request("LouHB_ShenFenZHM"&L)
L_ChuShengRQ=Request("LouHB_ChuShengRQ"&L)
If L_ChuShengRQ="" Then L_ChuShengRQ=#1900-1-1#
L_ZhuZhi=Request("LouHB_ZhuZhi"&L)
L_QianKeQK=Request("LouHB_QianKeQK"&L)
L_LianXiFS=Request("LouHB_LianXiFS"&L)
L_BeiZhu=Request("LouHB_BeiZhu"&L)
L_AnJianID=Request("LouHB_AnJianID")
L_TianBiaoR=Session("LHB_YongHuID")

If Len(L_XingMing)>1 Then
'------------生成ID------------
Set Lours=server.createobject("adodb.recordset")
Sql="Select Top 1 ID From LHB_SheAnRenXX order by ID desc"
Lours.Open Sql,LouConn,1,1
If Lours.BOF And Lours.EOF Then
ID=1
Else
ID=Lours("ID")+1
End If
Lours.Close
Set Lours=Nothing
'-----------生成ID结束--------
'-----------写库--------------
Save="insert into LHB_SheAnRenXX(ID,L_XingMing,L_XingBie,L_HuJiDZ,L_CuoHao,L_ShenFenZHM,L_ChuShengRQ,L_ZhuZhi,L_QianKeQK,L_LianXiFS,L_BeiZhu,L_AnJianID,L_TianBiaoR) values("&ID&",'"&L_XingMing&"',"&L_XingBie&",'"&L_HuJiDZ&"','"&L_CuoHao&"','"&L_ShenFenZHM&"','"&L_ChuShengRQ&"','"&L_ZhuZhi&"','"&L_QianKeQK&"','"&L_LianXiFS&"','"&L_BeiZhu&"',"&L_AnJianID&","&L_TianBiaoR&")"
Louconn.execute(Save)
Set Save=Nothing
'-----------写库结束--------------
End If
Next
'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 "</form>"
Response.Write "<Script Language=""JavaScript"">" & chr(13) & "document.JumpForm.submit();" & chr(13) & "</Script>"
Response.End
End Select
%>
<!--#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="200" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form2" method="GET" action="">
  <tr>
    <td height="30" colspan="2" align="center">设定添加的涉案人员数量</td>
  </tr>
  <tr>
    <td width="99" height="30" align="right"><input type="text" name="LouHB_RY" id="LouHB_RY" size="10"></td>
    <td width="101">　　
    <input type="submit" name="button" id="button" value="设置" class="btn3_mouseup">
    <input type="hidden" name="LouHB_AnJianID" value="<%=L_AnJianID%>">
    <input type="hidden" name="QX_CaiDanID" value="<%=QX_CaiDanID%>">
    </td>
  </tr>
  </form>
</table>
<%If RY>0 Then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="">
  <tr>
    <td width="4%" height="30" align="center" background="../pic/bg.gif">姓名</td>
    <td width="5%" align="center" background="../pic/bg.gif">性别</td>
    <td width="20%" align="center" background="../pic/bg.gif">户籍地址</td>
    <td width="4%" align="center" background="../pic/bg.gif">绰号</td>
    <td width="13%" align="center" background="../pic/bg.gif">身份证号码</td>
    <td width="6%" align="center" background="../pic/bg.gif">出生年月</td>
    <td width="20%" align="center" background="../pic/bg.gif">现住址</td>
    <td width="15%" align="center" background="../pic/bg.gif">前科情况</td>
    <td width="6%" align="center" background="../pic/bg.gif">联系方式</td>
    <td width="7%" align="center" background="../pic/bg.gif">备注</td>
  </tr>
  <%For i=1 to RY%>
  <tr valign="top">
    <td height="30" align="center"><input type="text" name="LouHB_XingMing<%=i%>" id="LouHB_XingMing" size="6"></td>
    <td align="center">
    <select name="LouHB_XingBie<%=i%>">
    <option value="0">性别</option>
    <option value="1">男</option>
    <option value="2">女</option>
    </select></td>
    <td align="center"><input type="text" name="LouHB_HuJiDZ<%=i%>" size="30"></td>
    <td align="center"><input type="text" name="LouHB_CuoHao<%=i%>" size="6"></td>
    <td align="center"><input type="text" name="LouHB_ShenFenZHM<%=i%>" size="20"></td>
    <td align="center"><input type="text" name="LouHB_ChuShengRQ<%=i%>" size="10" onFocus="calendar()"></td>
    <td align="center"><input type="text" name="LouHB_ZhuZhi<%=i%>" size="30"></td>
    <td align="center"><textarea name="LouHB_QianKeQK<%=i%>" cols="20" rows="3"></textarea></td>
    <td align="center"><input type="text" name="LouHB_LianXiFS<%=i%>" size="10"></td>
    <td align="center"><input type="text" name="LouHB_BeiZhu<%=i%>" size="10"></td>
  </tr>
  <%Next%>
  <tr>
    <td height="30" colspan="10" align="center">
    <input type="submit" name="button2" id="button2" value="保　　存" class="btn3_mouseup">
    <input type="hidden" name="LouHB_AnJianID" value="<%=L_AnJianID%>">
    <input type="hidden" name="LouHB_RY" value="<%=RY%>">
    <input type="hidden" name="QX_CaiDanID" value="<%=QX_CaiDanID%>">
    </td>
    </tr>
  </form>
</table>
<%
End If
Call Copy()
%>