delfile.asp

来自「asp+access的电影免费网站源码是个很好的学习例子大家可以下来学习」· ASP 代码 · 共 25 行

<!--#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
%>