我要建站
咨询电话:010-87729290
首页网络产品网站建设网络营销案例展示资讯中心IT服务联系我们
技术文章
电商网站“购买按钮”...

好的网站目标应该具备...

百度营销推广的执行技...

英文网站建设的几个常...

如何辨别一个网站用户...


技术文章
asp截取字符串函数代码(过滤html标签)
编辑:admin
阅读次数:705
来源:北京力天健宇科技发展有限公司
关键字:北京网络公司,北京做网站,力天健宇
 
时间:2010-07-26 15:32:13

截取字符串函数代码(过滤html标签)

function imgstr(str)

dim regex

set regex = new regexp '建立正则表达式。

regex.pattern = "<a.*[s]+href=(x22|x27)?([^x22<>]+)1{1}[^<>]*>(<img)(.[^<>]*)(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=","") & "<br>"

 

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




|  友情链接  |  在线咨询  |  常见问答  |  关于我们  |  付款方式  |  网站地图  |
我们专注: 网站建设  网络营销   虚拟主机   网页设计
咨询电话:010-87729290 60895393 传真:010-87729290 版权所有:北京力天健宇科技发展有限公司   京ICP备:06071633号
Powered by BriCMS