28,391
社区成员
发帖
与我相关
我的任务
分享
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|>))[^>]*>)
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
<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>
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