link_log_del.asp

来自「适用于网络/信息企业」· ASP 代码 · 共 38 行

<!--#include file="../INC/Conn.asp"-->
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/public.asp"-->
<%
dim Makking
Makking = Trim(Request.QueryString("Makking"))    
'---------------------------------
select case Makking
case ""

Set Rs = Conn.Execute("Select * From Link_Log where Link_Log_ID = '"& Request.QueryString("ID") &"'")

IF Not(Rs.eof and Rs.bof) Then

	IF Trim(Rs("Auditing")) = "已审核" Then

	Response.Write("本记录已存档，已不能进行修改与删除等操作")
	Response.End()
	
	END IF

End IF

Rs.Close

Set Rs = Nothing

Conn.Execute("Delete Link_Log where Link_Log_ID = '"& Request.QueryString("ID") &"'")

Response.Write "<script>window.opener.location.reload();window.close();</script>"
Response.End

end select
Conn.Close
Set Conn = Nothing

%>