一聚教程网:一个值得你收藏的教程网站

热门教程

asp html转换字符程序

时间:2022-07-02 22:37:46 编辑:袖梨 来源:一聚教程网

Function HTMLDecode(reString)
 Dim Str:Str=reString
 If Not IsNull(Str) Then
  Str = Replace(Str, "&", "&")
  Str = Replace(Str, ">", ">")
  Str = Replace(Str, "<", "<")
  Str = Replace(Str, " ", CHR(32))
     Str = Replace(Str, " ", CHR(9))
  Str = Replace(Str, "    ", CHR(9))
  Str = Replace(Str, """, CHR(34))
  Str = Replace(Str, "'", CHR(39))
  Str = Replace(Str, "", CHR(13))
  Str = Replace(Str, "
", CHR(10))
  HTMLDecode = Str
 End If
End Function

热门栏目