asp下实现对HTML代码进行转换的函数

<%
'******************************
'函数：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)

相关推荐

  • asp下实现对HTML代码进行转换的函数

    <% '****************************** '函数:HTMLEncode(reString) '参数:reString,待编码转换处理的字符串 '作者:阿里西西 '日期:2007/7/15 '描述:对HTML代码进行转换 '示例:HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString)

  • ASP语言实现对SQL SERVER数据库的操作

    目前管理信息系统已从传统的客户机/服务器(C/S)模式转向了浏览器/服务器(B/S)模式,特别是微软公司推出它的新产品ASP语言之后,这种转变更加迅猛.管理信息系统的核心是对数据库进行包括添加.修改和查询等等操作,ASP提供的ADO数据库接口控件,使得程序员再也勿需编写复杂的CGI程序了,而只要用几句简单的语句即可实现以上操作.1.系统环境 PII 350,Ram 64M,WINNT Server 4.0, Service Pack4, IIS 4.0, SQL Server7.0. 2.系统功

  • asp下正则实现URL自动链接的一个函数

    复制代码 代码如下: Function AutoLinkURLs(strString)       Dim match, matches, offset, url, email, link, relnkAutoLinkURL       relnkAutoLinkURL = "<a href=""[[%URL%]]"">[[%URLText%]]</a>"       If Not IsObject(regExp) The

  • asp下实现格式化文件大小以MB显示的函数

    <% '****************************** '函数:FormatFileSize(l1) '参数:l1,字节数 '作者:阿里西西 '日期:2007/7/12 '描述:格式化文件大小样式 '示例:<%=FormatFileSize(l1)%> '****************************** function FormatFileSize(l1)  dim l2,l3  l3=formatnumber(l1,0,true)  if l1>104

  • asp下的一个检测链接是否正常的函数

    Function urlChk(sUrl) on error resume next Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",sUrl,false xmlHttp.send     if xmlHttp.Status <> 200 then         urlChk=false     else         urlChk=true     

  • ASP下经常用的字符串等函数参考资料

    参考资料之ASP函数  整理下asp下常用的字符串,数据等操作函数,大家在平时操作中也经常遇到的 1.函数 array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: 结果: i 被赋予为数组 2.函数 Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量 例子:   结果: 236 函数Cint()

  • asp下以Json获取中国天气网天气的代码

    百度了一下,找了点别人的方法改进了一下. 获取天气网址:http://www.weather.com.cn/html/weather/101210701.shtml这里是温州的,当然其他城市自己搜索一下,换一下ID. 由于是写入cookies记录当天天气,所有需要在站点下浏览. js代码: 复制代码 代码如下: var Url=escape("http://m.weather.com.cn/data/101210701.html"); var COOKIE_info = "C

  • 用ASP实现对ORACLE数据库的操作

    ASP(Active Server Pages)是微软公司为开发互联网应用程序所提出的工具之一,ASP与数据库的联接一般通过ADO(Activex Data Object)来实现的,就象<计算机世界>2000年3月20日的<用ASP对SQL Server数据库操作>文章介绍的一样,ADO可以完全支持Microsoft SQL Server ,但对应用更加广泛.机制更加复杂的ORACLE 数据库服务就有一些困难,如果想作一些简单的查询功能,ADO是足够的,如要想更好地发挥ORACLE

  • C#代码实现对AES加密解密

    ES(The Advanced Encryption Standard)是美国国家标准与技术研究所用于加密电子数据的规范.它被预期能成为人们公认的加密包括金融.电信和政府数字信息的方法. 本文实例为大家介绍C#实现对AES加密解密的详细代码,分享给大家供大家参考,具体内容如下 using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Security.Cry

  • Python实现对word文档添加密码去除密码的示例代码

    Python实现对word文档添加密码去除密码的示例代码

    代码实现如下: import win32com.client,os,time def word_encryption(path, password): # 若加密保存.docx时,覆盖原文件,则无法成功添加密码.但是保存为另一个文件名,则可以添加密码. # 因此将A存为B,删A,再将B改为A. dirname, tempname = os.path.split(path) path_temp = os.path.join(dirname, tempname) while os.path.exis

随机推荐