asp删除mssql数据库中没有记录的图片代码

<%@ language="vbscript"%>
<%response.expires = 0%>
<!--#include file="conn.asp"-->
<%
dim objfso,objfolder,objfile,ff '声明 objfso 变量存放对象实例
ff = server.mappath("pro_s/")
set objfso = server.createobject("scripting.filesystemobject")
if objfso.folderexists(ff) then
response.write "文件夹 "&ff&" 里所有的文件：<br>"
set objfolder = objfso.getfolder(ff)

for each objfile in objfolder.files
%>
    <%
        filename=cstr(objfile.name)
        myname=split(filename,".")
        ffname=myname(0)
        a=0
        set sclass=conn.execute("select img from wksc_pro ")
        do while not sclass.eof

        result=instr(sclass("img"),ffname)
        a=a+result
        if(a>0) then
            exit do
        end if

        sclass.movenext
        loop
        if(a=0) then
        response.write ""&objfile&""
        response.write"<br>"
        objfile.delete

        end if
    %>
<%
next
else
response.write "文件夹"&ff&"不存在，无法读取相关信息！"
end if
set objfolder = nothing
set objfso = nothing '释放 filesystemobject 对象实例内存空间
%>