一个过滤html标签的问题

Question

var s = '<a href="index.htm">1111</a>';
s = s.replace(/<[^>]+>/g, "");
alert(s);

Answer 1

Function KillHTMLLabel(str) Dim n,m,str2
n = inStr(str,"<")
m = inStr(str,">")
str2 = str
Do while n > 0 and n < m
str2 = Left(str2,n-1) & Mid(str2,m+1)
n = inStr(str2,"<")
m = inStr(str2,">")
Loop
KillHTMLLabel = str2End Function
Dim a
a="<a href="index.htm">1111</a>"
response.write KillHTMLLabel(a)