lhb_shanchuaj.asp

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

<!-- #include file="../inc/LHB_Check_Session.asp" -->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/LHB_Check_Action.asp"-->
<%
'==================================================================
'　　************** 思翔 派出所案件管理系统 ***************
'　　文件名：LHB_ShanChuAJ.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_AnJianID")

If Len(L_ID)<1 Then L_CuoWu("删除失败！原因：案件未选择。")

Del1 = "delete from LHB_SheAnRenXX where L_AnJianID="&L_ID
Louconn.Execute Del1
Set Del1=Nothing
Set Lours=server.createobject("adodb.recordset")
Sql="Select ID From LHB_AnJianXX"
Lours.Open Sql,LouConn,1,1
If Not(Lours.BOF And Lours.EOF)Then
Del = "delete from LHB_AnJianXX where ID="&L_ID
Louconn.Execute Del
Set Del=Nothing
End If
Lours.Close
Set Lours=Nothing
LouConn.Close
set Louconn = nothing


L_Jump="index.asp"
response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜，操作成功！');</script>"
response.write "<form action="""&L_Jump&""" method=""GET"" name=""Form"">" 
response.write "<input type=""hidden"" name=""QX_CaiDanID"" value="""&QX_CaiDanID&""">"
response.write "</form>"
Response.Write "<Script Language=""JavaScript"">" & chr(13) & "document.Form.submit();" & chr(13) & "</Script>"
Response.End
%>