冷冻粉碎机规格:asp+BBS版本FSO 文件删除问题

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 00:38:35
BBS用FSO发出文章后,后台删除文章,可以删除,空间的HTML文件却还在?
有什么办法删除空间的HTML文件。
BBS版本演示:http://www.zzz168.com/fso/
BBS版本下载:http://www.zzz168.com/bbsver12.rar
删除文章的文件代码如下:
<!--#include file="include/head_check.asp" -->
<!--#include file="conn.asp" -->
<%
'on error resume next
id=StrToNum(Request.QueryString("id"))
id0=Request.Form("del")
set rs = Server.CreateObject("ADODB.Recordset")
if id>0 then
conn.execute "delete from [bbs] where id="&id
rs.open "select title,content from [bbs] where id="&id,conn,1,1
if not rs.eof then
url_return "删除帖子失败!请与管理员联系。",-1
else
Alert_Redirect "删除帖子成功!","list.asp"
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
elseif id0<>"" then
sql="delete from bbs where id in ("&id0&")"
conn.execute sql
Alert_Redirect "删除帖子成功!","list.asp"
conn.close
set conn = nothing
else
url_return "非法进入!请与管理员联系。",-1
end if
%>

fso删除
fso删除文件

一:物理路径

<%
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "D:\cdqn\html\sjk\a.txt"
%>

二:相对路径

<%
set fso=Server.CreateObject("scripting.filesystemobject")
fileName="a.txt"
myFile=Server.MapPath(fileName)
if fso.FileExists(myFile) then
fso.DeleteFile myFile
end if
set fso=Nothing

%>