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

function cutstrx(byval str,byval strlen)
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]*[^>]*>)"
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 else t=t+1
if t>=strlen then
cutstrx=left(str,i)&"..."
exit for
else
cutstrx=str
end if
next
end function