<%
'*************************************************************************************
'函数名称:filtrateHtml(str)
'作 者:Rock
'函数功能:去掉HTML标签,去掉<>之间的内容
'函数参数:str为要转换的字符串,如:filtrateHtml("<html>aaaaaa</html>")将显示aaaaaa
'*************************************************************************************
Function filtrateHtml(str)
For i = 1 To Len(str)
If Mid(str, i, 1) = "<" Then
For j = i To Len(str)
If Mid(str, j, 1) = ">" Then
i = j
Exit For
End If
Next
Else
filtrateHtml = filtrateHtml & Mid(str, i, 1)
End If
Next
End Function
%>
<%
'去除HTML标记
Function delHTML(s_string)
Dim re
Set re = New RegExp
re.Pattern = "<[^<>]*>"
re.Global = true
delHTML = re.Replace(s_string,"")
End Function
%>