asp html代碼轉安全ascii代碼

　　function DoTrimProperly(str nNamedFormat properly pointed points)
  dim strRet
  strRet = ServerHTMLEncode(str)
  strRet = replace(strRet vbcrlf"<br>")
  strRet = replace(strRet vbtab"")
  if (LEN(strRet) > nNamedFormat) Then
    strRet = LEFT(strRet nNamedFormat)  
    if (properly = ) Then    
      Dim TempArray       
      TempArray = split(strRet " ")
      Dim n
      strRet = ""
      for n = to Ubound(TempArray)
        strRet = strRet & " " & TempArray(n)
      next
    End if
    if (pointed = ) Then
      strRet = strRet & points
    End if
  End if
  DoTrimProperly = strRet
End Function

　　Function FormatStr(String)
  on Error resume next
  String = Replace(String CHR() "")
  String = Replace(String "<" "&lt;")
  String = Replace(String ">" "&gt;")
  String = Replace(String CHR() & CHR() "<BR><BR>")
  String = Replace(String CHR() "<BR>")
  FormatStr = String
End Function

　　
Function FormatStr(String)
  on Error resume next
  String = Replace(String " " "&nbsp;")
  String = Replace(String CHR() "&nbsp")
  String = Replace(String CHR() & CHR() "<BR><BR>")
  String = Replace(String CHR() "<BR>")
  String = Replace(String "<" "&lt;")
  String = Replace(String ">" "&gt;")
  FormatStr = String
End Function

From:http://tw.wingwit.com/Article/program/net/201311/14373.html