<% '************************************************** '函数名：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 %>
查看更多关于正则表达式实例：截字符串及去除HTML标记的详细内容...