欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-14 19:02:13
复制代码 代码如下: function cutstrx(byval str,byval strlen) dim l,t,c,i,r '过滤全部html标记 set r=ne...
复制代码 代码如下:

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