删除冗余文件

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="Conndb.asp"-->

<%Sub   DelSpilthFile(Table,tField,FilePath)  
     '***********************************************  
  '过程名：DelSpilthFile  
  '作 用：删除数据库里冗余的上传文件  
  '参 数：Table:数据表  
  ' tField:图片字段名  
  ' FilePath:图片相对文件夹  
   

  '***********************************************  
      Dim   FileUrl,fso,f,fc,fi,fu,ff,fb  
   
      sql   =   "Select   *   From   ["   &   Table   &   "]"  
      Set   Rs   =   Server.CreateObject("Adodb.RecordSet")  
      Rs.Open   sql,conn,1,1  
      Do   While   Not   Rs.Eof  
        fb     =   Split(tField,",")  
        For   Each   ff   in   fb  
          If   Rs(ff)   <>   ""   and   Not   IsNull(Rs(ff))   Then  
            fu   =   fu   &   Rs(ff)  
            fu   =   fu   &   "|"  
          End   If  
        Next  
        Rs.MoveNext  
      Loop  
      Rs.Close  
      Set   Rs   =   Nothing  
   
      FileUrl   =   Server.MapPath(FilePath)  
      Set   fso   =   Server.CreateObject("Scripting.FileSystemObject")  
      Set   f     =   fso.GetFolder(FileUrl)  
      Set   fc   =   f.Files  
      For   Each   fi   in   fc  
        If   InStr(fu,fi.name   &   "|")   =   0   Then  
          If   fso.FileExists(fi)   Then  
            fso.DeleteFile(fi)       '删除文件  
          End   If  
        End   If  
      Next  
       
      Set   fso   =   Nothing  
      Set   f     =   Nothing  
      Set   fc   =   Nothing  
  End   Sub  
%>   
   
  Example:  
<% Call   DelSpilthFile("product","DefaultPicUrl","../UpLoadFiles/") %>

转载于:https://www.cnblogs.com/ajuanabc/archive/2007/06/05/2463828.html