这个就需要用到字符串截取来截取图片格式为 .gif .jpg 或者其他图片格式,然后统计出这个图片的个数循环调用FSO来删除
程序得到.gif后从.gif到前面的/之后整个获得图片名 N2008119153131.gif 这个文件
如果文件名有个固定的长度,那获取文件名就更容易了
程序代码:
<%
dim Centent,len1,len2,Folder,len,Fso
Centent="<img src=abc/N2008119153134.gif /><img src=abc/N2008119153133.jpg />"
Folder="abc/" '图片文件夹路径
len=14 '图片名长度,也就是 N2008119153131 有多少个字节
Set Fso=Server.CreateObject("scripting.filesystemobject") '创建FSO组件
if instr(Centent,".gif")<>0 then
len1=split(Centent,".gif")
for i=0 to UBound(len1)-1 '统计一共有多少个.gif
if Fso.FileExists(Server.Mappath(Folder&right(len1(i),len)&".gif")) then
Fso.deletefile Server.Mappath(Folder&right(len1(i),len)&".gif"),ture
end if
next
end if
if instr(Centent,".jpg")<>0 then
len2=split(Centent,".jpg")
for i=0 to UBound(len2)-1 '统计一共有多少个.jpg
if Fso.FileExists(Server.Mappath(Folder&right(len2(i),len)&".jpg")) then
Fso.deletefile Server.Mappath(Folder&right(len2(i),len)&".jpg"),ture
end if
next
end if
Set Fso=Nothing '关闭FSO组件
%>
上传的文件夹地址是固定你是知道的,所以FSO删除的时候文件夹地址你是固定写好的,只有图片名是动态的,这样只要得到图片名和格式就可以删除了,批量删除也是同理
代码刚写的还没测试,你看看
[[it] 本帖最后由 hmhz 于 2008-11-17 12:45 编辑 [/it]]