asp CutStrX字符串截取函数(过滤全部HTML标记)

函数：CutStrX（截取字符串，过滤HTML标签）

==============

这是一个非常实用的ASP函数，名为CutStrX，旨在截取字符串并过滤掉全部的HTML标记。如果你需要这样的功能，不妨参考下面的代码。

代码如下：

```asp

Function CutStrX(ByVal Str, ByVal StrLen)

' 初始化变量，用于过滤HTML标签和进行字符串处理

Dim l, t, c, i, r

' 创建正则表达式对象，用于过滤HTML标签

Set r = New RegExp

r.Global = True

r.MultiLine = True

r.Pattern = "(</?[A-Za-z][A-Za-z0-9][^>]>)"

' 使用正则表达式替换HTML标签为空格

Str = r.Replace(Str, " ")

Set r = Nothing

' 计算处理后的字符串长度

l = Len(Str)

t = 0

' 遍历字符串，进行截取

For i = 1 To l

c = AscW(Mid(Str, i, 1))

If c < 0 Or c > 255 Then

t = t + 2 ' 处理非标准ASCII字符，增加计数为2

Else

t = t + 1 ' 处理标准ASCII字符，增加计数为1

End If

If t >= StrLen Then

CutStrX = Left(Str, i) & "..." ' 如果已达到指定长度或超过，则截取并添加省略号

Exit For

Else

CutStrX = Str ' 如果未达到指定长度，则返回完整处理后的字符串

End If

Next

End Function

```

这个函数首先通过正则表达式过滤掉输入字符串中的HTML标签，然后按照指定的长度截取字符串。如果截取的字符串长度未达到指定的`StrLen`，则返回完整的处理后的字符串；如果达到或超过，则返回截取后的字符串并添加省略号"..."。这样，您就可以轻松地在ASP应用中实现字符串的截取并去除HTML标签的功能。