delfolderin.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 55 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../inc/safe.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"

if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if

'权限限制^^^^^^^^^^^^^^^^^^^^
 dim ishavegant
 ishavegant=false
 in_str=split(session("masterflag"),",")
 for each ins in in_str
 if trim(ins)="101" then 
 ishavegant=true
 end if
 next 
 if ishavegant=false then
 response.redirect "../err.asp"
 response.end
 end if
 
 dir=Replace_Text(request("dir"))
 if dir<>"" then 
   '------------------------ 
  path=Server.MapPath(HOPE_InstallDir&dir) 
  response.Write(path&"<br>")
 	set fs = YXFSO
	set folder = fs.GetFolder(path) 
	for each items in folder.Files 
	url = items

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