delfor.asp

一套比较完整的内部技术支持全部源代码,请大家共同分享

<%
if session("currentpath")="" or session("yyj_name")="" then
   response.redirect "exit.asp"
end if
'判断开始
if request.querystring("folder")="" then
    response.redirect "error.asp"
else
   folder=request.querystring("folder")
end if
path=session("currentpath")&folder
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if not fs.FolderExists(path) then
	Response.Redirect "error.asp"
	Response.End
else
	fs.DeleteFolder(path)
end if
dim str
str=server.urlencode(session("zipath"))
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript>
alert("删除成功");
this.location.href="list.asp?url=<%=str%>";
</script>