| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 707 人关注过本帖
标题:发表一个删除用编辑器添加内容中图片的东东
只看楼主 加入收藏
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
收藏
 问题点数:0 回复次数:6 
发表一个删除用编辑器添加内容中图片的东东
如题:
<% function fd(str)
bb=split(str,"<img")
for i=0 to ubound(bb)
 cc=bb(i)
 bc=split(cc," ")
 for j=0 to ubound(bc)
  bj=bc(j)
  if instr(bj,"=")<>0 then
   bk=split(bj,"=")
   if instr(bk(1),".gif")<>0 or instr(bk(1),".jpg")<>0 or instr(bk(1),".bmp")<>0 then
   fd=fd&replace(bk(1),"""","")&"|"
   end if
  end if
 next
next
end function %>
fdimg=fd(rs("con"))
 set fso=server.CreateObject("scripting.filesystemobject")
 if fdimg<>"" and instr(fdimg,"|")<>0 then
  fimg=split(fdimg,"|")
   for b=0 to ubound(fimg)-1
    if fso.fileexists(fm)=true then
    fso.deletefile fm
    end if
   next
 end if
搜索更多相关主题的帖子: 编辑器 东东 删除 
2005-07-26 17:37
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
收藏
得分:0 
说明一下: fd(str) 是将新闻内容中的图片路径按 "地址|地址|" 的格式取出,如果: "uploadfile/2005102512012.gif|uploadfile/2005102512012.jpg|" 后面的代码就是用循环删除 老大,有时间给完善一下,

我很菜,但我很努力!
2005-07-26 17:40
caiyakang
Rank: 2
等 级:新手上路
威 望:5
帖 子:2111
专家分:0
注 册:2005-3-24
收藏
得分:0 
你好久没来了.

中国人的财富网:http://www..cn/
2005-07-26 17:45
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
收藏
得分:0 
是呀,这一阵子公司接了一批网站,
都快累死了!

我很菜,但我很努力!
2005-07-26 17:47
suyongtao
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:33
帖 子:8674
专家分:127
注 册:2004-11-6
收藏
得分:0 
长工资没?

面朝大海,春暖花开!
2005-07-26 17:51
caiyakang
Rank: 2
等 级:新手上路
威 望:5
帖 子:2111
专家分:0
注 册:2005-3-24
收藏
得分:0 
我直接下别人的代码改

中国人的财富网:http://www..cn/
2005-07-26 18:03
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
收藏
得分:0 
以下是引用suyongtao在2005-7-26 17:51:45的发言: 长工资没?
就长了那么一点点, 郁闷

我很菜,但我很努力!
2005-07-26 18:36
快速回复:发表一个删除用编辑器添加内容中图片的东东
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027288 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved