ASP常用函数:ReplaceHTML
时间:2021-03-13 09:47:19|栏目:ASP代码|点击: 次
<%
'去掉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替换、保存远程图片实现代码
栏 目:ASP代码
本文标题:ASP常用函数:ReplaceHTML
本文地址:http://www.codeinn.net/misctech/79729.html