📄 lhb_tianjiaaj.asp

📁 派出所案件管理系统 20080728 　　用于派出所内部管理案件信息
💻 ASP
字号:
<!-- #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"-->
<!--#include file="../inc/LHB_KeShi_QX.asp"-->
<%
'==================================================================
'　　************** 思翔 派出所案件管理系统 ***************
'　　文件名：LHB_TianJiaAJ.asp
'　　作用：添加案件信息
'　　作者：搜捕者
'　　网站：思翔　http://www.sxang.cn
'　　联系：QQ:7937080
'　　邮件：soubuzhe@hotmail.com MSN 
'　　更新日期：2008年7月28日（搜捕者）
'　　版权：源代码公开，允许自行修改，但自行修改造成的后果自负
'　　使用该软件必须保留软件作者的版权声明，将该软件从原有自然
'　　语言文字转换成另一自然语言文字的，仍应注明出处。
'　　************************************************
'==================================================================

OO_URL=Request.ServerVariables("HTTP_REFERER")
OO_URL=split(OO_URL,"/")
LL=UBound(OO_URL,1)
LL_URL=OO_URL(LL) '得到当前页文件名
LL_URL=left(LL_URL,9)
L_ID=Request("LouHB_AnJianID")
If LL_URL="index.asp" And L_ID="" Then L_CuoWu("案件未选择！请返回选择案件后再修改！")
Select Case Request.ServerVariables("REQUEST_METHOD")
Case "POST"
L_AnJianXZ=Request("LouHB_AnJianXZ")
L_AnJianXZ_FLBM=25
L_AnJianQK=Request("LouHB_AnJianQK")
L_AnJianRQ=Request("LouHB_AnJianRQ")
L_AnJianLB=Request("LouHB_AnJianLB")
L_AnJianLB_FLBM=26
L_KeShi=Request("LouHB_KeShi")
L_KeShi_FLBM=2
L_RuLuRQ=Request("LouHB_RuLuRQ")
L_TianBiaoR=Session("LHB_YongHuID")

Sub L_CuoWu(LouHB_CuoWu)
if LouHB_CuoWu <> "" then Response.Write("<script>alert('" & LouHB_CuoWu & "');history.back();</script>")
Response.End
End Sub

If L_AnJianXZ="00000" Then L_CuoWu("案件性质未选择！")
If L_AnJianLB="00000" Then L_CuoWu("案件类别未选择！")
If L_KeShi="00000" Then L_CuoWu("科室未选择！")

If L_ID="" Then
Set Lours=server.createobject("adodb.recordset")
Sql="Select * From LHB_AnJianXX order by ID desc"
Lours.Open Sql,LouConn,1,1
If Lours.BOF And Lours.EOF Then
L_ID=1
Else
L_ID=Lours("ID")+1
End If
Lours.Close
Set Lours=Nothing

Save="insert into LHB_AnJianXX(ID,L_AnJianXZ,L_AnJianQK,L_AnJianRQ,L_AnJianLB,L_KeShi,L_RuLuRQ,L_TianBiaoR,L_AnJianLB_FLBM,L_AnJianXZ_FLBM,L_KeShi_FLBM) values("&L_ID&","&L_AnJianXZ&",'"&L_AnJianQK&"','"&L_AnJianRQ&"',"&L_AnJianLB&","&L_KeShi&",'"&L_RuLuRQ&"',"&L_TianBiaoR&","&L_AnJianLB_FLBM&","&L_AnJianXZ_FLBM&","&L_KeShi_FLBM&")"
'Response.write Save
'Response.End
Louconn.execute(Save)
Set Save=Nothing

