asp 图片删除问题

来源：百度知道 编辑：UC知道 时间：2024/05/22 05:30:38
代码如下

set rs=conn.execute("select * from products where pid="&id)
filename= Server.MapPath("../file/img/"&rs("picture"))

Do While Not rs.Eof
'删除图片
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
If (MyFileObject.FileExists( trim(filename))) Then
MyFileObject.DeleteFile trim(filename)
End If
rs.MoveNext()
Loop

若想在if中添加条件 不能删除名为example.jpg的图片 要怎么写呢？

在循环外 先建立对象
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
你每次循环都建立一次对象对您的服务器资源是极大的浪费,同时还影响您的页面工作效率

set rs=conn.execute("select * from products where pid="&id)
filename= Server.MapPath("../file/img/"&rs("picture"))

Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Do While Not rs.Eof
'删除图片
if trim(rs("picture"))<>"example.jpg" then
If (MyFileObject.FileExists( trim(filename))) Then
MyFileObject.DeleteFile trim(filename)
End If
end if
rs.MoveNext()
Loop