首页 > 编程 > ASP > 正文

ASP常用函数:ReplaceHTML

2024-05-04 11:02:03
字体:
来源:转载
供稿:网友
<%
'去掉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
%>

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表