用正则表达式写的HTML分离函数

使用ASP文件存储并执行，当您想使用ASPHTTP抓取内容时，下面的工具将为您提供便捷服务。您或许需要对其进行一些个性化改进。

ASP代码片段如下：

```asp

<% Option Explicit

Function stripHTML(strHTML) '去除strHTML中的HTML标签

Dim objRegExp, strOutput

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "<.+?>" '匹配所有的HTML标签并用空字符串替换

strOutput = objRegExp.Replace(strHTML, "")

'替换所有的<和>为和>

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字符串，然后有一个函数stripHTML能够去除这些字符串中的HTML标签。当用户提交表单后，我们可以看到两个视图：一个是带有HTML的原字符串视图，另一个是去除HTML标签后的字符串视图。这对于分析和处理包含HTML的文本非常有用。请注意，此代码片段适用于ASP环境。若要在其他环境中使用，可能需要进行相应的调整。请确保在使用此代码时遵循适当的安全和验证措施，以避免潜在的安全风险。