ASP去掉所有HTML标签,但需保留里面的标签,其它的可以全部去掉。

wdmcsoft 2014-10-14 08:43:52
ASP去掉所有HTML标签,但需保留里面的<a>标签,其它的可以全部去掉。如何搞?
...全文
372 17 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
str="<a href=""a.htm"">a.htm</a><div>afefe</div>feaa<b>bbb</b><a href=http://www.baidu.com id=""ggg"">ggg</a><abbr>测试</abbr>"
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(<(?!/?a(\s|>))[^>]*>)"
str=re.replace(str," ")
response.Write str
set re=nothing

就只用这个正则就可以了
用这个应该会完善点

当然,如果你想保留多个标签的可以这么做:
(<(?!/?(a|p|b)(\s|>))[^>]*>)

正则改成这样就可以保留多个标签了
  • 打赏
  • 举报
回复
引用 楼主 wdmcsoft 的回复:
ASP去掉所有HTML标签,但需保留里面的<a>标签,其它的可以全部去掉。如何搞?
str="<a href=""a.htm"">a.htm</a><div>afefe</div>feaa<b>bbb</b><a href=http://www.baidu.com id=""ggg"">ggg</a>"
Set re=new RegExp   
 re.IgnoreCase =true   
 re.Global=True   
 re.Pattern="(<(\/){0,1}[^<>a]*>)"   
 str=re.replace(str," ")   
 response.Write str 
 set re=nothing
  • 打赏
  • 举报
回复
这个只要一个正则就可以实现了吧
xcgh 2014-10-18
  • 打赏
  • 举报
回复
(?i)<a\\s.*?href=\"([^\"]+)\"[^>]*>([\\s\\S]*?)</a>
twwlcn 2014-10-16
  • 打赏
  • 举报
回复
用正则表答 你可以下载YIDACMS学习一下
  • 打赏
  • 举报
回复
引用 10 楼 wdmcsoft 的回复:
我不会写这种规则啊,你能不能写一个出来啊!谢谢SHOWBO
你要做的就是更换s变量的内容,直接写死字符串在代码里面你要对"进行转义 如果读数据就不需要转义了,直接赋值给变量s
心灵天空 2014-10-15
  • 打赏
  • 举报
回复
'清除格式只显示文字 function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)" str=re.replace(str," ") nohtml=str set re=nothing end function 至于保留<a>。自己再想想吧
wdmcsoft 2014-10-15
  • 打赏
  • 举报
回复
SHOWBO老大,好像可以了。非常感谢!我再试试
wdmcsoft 2014-10-15
  • 打赏
  • 举报
回复
我不会写这种规则啊,你能不能写一个出来啊!谢谢SHOWBO
  • 打赏
  • 举报
回复
引用 8 楼 wdmcsoft 的回复:
里面有双引号,转换的时侯就出错
你读数据库存一个变量里面啊,你直接写死在代码里面"要转义过。。一个"变为2个""
wdmcsoft 2014-10-15
  • 打赏
  • 举报
回复
里面有双引号,转换的时侯就出错
wdmcsoft 2014-10-15
  • 打赏
  • 举报
回复
我贴一段要转换的内容,我的内容几乎全是这种的。
<p><font size="2"><img alt="" src="[InstallDir_ChannelDir]UploadPic/2008-10/2008102418253197406.jpg" /></font></p><p><font size="2">宋朝仁宗皇帝执政期间,以徐良、蒋平、白芸瑞为首的三侠、七杰、小五义等众开封府校尉,在八王赵德芳、包拯、颜查散等清官的支持下,为保国泰民安而不顾个人安危,抗强暴、战邪恶、捣匪巢、灭贼寇,在众多武林豪杰的大力协助下,先后与勾结外匪、图谋反叛的阎王寨众贼、三教堂恶徒、三仙岛凶僧魔头展开了生死搏斗,其间还不断遭受奸臣陷害,屡屡背腹受敌,身处险境。但众英雄义士不畏艰险、舍生忘死、爱憎分明、有勇有谋,利用高超的斗争艺术与惊人的武艺,最终消灭顽敌,为国为民立下不朽功勋。</font></p><p><font size="2"><font color="#ff0000">这套评书是我</font><span style="font-family: 宋体; font-size: 10pt; mso-hansi-font-family: 'Times New Roman'; mso-bidi-font-family: 宋体; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN"><font color="#ff0000">自己花钱高价购买的原版评书磁带,然后转录制作的128K原版音质评书MP3,并非网络32K压缩评书,32K的音质勉强能听而已有闷杂音!</font></span></font></p><p><font size="2"><font color="#000000">本套评书共16CD,全书320回</font>,<font color="#000099"><font style="background-color: #333366" color="#66ff00">MP3格式采用128Kbps/44KHz立体声制作,</font><font face="黑体"><font style="background-color: #333366" color="#66ff00">音质超清晰</font><font face="Times New Roman">.</font></font></font><font color="#000000">经过专业降噪、压限、分贝处理,确保音质高清晰。你可以拷到mp3随身听上播放,可以在带有mp3功能的VCD播放器上播放,也可以在电脑上直接播</font>放。</font></p>
slwsss 2014-10-15
  • 打赏
  • 举报
回复
引用 4 楼 wdmcsoft 的回复:
showbo这个代码可以,但是我的内容里包含了太多标签,比如双引号"",还有<DIV><FONT><P>....等等之类的标签。 现在执行这段代码,遇到双引号就会出错!
怎么出错?哪个环节错了
wdmcsoft 2014-10-15
  • 打赏
  • 举报
回复
高手在哪里啊
wdmcsoft 2014-10-15
  • 打赏
  • 举报
回复
showbo这个代码可以,但是我的内容里包含了太多标签,比如双引号"",还有<DIV><FONT><P>....等等之类的标签。 现在执行这段代码,遇到双引号就会出错!
  • 打赏
  • 举报
回复
s="<a href=""a.htm"">a.htm</a><div>afefe</div>feaa<b>bbb</b><a href=http://www.baidu.com id=""ggg"">ggg</a>"
set rx=new RegExp
rx.Global=true
rx.IgnoreCase=true
rx.Pattern="<[^>]+>"'取出所有标签
set mc=rx.Execute(s)
for each m in mc
  if instr(lcase(cstr(m)),"<a ")=0 and instr(lcase(cstr(m)),"</a")=0 then'分组不是a标签替换掉
    s=replace(s,m,"")
  end if
next
set rx=nothing
response.Write s
wdmcsoft 2014-10-14
  • 打赏
  • 举报
回复
有没有高手在啊

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