<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="101"
	dir="../err.asp" 
  %>
  <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../inc/safe.asp"-->
 <!--#include file="../rolecheck.asp"-->

<%
 if Not ChkPost then response.redirect ("../../login/chklogin.asp?login=4")
Response.Expires = 0
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"

 
 
 dir=Replace_Text(request("dir"))
 if dir<>"" then 
   '------------------------ 
  path=Server.MapPath(HOPE_InstallDir&dir) 
  	set fs = YXFSO
	set folder = fs.GetFolder(path) 
	for each items in folder.Files 
	url = items

 	 if fs.FileExists(url) then 
  	  fs.DeleteFile url,true   
	 end if 
  next 
	Set fs=NOthing
  
  '-------------------------------
 response.Redirect(request.ServerVariables("HTTP_REFERER"))
 end if
 
%>
 
