欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-20 13:24:58
采用双重循环。把图片进行“.”分割后名字问前面部分,那其余数据库中的 图片路径记录进行对比 采用vb的instr函数 如果存在的话返回值>0,过可以得出结论 代码如下...
采用双重循环。把图片进行“.”分割后名字问前面部分,那其余数据库中的 图片路径记录进行对比
采用vb的instr函数 如果存在的话返回值>0,过可以得出结论
代码如下deal.asp
复制代码 代码如下:

<%@ 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 对象实例内存空间
%>

来自: