<%
'去掉HTML标记
Public Function ReplaceHTML(Textstr)
Dim Str, re
Str = Textstr
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
Str = re.Replace(Str, "")
Set Re = Nothing
ReplaceHTML = Str
End Function
%>
'去掉HTML标记
Public Function ReplaceHTML(Textstr)
Dim Str, re
Str = Textstr
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
Str = re.Replace(Str, "")
Set Re = Nothing
ReplaceHTML = Str
End Function
%>
以上就是ASP常用函数:ReplaceHTML的详细内容，更多请关注0133技术站其它相关文章！
