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
%>
相关文章
利用SA FileUp组件进行多文件上传...2007-01-01
chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解
chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解...2007-03-03
如何将长的标题用省略号收尾...2007-02-02
ASP编程入门进阶（十）：Global.asa文件...2007-01-01
使用ASP记录在线用户的数量的代码...2007-11-11
这篇文章主要介绍了ASP如何获取真实IP地址,需要的朋友可以参考下2006-06-06
使用类，实现模块化...2006-06-06
ASP中如何判断一个字符是不是汉字...2007-03-03
ASP编程入门进阶（十六）：FSO组件之驱动器操作...2007-01-01
用ASP读取XML文件的具体方法与示例...2007-02-02
最新评论