ASP常用函数:HTMLDecode

<%
Function HTMLDecode(sText)
    Dim I
    sText = Replace(sText, "&" , Chr(38))
    sText = Replace(sText, """", Chr(34))
    sText = Replace(sText, "<" , Chr(60))
    sText = Replace(sText, ">" , Chr(62))
    sText = Replace(sText, " ", Chr(32))
    For I = 1 To 255
        sText = Replace(sText, "&#" & I & ";", Chr(I))
    Next
    HTMLDecode = sText
End Function
%>

赞 (0)

相关推荐

  • SQL中 decode()函数简介

    DECODE函数,是ORACLE公司的SQL软件ORACLE PL/SQL所提供的特有函数计算方式,以其简洁的运算方式,可控的数据模型和灵活的格式转换而闻名. 今天看别人的SQL时看这里面还有decode()函数,以前从来没接触到,上网查了一下,还挺好用的一个函数,写下来希望对朋友们有帮助哈! decode()函数简介: 主要作用:将查询结果翻译成其他值(即以其他形式表现出来,以下举例说明): 使用方法: Select decode(columnname,值1,翻译值1,值2,翻译值2,...值

  • js中escape对应的C#解码函数 UrlDecode

    js中escape对应的C#解码函数 System.Web.HttpUtility.UrlDecode(s) //注意编码 需要注意的几点: 1.HttpUtility.UrlEncode,HttpUtility.UrlDecode是静态方法,而Server.UrlEncode,Server.UrlDecode是实例方法. 2.Server是HttpServerUtility类的实例,是System.Web.UI.Page的属性. 3.用HttpUtility.UrlEncode编码后的字符串和

  • Javascript UrlDecode函数代码

    有时候可能会有这么一个需求,我在后台使用: 复制代码 代码如下: HttpUtility.UrlEncode(str, System.Text.Encoding.UTF8); 将Url进行编码,前台JS需要使用这段内容,这时候就需要解码了: 代码 复制代码 代码如下: /** * Url编码 **/ ShengUtils.encode = function(unzipStr){ var zipstr=""; var strSpecial="!\"#$%&'(

  • PHP json_decode函数详细解析

    PHP json_decode函数详细解析

    一.函数简介1.此函数有四个参数,一般在使用时会用到前两个,具体的参数可以看手册. 2.第一个参数是json格式的字符串,第二个参数是boolean值(false转化成对象,true转化成数组,默认false),如果转化失败返回null. 二.遇到的问题在项目中调用了java写的一个web服务,返回的数据是"{'stauts':'1','message':'充值成功'}". 程序接到后用json_decode把结果转化成数组,但转化的结果是null,太奇怪了. 看了一下手册,在手册中发

  • mysql仿oracle的decode效果查询

    mysql仿oracle的decode效果查询

    以下代码在MYSQL中测试通过,MSSQL应该能跑通,未测试. 复制代码 代码如下: #创建表如下 create temporary table tmp (a int, b int ,c int); insert into tmp VALUES (1,10,1),(10,10,2),(10,100,2); #mysql执行 select sum(case when c = '1' then A else B end) from tmp #oracle执行 select sum(decode(c,

  • php urlencode()与urldecode()函数字符编码原理详解

    php urlencode()与urldecode()函数字符编码原理详解

    其原理就是把中文字符转换为十六进制并按某种规则进行字符串组合,实现字符的编码与解编码,保证URL数据传递过程中字符的完整性和兼容性,主要讨论中文字符的编码情况. 一,FireFox浏览器编码中文字符 在Firefox浏览器下如果输入中文字符,将会自动实现URL编码,如下 按下Enter键前 按下Enter键后 二,urlencode()函数原理 urlencode()函数用于编码URL字符串,这里主要讨论中文字符的编码情况, 实例如下 复制代码 代码如下: echo urlencode('不要迷

  • Javascript生成json的函数代码(可以用php的json_decode解码)

    但是有个问题 虽然JS解码JSON非常方便,但是编码似乎没有什么好办法- 本着能懒即懒,不能懒也尽量懒的原则,古狗了一下 还真让我发现了 PHP里直接用json_decode就可以解码,用起来相当方便 复制代码 代码如下: function json_encode_js(aaa){ function je(str){ var a=[],i=0; var pcs="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"

  • PHP 小心urldecode引发的SQL注入漏洞

    Ihipop 学校的 Discuz X1.5 论坛被黑,在那里吵了一个下午.Google 一下"Discuz! X1-1.5 notify_credit.php Blind SQL injection exploit",你就知道. Discuz 是国内很流行的论坛系统,被黑的网站应该会很多吧.不过我对入侵别人的网站不感兴趣,同时也鄙视那些代码都不会写只会使用别人放出的工具攻击的所谓的"黑客". 粗略看了一下代码,这个 SQL 注入漏洞是 urldecode 函数造成

  • ASP常用函数:HTMLDecode

    <% Function HTMLDecode(sText)     Dim I     sText = Replace(sText, "&" , Chr(38))     sText = Replace(sText, """", Chr(34))     sText = Replace(sText, "<" , Chr(60))     sText = Replace(sText, ">&q

  • ASP常用函数收藏乱七八糟未整理版

    <% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip()     Dim GetClientIP     '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&

  • asp 常用函数用法

    Array()   FUNCTION: 返回一个数组   SYNTAX: Array(list)   ARGUMENTS: 字符,数字均可   EXAMPLE: <%   Dim myArray()   For i = 1 to 7   Redim Preserve myArray(i)   myArray(i) = WeekdayName(i)   Next   %>   RESULT: 建立了一个包含7个元素的数组myArray   myArray("Sunday",&

  • ASP常用函数:XMLEncode

    输出RSS和XML时经常用到,和HTMLEncode还不完全一样 原理: Character Converted To " " ' &apos; & & < < > > 代码<%Function XMLEncode(byVal sText)    sText = Replace(sText, "&" , "&")    sText = Replace(sText, "

  • ASP常用函数:Trace()

    复制代码 代码如下: <%  '//---- 输入字符串并结束当前页面(调试用),函数可以也命名为Debug  ----// Function Trace(s)      On Error Resume Next      Response.Write(s & vbCrLf)      Response.End()  End Function  %> 下面的是个修改升级版,还在测试中... 复制代码 代码如下: <%  '//---- 输入字符串并结束当前页面(调试用)  ---

  • ASP常用函数:Delay()

    代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样: <% Function Delay(s)     Dim t = Now()     While DateDiff("s", t, Now) < s     Wend End Function %> 转载自:http://jorkin.reallydo.com/article.asp?id=224

  • ASP常用函数:CStrIP()

    作用:把长整型数字转为IP地址 <% Function CStrIP(ByVal anNewIP)     Dim lsResults     Dim lnTemp     Dim lnIndex     For lnIndex = 3 To 0 Step -1         lnTemp = Int(anNewIP / (256 ^ lnIndex))         lsResults = lsResults & lnTemp & "."         a

  • ASP常用函数:ReplaceHTML

    <% '去掉HTML标记 Public Function ReplaceHTML(Textstr)     Dim Str, re     Str = Textstr     Set re = New RegExp     re.IgnoreCase = True     re.Global = True     re.Pattern = "<(.[^>]*)>"     Str = re.Replace(Str, "")     Set R

  • ASP常用函数:ArrayToxml

    <% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot)     Dim i, node, rs, j     If xmlroot = "" Then xmlroot = "xml"     Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)

  • [转]ASP常用函数:TimeZone

    功能:获取服务器所在时区 复制代码 代码如下: <%  Function TimeZone()      Set oShell = CreateObject("WScript.Shell")      atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _           "Control\TimeZoneInformation\ActiveTimeBias"      

随机推荐