28,409
社区成员
发帖
与我相关
我的任务
分享为什么我这个删除文件代码不对呀？
<!--#include file="conn.asp"-->
<%
sub DeleteFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
else
fs.DeleteFile(path)
end if
end sub
set rs=server.createobject("adodb.recordset")
sql="select * from documents where id="&request("ID")
rs.open sql,conn,1,1
response.Write(rs("cailiao1"))
call DeleteFile("UpLoadFile/"&rs("cailiao1")&"")
response.Write("success")
%>
<%
sub DeleteFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
else
fs.DeleteFile(path)
end if
end sub
set rs=server.createobject("adodb.recordset")
sql="select * from documents where id="&request("ID")
rs.open sql,conn,1,1
response.Write(rs("cailiao1"))
call DeleteFile("UpLoadFile/"&rs("cailiao1")&"")
response.Write("success")
%>
...全文
请发表友善的回复…
发表回复
zerodawn77 2005-03-20
- 打赏
- 举报
ok，结贴
bluemoon0001 2005-03-20
- 打赏
- 举报
<!--#include file="conn.asp"-->
<%
sub DeleteFile(path)
dim fs, file
path=Server.mapPath(path)
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
else
fs.DeleteFile(path)
end if
end sub
set rs=server.createobject("adodb.recordset")
sql="select * from documents where id="&request("ID")
rs.open sql,conn,1,1
response.Write(rs("cailiao1"))
call DeleteFile("UpLoadFile/"&rs("cailiao1")&"")
response.Write("success")
%>
<%
sub DeleteFile(path)
dim fs, file
path=Server.mapPath(path)
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
else
fs.DeleteFile(path)
end if
end sub
set rs=server.createobject("adodb.recordset")
sql="select * from documents where id="&request("ID")
rs.open sql,conn,1,1
response.Write(rs("cailiao1"))
call DeleteFile("UpLoadFile/"&rs("cailiao1")&"")
response.Write("success")
%>
