unregulatedel.asp

asp源码 图片ASP整站

<% Option Explicit %>
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P031403") then Call ReturnError1()
Dim ItemID
ItemID = Replace(Request.QueryString("ItemID"),"***",",")
Conn.Execute("Delete From [FS_UnRGLNews] Where ID in ("&ItemID&")")
Response.write "<script>alert('删除成功');parent.location.reload();</script>"
set conn = nothing
%>