有没有高手在啊

'清除格式只显示文字  
 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>。自己再想想吧

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

showbo这个代码可以，但是我的内容里包含了太多标签，比如双引号""，还有<DIV><FONT><P>....等等之类的标签。

现在执行这段代码，遇到双引号就会出错！

高手在哪里啊

引用 4 楼 wdmcsoft 的回复:

showbo这个代码可以，但是我的内容里包含了太多标签，比如双引号""，还有<DIV><FONT><P>....等等之类的标签。

现在执行这段代码，遇到双引号就会出错！

怎么出错？哪个环节错了

我贴一段要转换的内容，我的内容几乎全是这种的。

<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>

里面有双引号，转换的时侯就出错

引用 8 楼 wdmcsoft 的回复:

里面有双引号，转换的时侯就出错

你读数据库存一个变量里面啊，你直接写死在代码里面"要转义过。。一个"变为2个""

我不会写这种规则啊，你能不能写一个出来啊！谢谢SHOWBO

SHOWBO老大，好像可以了。非常感谢！我再试试

引用 10 楼 wdmcsoft 的回复:

我不会写这种规则啊，你能不能写一个出来啊！谢谢SHOWBO

你要做的就是更换s变量的内容，直接写死字符串在代码里面你要对"进行转义

如果读数据就不需要转义了，直接赋值给变量s

用正则表答  你可以下载YIDACMS学习一下

(?i)<a\\s.*?href=\"([^\"]+)\"[^>]*>([\\s\\S]*?)</a>

这个只要一个正则就可以实现了吧

引用 楼主 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

   

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|>))[^>]*>)

正则改成这样就可以保留多个标签了