你的位置:留言中心

反馈类型:  
您的大名:  
电子邮件:  
地址:  
联系电话A:   请填写区号,格式:029-88231181
联系电话B:   格式:13900000000
反馈信息:  
验证码:  
  
<% Function GotTopic(Str,StrLen) Dim l,t,c, i,LableStr,regEx,Match,Matches if IsNull(Str) then GotTopic = "" Exit Function end if if Str = "" then GotTopic="" Exit Function end if Set regEx = New RegExp regEx.Pattern = "\[[^\[\]]*\]" regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(Str) For Each Match in Matches LableStr = LableStr & Match.Value Next Str = regEx.Replace(Str,"") Str=Replace(Replace(Replace(Replace(Str," "," "),""",Chr(34)),">",">"),"<","<") l=len(str) t=0 strlen=Clng(strLen) 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),"""),">",">"),"<","<") & LableStr end function %>