ASPcutstrx字符串截取函数（过滤所有HTML标记）

复制代码代码如下所示：
函数的CutStrX（ByVal Str，ByVal StrLen）
昏暗的L，T，C，I，R

过滤所有HTML标记
集R = new RegExp
r.global =真
r.multiline =真
r.pattern =（} * >）
STR = r.replace（STR，）
设置r =无

L =莱恩（STR）
T = 0
对于我= 1到L
C = ascw（MID（STR，I，1））
如果型号：耐克然后T = T + 2其他T = T + 1
如果T＞= strlen然后
cutstrx =左（Str，我）…
退出
其他的
cutstrx = str
最后如果
下一个
端功能