ASP中一个字符串处理类(4)

  str=Replace(str,"<","<")
  str=Replace(str,Chr(32)," ")
  str=Replace(str,Chr(9)," ")
  str=Replace(str,Chr(34),""")
  str=Replace(str,Chr(39),"'")
  str=Replace(str,Chr(13),"")
  str=Replace(str,Chr(10) & Chr(10), "</p><p>")
  str=Replace(str,Chr(10),"<br> ")
  HtmlEncode=str
 end if
End Function
''****************************************************************************
'''' @功能说明: 计算源字符串Str的长度(一个中文字符为2个字节长)
'''' @参数说明:  - str [string]: 源字符串
'''' @返回值:   - [Int] 源字符串的长度
''****************************************************************************
Public Function strLen(Str)
 If Trim(Str)="" Or IsNull(str) Then
  strlen=0
 else
  Dim P_len,x
  P_len=0
  StrLen=0
  P_len=Len(Trim(Str))
  For x=1 To P_len
   If Asc(Mid(Str,x,1))<0 Then
    StrLen=Int(StrLen) + 2
   Else
    StrLen=Int(StrLen) + 1
   End If
  Next
 end if
End Function
''****************************************************************************
'''' @功能说明: 截取源字符串Str的前LenNum个字符(一个中文字符为2个字节长)
'''' @参数说明:  - str [string]: 源字符串
'''' @参数说明:  - LenNum [int]: 截取的长度
'''' @返回值:   - [string]: 转换后的字符串
''****************************************************************************
Public Function CutStr(Str,LenNum)
 Dim P_num
 Dim I,X
 If StrLen(Str)<=LenNum Then
  Cutstr=Str
 Else
  P_num=0
  X=0
  Do While Not P_num > LenNum-2
   X=X+1
   If Asc(Mid(Str,X,1))<0 Then
    P_num=Int(P_num) + 2
   Else
    P_num=Int(P_num) + 1
   End If
   Cutstr=Left(Trim(Str),X)&"..."
  Loop
 End If
End Function
end class
%>