作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

以前只是听说，今天在论坛第一次看到具体实例。

<%
Function GetTextFromHtml(strHtml)
        Dim strPatrn
            strPatrn="<.*?>"     '正则表达式串
        Dim regEx
        Set regEx = New RegExp    '定义一个正则表达式对象
        regEx.Pattern = strPatrn
        regEx.IgnoreCase = True   '对正则表达式对象的属性赋值。忽略大小写
        regEx.Global = True       '从整个字串中找匹配
        GetTextFromHtml = regEx.Replace(strHtml,"")'将匹配的字串替换为空串
End Function

response.write GetTextFromHtml("<a href=http://aaa.com>中华人民共和国</a>")
%>

主要的功能是取<a></a>之间的字符

相关软件：