asp下实现UrlEncoding转换编码的代码

'==================================================
'函数名：UrlEncoding
'作  用：转换编码
'==================================================
Function UrlEncoding(DataStr)
    Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
    StrReturn = ""
    For Si = 1 To Len(DataStr)
        ThisChr = Mid(DataStr,Si,1)
        If Abs(Asc(ThisChr)) < &HFF Then
            StrReturn = StrReturn & ThisChr
        Else
            InnerCode = Asc(ThisChr)
            If InnerCode < 0 Then
               InnerCode = InnerCode + &H10000
            End If
            Hight8 = (InnerCode  And &HFF00)\ &HFF
            Low8 = InnerCode And &HFF
            StrReturn = StrReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
        End If
    Next
    UrlEncoding = StrReturn
End Function

赞 (0)

相关推荐

  • asp下实现UrlEncoding转换编码的代码

    '================================================== '函数名:UrlEncoding '作  用:转换编码 '================================================== Function UrlEncoding(DataStr)     Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8     StrReturn = ""     For Si = 

  • Java实现驼峰和下划线互相转换的示例代码

    Java实现驼峰和下划线互相转换的示例代码

    目录 前言 1.驼峰与下划线互转 2.测试 3.方法补充 前言 基本语法 首先我们要知道java的基础语法. 1.由26个英文字母大小写,0-9,_或$组成 2.数字不可以开头 3.不可以使用关键字和保留字,但是能包括关键字和保留字 4.Java中严格区分大小写,长度无限制 5.标识符不能包括空格 6.取名尽量做到“见名知意” 驼峰命名法 骆驼式命名法(Camel-Case)又称驼峰式命名法,是电脑程式编写时的一套命名规则(惯例). 正如它的名称CamelCase所表示的那样,是指混合使用大小写

  • asp下使用数组存放数据的代码

    asp用客户端数组存放数据,这种应用我已经见过很多.但最近在研究几套流量交换联盟系统时,这种技术才引起了我的注意. 下面我讲讲如何运用,先给出个没有结合ASP,就单纯适用javascript的例子. 1.js 复制代码 代码如下: var a = new Array();  var temp = "<table>";  a[0] = new Array(1,"阿会楠","男");   a[1] = new Array(2,"

  • asp.net下UTF-7转GB2312编码的代码（中文）

    复制代码 代码如下: /// UTF-7转换GB2312编码的方法 /// </summary> /// <param name="str7"></param> /// <returns></returns> public static string utf72Unicode(string str7) { string sUtf7 = ""; if (str7.StartsWith("&&

  • ASP下检测图片木马的函数代码

    木马原理:入侵者使用诸如ASP图片木马生成器之类的工具将一张正常的图片与一个ASP木马文件合并成一个图片文件(即将对网站有害的 ASP代码插在图片编码之后,虽然图片仍然可以正常显示,但是文件内容和尺寸已被改变),然后通过网站提供的文件上传功能上传这一张"合 '法的"图片,进而实现了上传ASP木马的目的. ' 防范方法:因为这种木马是图片与木马的二合一,所以需要在上传图片前检查文件内容,若文件内容不合法(即包含有恶意代码在里面), '则禁止上传,从而堵住了木马攻击的源头,这是木马攻击的第

  • asp下用replace非正则实现代码运行功能的代码

    今天更新了一下博客的代码运行功能,因为原来的写得不够完善,如果想在博客里插入多个可运行的代码,那就会--呃屁.关于replace函数,js中只是替换从起始位置的第一个指定字串,而vbs则是替换所有的指定字串,因此如果想要用vbs一个一个替换,那就得绕个弯子了,写个函数就行了,顺便,把写完的这个函数上传了,这下可以在一个日志里放多个代码运行演示了! 感冒了,写完函数就乖乖去睡觉,今天过得真是辛苦,有种快要死掉的感觉...鼻子里塞着纸团,因为鼻涕止不住地流,呜 替换函数的代码如下: function

  • asp下实现 重新排序数字数组的代码

    <% '****************************** '函数:NewOrder(ArrStr) '参数:Rstr,以逗号做分隔的数字数组 '作者:阿里西西 '日期:2007/7/13 '描述:重排序数字数组 '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%> '****************************** Function NewOrder(ArrStr) For i = 0 To Ubou

  • asp 下产生任意位数随机密码的代码

    <% '****************************** '函数:MakePassword(byval maxlen) '参数:maxlen,要生成的密码位数长度 '作者:阿里西西 '日期:2007/7/12 '描述:产生任意位数随机密码 '示例:<%=MakePassword(8)%>  '****************************** function MakePassword(byval maxlen)  dim strnewpass  dim whats

  • asp下根据标题生成关键字的代码

    'Function CreateKeyWords(KeyWords) '关键字生成系统 Dim i,L,TempStr KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| | |,|.|.|!|?|:|"|"|［|］|-|-|(|)|-", "") L=Len(KeyWords_Temp) For i=1 To L-1 TempStr=TempStr & "," &am

  • C++实现编码转换的示例代码

    代码地址 https://github.com/gongluck/Code-snippet/tree/master/cpp/code%20conversion 需求 编码转换在实际开发中经常遇到,通常是ANSI.Unicode和Utf-8之间相互转换.实现也有很多种,有查表法.使用C++11.使用boost.使用系统API.C++11和boost几乎可以实现一套代码,在linux和windows都能使用,但实际会有很多坑,相当于代码几乎不改,但是要改一下系统环境.所以有一种实现就是判断系统的版本

随机推荐