Question

asp 如何做到在修改删除图片代码

我用asp写左个修改页面，可以修改所以资料包括图片，但是现在我想在修改图片在数据库噶路径噶同时，把原来的图片都删除

Answer 1

<%
c_id = request.querystring("c_id")
sql = "Select * from c_news where c_id="&c_id
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3
filepath=rs("c_filepath")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.mappath(filepath))
Set fso = nothing
rs.delete
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>

用FileSystemObject对象的FileExists方法。
这样的操作封装成一个过程会更好
sub DeleteFile(path)
path = server.mappath(path)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(path) Then fso.DeleteFile(path)
set fso=nothing
end sub
参数说明：path为要删除的文件的虚目录，如果是实路径，请修改DeleteFile中的相关代码
调用说明：
DeleteFile "../mypic/pic.jpg"
或 DeleteFile mypic_Path
====================================================================
一：物理路径

<%
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "c:\pic\1.jpg"
%>

二：如果是相对路径

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

%>
==================================================

可同时删除多条记录,多张图片!

去时Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * from 表名 where id in ("&读取ID&")",conn,1,3
Set Fso = Server.CreateObject("Scripting.FilesystemObject")
Do While Not Rs.eof '循环所有满足条作记录
ImgPathx = Server.MapPath("../"&Rs("picx"))＇获取图片实际路径小图
ImgPathd = Server.MapPath("../"&Rs("picd"))＇获取图片实际路径大图
if (fso.fileexists(imgpathx) or fso.fileexists(imgpathd)) = true Then'图片存在时删图片
Fso.deletefile (imgpathx)
Fso.deletefile (imgpathd)
End If
rs.delete
rs.update
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing

Answer 2

楼上好厉害。。。写着么多。。。
我怕麻烦，你可以加我QQ，我把我自己写的发给你吧。