×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载随时随地聆听大师开讲/课堂酷素材!视频教程打包下手绘教程
咔咔摄影抠图教程路径专辑photoshop cs3视频教程 
查看: 2463|回复: 10

asp中替换html为原码

[复制链接]

该用户从未签到

发表于 2007-4-15 11:08:43 | 显示全部楼层 |阅读模式
  1. <%
  2. Function HTMLEncode(Str)
  3.        If Not IsNull(Str) Then
  4.        str = Replace(str,"&nbsp;"," ")
  5.        str = Replace(str, "&","&")
  6.        str = Replace(str, "&gt;",">")
  7.        str = Replace(str, "&lt;","<")
  8.        str = Replace(str, "[at]", "@")
  9.        str = Replace(str, "@", "[at]")
  10.        str = Replace(str, "&nbsp;",CHR(32))
  11.        str = Replace(str, "    ",CHR(9))
  12.        str = Replace(str, """,CHR(34))
  13.        str = Replace(str, "&#39;",CHR(39))
  14.        str = Replace(str, "",CHR(13))
  15.        str = Replace(str, "<br />",CHR(10))
  16.        str = Replace(str, CHR(10), "")
  17.        str = Replace(str,"<p>","")
  18.        str = Replace(str,"<div>","")
  19.               HTMLEncode = Str
  20.        End If
  21. End Function
  22. %>
复制代码

该用户从未签到

发表于 2018-9-24 18:46:42 | 显示全部楼层
顶顶多好
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 18:03:10 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 18:14:53 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 18:10:23 | 显示全部楼层
好帖子要收藏
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 18:07:04 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:34:11 | 显示全部楼层
很不错。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:24:51 | 显示全部楼层
真心顶。。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:53:14 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:23:01 | 显示全部楼层
LZ真是人才
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:51:53 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [免费注册]

本版积分规则