ASP中的URLEncode的解码函数

原创 2006年06月22日 12:55:00

  有时在传递一些参数时,为了避免中文和一些特殊字符引起错误,我常把一些内容用server.urlencode功能编码,编码后的解码就遇到了问题,在js中可以用unescape,在asp中怎么解码呢?

我在网上搜索了一下,找到如下方法,经过测试可以正确对中文进行解码:

Function URLDecode(enStr)
  dim deStr,strSpecial
  dim c,i,v
    deStr=""
    strSpecial="!""#$%&'()*+,.-_/:;<=>?@[/]^`{|}~%"
    for i=1 to len(enStr)
      c=Mid(enStr,i,1)
      if c="%" then
        v=eval("&h"+Mid(enStr,i+1,2))
        if inStr(strSpecial,chr(v))>0 then
          deStr=deStr&chr(v)
          i=i+2
        else
          v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
          deStr=deStr & chr(v)
          i=i+5
        end if
      else
        if c="+" then
          deStr=deStr&" "
        else
          deStr=deStr&c
        end if
      end if
    next
    URLDecode=deStr
End function

版权声明:本文为博主原创文章,未经博主允许不得转载。

asp对中文编码及解码,Decode和Encode中文网址处理

'============================================================== '功能:ASP Server对象内置编码函数 '描述:没有对应的解码...
  • SJian123
  • SJian123
  • 2014年10月16日 16:54
  • 3944

AspDec.exe(asp代码加密解密软件)

  • 2009年05月11日 14:46
  • 420KB
  • 下载

asp URL解码 ASP网址解码

'================================================ '函数名:URLDecode '作 用:URL解码 '====================...
  • sscrazy
  • sscrazy
  • 2012年02月13日 11:10
  • 2413

ASP 文件编码格式与 Server.URLEncode

最近在修改一个遗产程序,因为要下载文件,而这些文件大部分都是以中文命名的,中文的处理对于一些新兴的语言,比如Java,.net什么的都没有问题,可是这是个 asp 程序。当我把asp文件采用本地编码时...
  • redv
  • redv
  • 2005年03月04日 01:04
  • 2703

ASP中实现的类似URLEncode的编码函数及对应解码函数

ASP中实现的类似URLEncode的编码函数及对应解码函数 Coding.inc.aspFunction Encode(Str) Dim Count, Pos, Ch, Code Dim Sweet...
  • lg_lin
  • lg_lin
  • 2006年06月04日 01:43
  • 825

asp的url编码和解码

function urldecoding(vstrin)qiushuiwuhen(2002-6-19)    dim i,strreturn,strSpecial    strSpecial = "!...
  • flynetcn
  • flynetcn
  • 2007年01月31日 13:39
  • 2789

网址UrlEncode编码/UrlDecode解码

主要用于将字符串以URL编码,返回一个字符串。 使用方法: 1、ASP中的用法:Server.URLEncode(“内容”) 例如: 2、PHP中的用法:urlencode(“内容”...
  • zkn_CS_DN_2013
  • zkn_CS_DN_2013
  • 2013年11月04日 18:07
  • 1337

js,php,asp中的html编码解码

'相当于php中的htmlspecialchars() ' Convert special characters to HTML entities.    function htmlspecialc...
  • hawk140
  • hawk140
  • 2016年08月28日 11:46
  • 295

asp 编码解码函数

%function encode(soStr) for i=1 to len(soStr)           TempNum=hex(asc(mid(soStr,i,1)))    if len(T...
  • lvlingwy
  • lvlingwy
  • 2007年06月08日 13:49
  • 471

ASP中Split函数的用法

ASP中Split函数的用法 分割截取字符串 看几个例子就能理解了 mystr="1,2,3,4,5" mystr=split(mystr,",") for i=0 to ub...
  • ldl22847
  • ldl22847
  • 2012年07月16日 15:08
  • 6274
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP中的URLEncode的解码函数
举报原因:
原因补充:

(最多只允许输入30个字)