asp html 字符串截取,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),"width='199' height='134' 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