熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp html代碼轉安全ascii代碼

2022-06-13   來源: .NET編程 

  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
    推薦文章
    Copyright © 2005-2022 電腦知識網 Computer Knowledge   All rights reserved.