• Register

删除网站里无用的图片

某产品管理系统做的不完善,删除产品记录的时候,指定图片没有删除,现在要来个大清理。

<!--#include file="inc/conn.asp"-->

<%

Dim strSql,currentPath

Dim Fso

Set Fso = Server.CreateObject("Scripting.FileSystemObject")

Dim Fol

currentPath = Server.MapPath("product_pic")

If Fso.FolderExists(currentPath) Then

Dim RS

Set RS = Server.CreateObject("ADODB.RecordSet")

Set Fol=Fso.GetFolder(currentPath)

Set Fles=Fol.Files

For Each Item In Fles

strSql = "Select * from product where productPicture='" & Item.Name & "'"

RS.Open strSql,conn

If RS.EOF Then

Fso.DeleteFile currentPath & "\" & Item.Name

End If

RS.Close

Next

Set RS = nothing

Else

Response.Write "目录不存在。"

Response.End

End If

conn.close

Set conn = nothing

%>

清理完毕

版权声明:转载请注明来自杨俊伟博客,本文地址:http://yangjunwei.com/a/28.html
除非注明,杨俊伟博客文章均为原创,转载请注明出处和链接!
 

发表评论 

我还是想用邮箱注册

登录

忘记密码 ?

用第三方帐号快捷登录

已有账户?前往登录吧~

注册