delfile.asp
上传用户:qyswxdl
上传日期:2013-06-01
资源大小:1373k
文件大小:1k
源码类别:

家庭/个人应用

开发平台:

ASP/ASPX

  1. <!--#include file="security.asp"-->
  2. <%if session("flag")>1 then
  3. response.write "<br><p align=center>您没有操作的权限</p>"
  4. response.end
  5. end if%>
  6. <%
  7. if request("id")="" then
  8. response.write "发生错误,点击 <a href='javascript:window.close()'>这里关闭</a>"
  9. else
  10. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  11. if not fso.FileExists(server.mappath("..html"&request("id")&".html")) then
  12. response.write  "操作失败,文件未找到,点击 <a href='javascript:window.close()'>这里关闭</a>"&filename&""
  13. else
  14. fso.DeleteFile server.mappath("..html"&request("id")&".html")
  15. set fso=nothing%>
  16. 操作成功
  17. <script LANGUAGE="JavaScript">
  18. <!--
  19. setTimeout('window.close();', 600);
  20. // -->
  21. </script>
  22. <%
  23. end if
  24. end if
  25. %>