<%@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/") %>
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步