asp中取，不含 有html代码的命令或函数
如：<font color=red>中华人<B>民<B>共和国</font>
我想通过asp实现只行到字符串"中华人民共和国"
就是把html代码过虑掉。
问题点数：20、回复次数：12Top
1 楼meizz（梅花雪）回复于 2006-01-05 10:41:28 得分 0
<script language=vbscript>
str="<font color=red>中华人<B>民<B>共和国</font>"
set re=new RegExp
re.global=true
re.pattern="<[^>]+>"
str1=re.replace(str,"")
msgbox str1
</script>Top
2 楼shishi1234（孤行泪）回复于 2006-01-06 09:46:34 得分 0
用asp没有办法实现吗。Top
3 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2006-01-06 12:36:07 得分 0
<script language="VBScript">
str = "删除<span>HTML标签</span>测试"
msgbox HTMLfilter(str)
function HTMLfilter(str)
dim re
set re = new RegExp
re.Pattern = "<[^<>]*>"
re.Global = true
HTMLfilter = re.Replace(str, "")
end function
</script>
<script language="javaScript">
var str = " 删除<span>HTML标签</span>测试"
alert( HTMLfilter(str))
function HTMLfilter(str)
{
return str.replace(/<[^<>]*>/ig, "")
}
</script>
Top
4 楼spacener（空中楼阁）回复于 2006-01-06 15:44:34 得分 0
收藏ingTop
5 楼rimguncheng（asp->.net & vc 没办法）回复于 2006-01-06 16:04:32 得分 0
哦
Top
6 楼zwrtv（蝙蝠）回复于 2006-01-06 16:26:47 得分 0
路过，收藏Top
7 楼shishi1234（孤行泪）回复于 2006-01-07 18:21:25 得分 0
我只想用asp来实现啊。Top
8 楼wanglh100（悍卫钓鱼岛）回复于 2006-01-07 23:56:54 得分 2
<%
dim content, fcontent
content = "<font color=red>中华人<B>民<B>共和国</font>"
dim i, m, ch
m = 0
for i = 1 to len(content)
ch = mid(content,i,1)
if ch = "<" then
m = 1
elseif ch = ">" then
m = 0
end if
if m = 0 then
fcontent = fcontent & ch
end if
next
fcontent = replace(fcontent, ">", "")
response.Write(fcontent)
%>Top
9 楼belldandy11（路漫漫其修远兮,吾将上CSDN求索）回复于 2006-01-08 00:25:16 得分 0
不错 收藏了 谢谢Top
10 楼baoxiaohua（aksdfkajfdk）回复于 2006-01-08 09:57:07 得分 0
upTop
11 楼Hellohuan（java 好不好???）回复于 2006-01-08 10:28:34 得分 0
upTop
12 楼xuStanly（依依myLove）回复于 2006-01-08 11:54:42 得分 18
Function RemoveHTML(s) '去掉所有HTML标记
Dim re
Set re = new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
s = re.Replace(s,"")
RemoveHTML = s
set re = Nothing
End FunctionTop
