ASP超级链接和HTML函数正则表达式 修正版

二、过滤所有HTML代码

要过滤掉所有的HTML代码，可以使用以下函数：

```asp

Function RemoveHTML(strHTML)

Dim objRegExp, Match, Matches

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "<.+?>" '匹配所有HTML标签及其内容

Set Matches = objRegExp.Execute(strHTML)

For Each Match in Matches

strHtml=Replace(strHTML,Match.Value,"") '替换匹配到的HTML代码为空字符串

Next

RemoveHTML=strHTML

Set objRegExp = Nothing

End Function

```

这个函数使用正则表达式匹配所有的HTML标签及其内容，并将其替换为空字符串，从而移除所有的HTML代码。

三、过滤script代码和HTML代码

为了安全起见，有时我们需要从用户提交的内容中移除script代码和所有的HTML代码。可以使用以下两个函数来实现这一目的：

1. 清除Javascript代码：

```asp

Function ClearJSCode(originCode)

Dim reg

set reg = New RegExp

reg.Pattern = "<SCRIPT[^<]</SCRIPT>"

reg.IgnoreCase = True

reg.Global = True

clearJSCode = reg.Replace(originCode, "")

End Function

```

这个函数会移除所有在``标签之间的代码。

2. 清除HTML代码：与上述“过滤所有HTML代码”的函数相同。

注意：在处理用户提交的内容时，务必小心。尽管上述函数可以帮助过滤掉一些潜在的威胁，但并不能保证完全安全。始终对用户提交的内容进行严格的验证和过滤，以确保网站的安全性。

提供的代码中包含一些被编码的字符（如`<`被编码为`<`），这是为了在网页中正确显示HTML代码而采取的常见做法。在使用这些代码时，可能需要对其进行适当的解码以使其在ASP环境中正确运行。