Else
Set Lours=server.createobject("adodb.recordset")
Sql="Select * From LHB_AnJianXX where ID="&L_ID
Lours.Open Sql,LouConn,1,3
If Not(Lours.BOF And Lours.EOF)Then
Lours("L_AnJianXZ")=L_AnJianXZ
Lours("L_AnJianQK")=L_AnJianQK
Lours("L_AnJianRQ")=L_AnJianRQ
Lours("L_AnJianLB")=L_AnJianLB
Lours("L_KeShi")=L_KeShi
Lours("L_RuLuRQ")=L_RuLuRQ
Lours.update
End If
Lours.Close
Set Lours=Nothing
End If

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"-->
<%
If L_ID<>"" Then
Set Lours=server.createobject("adodb.recordset")
Sql="Select * From LHB_AnJianXX where ID="&L_ID
Lours.Open Sql,LouConn,1,1
If Not(Lours.BOF And Lours.EOF)Then
L_AnJianXZ=Lours("L_AnJianXZ")
L_AnJianQK=Lours("L_AnJianQK")
L_AnJianRQ=Lours("L_AnJianRQ")
L_AnJianLB=Lours("L_AnJianLB")
L_KeShi=Lours("L_KeShi")
L_RuLuRQ=Lours("L_RuLuRQ")
L_ID=Lours("ID")
End If
Lours.Close
Set Lours=Nothing
End If
If L_AnJianRQ="" Then L_AnJianRQ=Date()
If L_RuLuRQ="" Then L_RuLuRQ=Date()
%>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="">
  <tr>
    <td height="30" colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td width="175" height="30" align="right">案件性质：</td>
    <td width="425">
    <select name="LouHB_AnJianXZ" class="button1">
    <option value="00000">请选择案件性质</option>
    <%
	Set Lours=server.createobject("adodb.recordset")
	Sql="Select * From LHB_GongYong where L_FenLeiBM=25"
	Lours.Open Sql,LouConn,1,1
	If Not(Lours.BOF And Lours.EOF) Then
	Do while Not Lours.EOF
	response.write"<option value="&Lours("L_MingChengBM")&" "
	If Lours("L_MingChengBM")-L_AnJianXZ=0 Then
	response.write"selected"
	End If
	response.write">"&Lours("L_MingCheng")&"</option>"
	Lours.movenext
    Loop
	End If
	Lours.Close
	Set Lours=Nothing
	%>
    </select></td>
  </tr>
  <tr>
    <td height="30" align="right">案件情况：</td>
    <td><textarea name="LouHB_AnJianQK" cols="50" rows="8" id="LouHB_AnJianQK" class="button1"><%=L_AnJianQK%></textarea></td>
  </tr>
  <tr>
    <td height="30" align="right">案件时间：</td>
    <td><input type="text" name="LouHB_AnJianRQ" id="LouHB_AnJianRQ" value="<%=L_AnJianRQ%>" class="button1" onFocus="calendar()"></td>
  </tr>
  <tr>
    <td height="30" align="right">类别：</td>
    <td><select name="LouHB_AnJianLB" class="button1">
      <option value="00000">请选择类别</option>
      <%
	Set Lours=server.createobject("adodb.recordset")
	Sql="Select * From LHB_GongYong where L_FenLeiBM=26"
	Lours.Open Sql,LouConn,1,1
	If Not(Lours.BOF And Lours.EOF) Then
	Do while Not Lours.EOF
	response.write"<option value="&Lours("L_MingChengBM")&" "
	If Lours("L_MingChengBM")-L_AnJianLB=0 Then
	response.write"selected"
	End If
	response.write">"&Lours("L_MingCheng")&"</option>"
	Lours.movenext
    Loop
	End If
	Lours.Close
	Set Lours=Nothing
	%>
    </select></td>
  </tr>
  <tr>
    <td height="30" align="right">科室：</td>
    <td>
    <select name="LouHB_KeShi" class="button1">
    <option value="00000">请选择科室</option>
    <%
	Set Lours=server.createobject("adodb.recordset")
	Sql="Select * From LHB_GongYong where L_FenLeiBM=2"
	If L_Sql=1 Then
	Sql=Sql&" And L_MingChengBM="&Session("LHB_KeShiBM")
	ElseIf L_Sql=2 Then
	Select Case SxangDB '判断数据库开始
	Case 1
	Sql=Sql&" And "&L_InStr&"(rtrim(L_MingChengBM),'"&L_Manage_KeShi&"')>0"
	Case 2
	Sql=Sql&" And "&L_InStr&"('"&L_Manage_KeShi&"',rtrim(L_MingChengBM))>0"
	End Select '判断数据库结束
	End If
	Lours.Open Sql,LouConn,1,1
	If Not(Lours.BOF And Lours.EOF) Then
	Do while Not Lours.EOF
	response.write"<option value="&Lours("L_MingChengBM")&" "
	If Lours("L_MingChengBM")-L_KeShi=0 Then
	response.write"selected"
	End If
	response.write">"&Lours("L_MingCheng")&"</option>"
	Lours.movenext
    Loop
	End If
	Lours.Close
	Set Lours=Nothing
	%>
    </select>
    </td>
  </tr>
  <tr>
    <td height="30" align="right">录入日期：</td>
    <td><input type="text" name="LouHB_RuLuRQ" id="LouHB_RuLuRQ" value="<%=L_RuLuRQ%>" class="button1" onFocus="calendar()"></td>
  </tr>
  <tr>
    <td height="30" colspan="2" align="center">
    <input type="submit" name="submit" id="submit" value="保&nbsp;&nbsp;&nbsp;存" class="btn3_mouseup">
    <input type="hidden" name="LouHB_ID" value="<%=L_ID%>">
    </td>
  </tr>
  </form>
</table>
<%Call Copy()%>
⌨️ 快捷键说明

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