站長資訊網
最全最豐富的資訊網站

截字符串 去除HTML標記

<%
‘**************************************************
‘函數名:gotTopic
‘作 用:截字符串,漢字一個算兩個字符,英文算一個字符
‘參 數:str —-原字符串
‘ strlen —-截取長度
‘返回值:截取后的字符串
‘**************************************************
function gotTopic(str,strlen)
if str=”” then
gotTopic=””
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str,” “,” “),”””,chr(34)),”>”,”>”),”<“,”<“)
str=replace(str,”?”,””)
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
gotTopic=left(str,i) & “…”
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic,” “,” “),chr(34),”””),”>”,”>”),”<“,”<“)
end function
‘=========================================================
‘函數:RemoveHTML(strHTML)
‘功能:去除HTML標記
‘參數:strHTML –要去除HTML標記的字符串
‘=========================================================
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
‘取閉合的<>
objRegExp.Pattern = “<.+?>”
‘進行匹配
Set Matches = objRegExp.Execute(strHTML)
‘ 遍歷匹配集合,并替換掉匹配的項目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,””)
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
set Matches=nothing
End Function
%>

贊(0)
分享到: 更多 (0)
網站地圖   滬ICP備18035694號-2    滬公網安備31011702889846號
囯产精品一品二区三区| 国产啪亚洲国产精品无码| 日本精品无码一区二区三区久久久 | 国产精品91av| 99久久国产综合精品1尤物| 精品亚洲综合在线第一区| 国产亚洲精品激情都市| 亚洲AV无码乱码精品国产| 日韩精品中文乱码在线观看| 国产成人亚洲精品播放器下载| 国产麻传媒精品国产AV| 韩国精品一区二区三区无码视频 | 人妻精品久久久久中文字幕| 亚洲日韩在线观看免费视频| 国产精品美女久久久久av超清| 国产精品99久久不卡| 欧美交A欧美精品喷水| 亚洲国产精品成人AV在线| 97香蕉久久夜色精品国产| 亚洲精品综合在线影院| 国产短视频精品一区二区三区| 1313午夜精品久久午夜片| 99热在线精品免费播放6| 人妻少妇精品视频一区二区三区| 久久99精品久久久| 少妇人妻精品一区二区三区| 久久香蕉超碰97国产精品| 99国产精品99久久久久久| 久久久久人妻精品一区| 久久99国产综合精品| 亚洲精品视频在线免费| 国产成人精品男人的天堂538| 国产精品久久久久久| 好吊妞视频这里有精品| 亚洲精品无码专区| 久久精品国产亚洲AV电影网| 国产成人精品久久亚洲高清不卡| 成人精品一区二区不卡视频| 国产精品美女自在线观看免费| 四虎国产精品免费视| 日韩精品内射视频免费观看|