asp html代码转安全ascii代码

2015-08-12 16:02:52来源:作者:人点击

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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台