asp html代码转安全ascii代码

asp html代码转安全ascii代码

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

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

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