<!--#include file="../Lib/Config.asp"-->
<!--#include file="../Lib/DBConn.asp"-->
<!--#include file="../Lib/DBLib.asp"-->
<!--#include file="../Lib/func.asp"-->

<%

'###########################################################################################
'파일 삭제
'###########################################################################################
 Function DeleteFile(filePath)

 	Dim oFSO
 	Set oFSO = Server.CreateObject("Scripting.FileSystemObject")

	oFSO.DeleteFile Server.MapPath(filePath)
	
	Set oFSO = Nothing
	
 End Function

	Dim XMLD,XMLC
	XMLD = Request("XMLD")
	XMLC = 0

	Dim XMLFlag
	XMLFlag = true

	'없는 경우 하나만 삭제
	'GMI인 경우 소스수정필요
	If InStr(XMLD,"∑")<1 Then
		 DeleteFile("../Data/"&XMLD&".XML")
		 XMLFlag = false
	Else
		XMLD = Split(XMLD,"∑")

		For XMLC = 0 To UBound(XMLC)-1
			DeleteFile("../Data/"&XMLD(XMLC)&".XML")			
			XMLFlag = false
		Next
	End If
	
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" type="text/css" href="../css/style.css" >
<script type="text/javascript" src="js/apprise-1.5.min.js"></script>
<script type="text/javascript" language="javascript">
<!--

<% if XMLFlag = false Then %>
	alert("요청해 주신 XML 파일이 삭제되었습니다.");			
<% Else %>
	alert("요청해 주신 XML이 존재하지 않거나, 삭제되지 않았습니다.");			
<% End if %>

	location.href="XML.asp";

//-->
</script>
</head>
</html>
