加入收藏    手机频道
当前位置:首页  >>  你问我答
去掉HTML函数 文章出处:淮南智诚网络公司    亚博体育ios官方下载责任编辑:     作者:     人气:929    发表时间:2013-6-4

今天小编给大家带来一个很好用的去HTML的函数,仅有于ASP哦。不废话了直接上码了
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
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),"")
cutStr=Replace(cutStr,chr(13),"")
cutStr=Replace(cutStr,chr(32),"")

希望大家能看明白如果不明白可以询问小编哦

想和他们一样成功吗?
此文关键词:
域名查询

    国家域名处理投诉中心
    010-58813000
    Email:supervise@cnnic.cn
Copyright © 2007 - 2018 版权所有 淮南智诚互动网络科技有限公司
皖ICP备09027578号 联系我们