asp截取字符串函数代码（过滤html标签）

function imgstr(str)
dim regex
set regex = new regexp '建立正则表达式。
regex.pattern = "]+)
{1}[^<>]*>(]*)(src=)('|"&chr(34)&"| )?(.[^'|s|"&chr(34)&"]*)(.)(jpg|gif|png|bmp|jpeg)('|"&chr(34)&"|s|>)(.[^>]*)(>)" '设置模式。
regex.ignorecase = true '设置是否区分字符大小写。
regex.global = true '设置全局可用性。
set matches = regex.execute(str) '执行搜索。
for each match in matches '遍历匹配集合。
   imgstr = imgstr + replace(match.submatches(1),"productshow.asp?articleid=","")&"*****"
   imgstr = imgstr + match.submatches(6)&"."&match.submatches(8)&"*****"
   imgstr = imgstr + replace(match.submatches(10)," alt=","") & "
"
next
end function

'纯字符截取函数

function cutstr(str,strlen)
if str = "" then
cutstr = "cutstr函数异常：字符串为空"
exit function
end if
'------------来源长度检查
if strlen = "" then
cutstr = "cutstr函数异常：长度未指定"
exit function
end if

if cint(strlen) = 0 then
cutstr = "cutstr函数异常：长度为0"
exit function
end if
'----------检测来源字符长度
dim l,t,c,i
l=len(str)
t=0
'----------循环截取字符
for i=1 to l
c=abs(asc(mid(str,i,1)))
'------判断是否汉字
if c>255 then
t=t+2
else
t=t+1
end if
'------判断是否到达指定长度
if t>=strlen then
cutstr=left(str,i)&".."
exit for
else
cutstr=str
end if
next
cutstr=replace(cutstr,chr(10),"")
end function

'使用方法

call cutstr("111com.net网页制作教程",5)