西安做网站ASP操作HTML转换、解码函数

16852012-04-13

Function HTMLEncode(reString) '转换HTML代码(显示数据时使用)
     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(34), """)
           Str = Replace(Str, CHR(39), "'")
           Str = Replace(Str, CHR(13), "")
           Str = Replace(Str, CHR(10), "<br>")
           HTMLEncode = Str
     End If
End Function

Function HTMLDecode(reString) 'HTML解码函数(保存或提交数据时使用,可以不使用)
     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, "<br>", CHR(10))
           HTMLDecode = Str
     End If
End Function

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1