1.9w+
社区成员
35.7w+
社区内容
- 主页
为什么我这个删除文件代码不对呀？
<!--#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")
%>