delfile.asp

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

<%
if session("currentpath")="" or session("yyj_name")="" then
   response.redirect "exit.asp"
end if
'判断开始
if request.querystring("filename")="" then
    response.redirect "error.asp"
else
   filename=request.querystring("filename")
end if
path=session("currentpath")&session("zipath")&"\"&filename
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then  '确定文件夹文件所在文件夹是否存在！
	Response.Redirect "error.asp"                          '不存在的情况一般不会出现，除非是用户故意捣蛋！
	Response.End
else
	fs.DeleteFile(path)
end if
dim str
str=server.urlencode(session("zipath"))
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript>
alert("删除成功");
parent.list.location.href="list.asp?url=<%=str%>";
</script>