1. <% 
2. '************************************************** 
3. '函數名：gotTopic 
4. '作 用：截字符串，漢字一個算兩個字符，英文算一個字符 
5. '參 數：str ----原字符串 
6. ' strlen ----截取長度 
7. '返回值：截取后的字符串 
8. '************************************************** 
9. function gotTopic(str,strlen) 
10. if str="" then 
11. gotTopic="" 
12. exit function 
13. end if 
14. dim l,t,c, i 
15. str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<") 
16. str=replace(str,"?","") 
17. l=len(str) 
18. t=0 
19. for i=1 to l 
20. c=Abs(Asc(Mid(str,i,1))) 
21. if c>255 then 
22. t=t+2 
23. else 
24. t=t+1 
25. end if 
26. if t>=strlen then 
27. gotTopic=left(str,i) & "…" 
28. exit for 
29. else 
30. gotTopic=str 
31. end if 
32. next 
33. gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<") 
34. end function 
35. '========================================================= 
36. '函數：RemoveHTML(strHTML) 
37. '功能：去除HTML標記 
38. '參數：strHTML --要去除HTML標記的字符串 
39. '========================================================= 
40. Function RemoveHTML(strHTML)  
41. Dim objRegExp, Match, Matches  
42. Set objRegExp = New Regexp  
43. objRegExp.IgnoreCase = True  
44. objRegExp.Global = True  
45. '取閉合的<>  
46. objRegExp.Pattern = "<.+?>"  
47. '進行匹配  
48. Set Matches = objRegExp.Execute(strHTML)  
49. ' 遍歷匹配集合，并替換掉匹配的項目  
50. For Each Match in Matches  
51. strHtml=Replace(strHTML,Match.Value,"")  
52. Next  
53. RemoveHTML=strHTML  
54. Set objRegExp = Nothing  
55. set Matches=nothing 
56. End Function  
57. %>