繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下实现对HTML代码进行转换的函数
- ASP
- ASP中用Join和Array，可以加快字符连接速度。
- 采用ODBC接口访问MySQL指南
- 最大限度优化你的Asp性能
- 实现让每句话的头一个字母都大写
- 如何尽快释放掉Connection对象建立的连接？
- 把数据插入到数据库的两种方法
- Connection对象的应用
- 查看ASP Session 变量的小工具
- 用XMLHTTP组件正确解析图片地址并将其保存
- 利用XMLHTTP 从其他页面获取数据
- Request与Request.Form的速度测试
- 用SOAP和ASP进行服务器端更新
- ASP开发网页时需要牢记的注意事项列表
- 面向对象的ASP技术：思考与实践
- 提供一种“间接防止另存为”的方法
- 格式化数字函数FormatNumber
- 怎么样写一段高效，安全的sql查询代码
- 关于Adodb.Stream的使用说明
- 不用EOF以加快记录循环
- 防止重复提交的巧妙方法
ASP 中的 asp下实现对HTML代码进行转换的函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 164 ::
收藏到网摘: n/a
<%
'******************************
'函数：HTMLEncode(reString)
'参数：reString,待编码转换处理的字符串
'作者：阿里西西
'日期：2007/7/15
'描述：对HTML代码进行转换
'示例：HTMLEncode("<p>欢迎访问<br>阿里西西</p>")
'******************************
Function HTMLEncode(reString)
Dim Str:Str=reString
If Not IsNull(Str) Then
Str = UnCheckStr(Str)
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), "<br>")
HTMLEncode = Str
End If
End Function
'反转换HTML代码
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, "<br>", CHR(10))
HTMLDecode = Str
End If
End Function
%>
评论 (0) All
