asp html轉換字符程序

　　這是一個簡單的安全過濾函數了把html 轉換字符轉換成可以顯示的文本了

　　Function HTMLDecode(reString)
 Dim Str:Str=reString
 If Not IsNull(Str) Then
  Str = Replace(Str "&" "&")
  Str = Replace(Str ">" ">")
  Str = Replace(Str "&lt;" "<")
  Str = Replace(Str "&nbsp;" CHR())
     Str = Replace(Str "&nbsp;" CHR())
  Str = Replace(Str "&#;&#;&#;&#;" CHR())
  Str = Replace(Str "&quot;" CHR())
  Str = Replace(Str "&#;" CHR())
  Str = Replace(Str "" CHR())
  Str = Replace(Str "<br>" CHR())
  HTMLDecode = Str
 End If
End Function

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