<% Option Explicit %>
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.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"),"P0703") then Call ReturnError1()
Dim ID,Sql,IDArray,i
ID = Request("ID")
IDArray = Split(ID,"*")
for i = LBound(IDArray) to UBound(IDArray)
	if IDArray(i) <> "" then
		Sql = "Delete from FlowStatistic Where ID="+IDArray(i)
		Conn.Execute(Sql)
	end if
next
if Err.Number = 0 then
	Response.Write("<script>alert(""删除成功"");window.close();</script>")
	Response.End
else
	Response.Write("<script>alert(""未能成功删除记录,请刷新页面"");window.close();</script>")
	Response.End
end if
Set Conn = Nothing
%>