某产品管理系统做的不完善，删除产品记录的时候，指定图片没有删除，现在要来个大清理
<!--#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
%>
清理完毕