【www.gdgbn.com--php函数】

function killhtmllabel(str) "函数开始
dim n,m,str2 "定义三个变量
n = instr(str,"<") "找到第一个"<"所在的位置
m = instr(str,">") "找到第一个">"所在的位置
str2 = str "把str的值赋给str2
do while n > 0 and n < m "如果n>0则说明找到了一个"<",如果n"的左边，则"<"和">"之间的字符串为html代码，需要过滤掉
str2 = left(str2,n-1) & mid(str2,m+1) "取"<"左边的字符串和">"右边的字符串并将他们连接在一起
n = instr(str2,"<") "找到剩余字符串中第一个"<"所在的位置
m = instr(str2,">") "找到剩余字符串中第一个">"所在的位置
loop "循环
killhtmllabel = str2 "将过滤好的字符串返回。
end function "结束。

本文来源：http://www.gdgbn.com/jiaocheng/27867/