<% 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"),"P0606") then Call ReturnError()
Dim LogID,Sql,LogIDArray,i
LogID = Request("LogID")
LogIDArray = Split(LogID,"*")
for i = LBound(LogIDArray) to UBound(LogIDArray)
	if LogIDArray(i) <> "" then
		Sql = "Delete from Log Where ID="+LogIDArray(i)
		Conn.Execute(Sql)
	end if
next
if Err.Number = 0 then
	Response.Write("Delete Successfully")
else
	Response.Write("Delete Error")
end if
Set Conn = Nothing
%>