好东西，老外用正则表达式写的HTML分离函数

在网页开发中，处理ASP文件是非常常见的任务。有时我们需要从HTML字符串中剥离标签，只保留文本内容。这时，一个简单的ASP函数可以大大提高我们的工作效率。想象一下，你正在使用ASPHTTP抓取网页内容，这个函数能让你轻松去除HTML标签，让你更加便捷地处理数据。

下面是一个示例ASP代码段，它包含一个名为stripHTML的函数，专门用于剥离HTML标签。这个函数使用正则表达式来匹配并移除所有的HTML标签。使用这个函数非常简单，只需要将要处理的HTML字符串作为参数传入即可。这个函数首先将HTML标签替换为空字符串，然后还会将尖括号转换为正确的格式。这样处理后的字符串就能去除所有HTML标签了。

接下来是一个简单的表单，用户可以在其中输入HTML字符串，然后点击按钮剥离HTML标签。表单包含一个文本框用于输入HTML字符串，以及一个提交按钮。当用户点击提交按钮后，表单会将输入的HTML字符串传递给stripHTML函数进行处理，并显示处理前后的字符串对比。

以下是具体的ASP代码实现：

```asp

<% Option Explicit

Function stripHTML(strHTML)

'剥离HTML标签的函数

Dim objRegExp, strOutput

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "<.+?>" '匹配HTML标签的正则表达式

strOutput = objRegExp.Replace(strHTML, "") '替换所有匹配的HTML标签为空字符串

strOutput = Replace(strOutput, "<", "<") '替换尖括号为正确的格式

strOutput = Replace(strOutput, ">", ">") '替换尖括号为正确的格式

stripHTML = strOutput '返回处理后的字符串

Set objRegExp = Nothing '释放对象资源

End Function %>

<% if Len(Request("txtHTML")) > 0 then %>

未剥离HTML标签的字符串：

剥离了HTML标签的字符串：

<%=StripHTML(Request("txtHTML"))%>

<% End If %>

```

这样，你就可以通过表单输入HTML字符串，然后查看剥离标签前后的对比效果了。这个函数在处理网页抓取、数据分析等方面非常有用，能大大提高你的工作效率。现在你可以尝试改进一下这个函数，让它更好地满足你的需求。记得在实际应用中测试和调试你的代码哦！