'函数名：GotTopic
 '作  用：显示字符串长度
 '参  数：str   ----原字符串
 '        strlen  ----显示字符长度
 '================================================
 Public Function GotTopic(ByVal str, ByVal strLen)
  Dim l, t, c, i
  Dim strTemp
  On Error Resume Next
  str = Trim(str)
  str = Replace(str, " ", " ")
  str = Replace(str, ">", ">")
  str = Replace(str, "&lt;", "<")
  str = Replace(str, "&#62;", ">")
  str = Replace(str, "&#60;", "<")
  str = Replace(str, "&#39;", "'")
  str = Replace(str, "&quot;", Chr(34))
  str = Replace(str, vbNewLine, "")
  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
    strTemp = Left(str, i) & ".."
    Exit For
   Else
    strTemp = str & ""
   End If
  Next
  GotTopic = CheckTopic(strTemp)
 End Function
 Public Function CheckTopic(ByVal strContent)
  Dim re
  On Error Resume Next
  Set re = New RegExp
  re.IgnoreCase = True
  re.Global = True
  re.Pattern = "(<s+cript(.+?)<\/s+cript>)"
  strContent = re.Replace(strContent, "")
  re.Pattern = "(<iframe(.+?)<\/iframe>)"
  strContent = re.Replace(strContent, "")
  re.Pattern = "(&#62;)"
  strContent = re.Replace(strContent, "&gt;")
  re.Pattern = "(&#60;)"
  strContent = re.Replace(strContent, "&lt;")
  Set re = Nothing
  strContent = Replace(strContent, ">", "&gt;")
  strContent = Replace(strContent, "<", "&lt;")
  strContent = Replace(strContent, "'", "&#39;")
  strContent = Replace(strContent, Chr(34), "&quot;")
  strContent = Replace(strContent, "%", "％")
  strContent = Replace(strContent, vbNewLine, "")
  CheckTopic = Trim(strContent)
 End Function