delfile.asp

千年免费电影系统 V3.0版 在程序上借鉴了很多优秀电影系统的功能

<!--#include file="security.asp"-->
<%if session("flag")>1 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if%>
<%
if request("id")="" then
response.write "发生错误,点击 <a href='javascript:window.close()'>这里关闭</a>"
else
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(server.mappath("..\html\"&request("id")&".html")) then
response.write  "操作失败,文件未找到,点击 <a href='javascript:window.close()'>这里关闭</a>"&filename&""
else
fso.DeleteFile server.mappath("..\html\"&request("id")&".html")
set fso=nothing%>
操作成功
<script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 600);
// -->
</script>
<%
end if
end if
%>