ASP常用函数:ReplaceHTML
更新时间:2007年02月07日 00:00:00 作者:
<%
'去掉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
%>
相关文章
方便的大家admin及admin888 经过 md5加密后16位和32位代码
方便的大家admin及admin888 经过 md5加密后16位和32位代码...2007-03-03javascript asp教程第七课--response属性
javascript asp教程第七课--response属性...2007-03-03
最新评论