ScriptHtml 函数之过滤html标记的asp代码

函数名：ScriptHtml

作用：过滤HTML标记

参数：ConStr —— 要过滤的字符串

```javascript

Function ScriptHtml(ByVal ConStr, TagName, FType)

' 创建一个新的正则表达式对象

Dim Re

Set Re = new RegExp

' 设置正则表达式对象的属性，忽略大小写并全局匹配

Re.IgnoreCase = true

Re.Global = True

' 根据FType的值选择过滤HTML标记的方式

Select Case FType

Case 1

' 过滤包含特定标签名的HTML标签，但不包括自闭合标签（例如
）

Re.Pattern = "<" & TagName & "([^>])>"

ConStr = Re.Replace(ConStr, "")

Case 2

' 过滤完整的包含特定标签名的HTML标签（包括自闭合标签）

Re.Pattern = "<" & TagName & "([^>])>.?</" & TagName & "([^>])>"

ConStr = Re.Replace(ConStr, "")

Case 3

' 过滤包含特定标签名的HTML标签以及对应的闭合标签

Re.Pattern = "<" & TagName & "([^>])>"

ConStr = Re.Replace(ConStr, "")

Re.Pattern = "</" & TagName & "([^>])>"

ConStr = Re.Replace(ConStr, "")

End Select

' 返回过滤后的字符串

ScriptHtml = ConStr

' 释放正则表达式对象占用的资源

Set Re = Nothing

End Function

```

接下来，我们可以调用这个函数来渲染网页的body部分：`cambrian.render('body')`。这个函数将过滤掉指定标签名的HTML标签，可以根据需要选择过滤方式（通过FType参数指定）。例如，如果你想过滤掉所有的`