LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

网址URL代码(urlcode)用ASP编码与解码的方法
admin
2017年11月1日 16:34 本文热度 8601

我们用百度搜索中文的时候经常会看到这样的地址：http://www.baidu.com/s?wd=%E5%D0%D2%A3%CF%BF%B9%C8，其中后面的%E5%D0%D2%A3%CF%BF%B9%C8这一串复杂的代码就是用urlencode将中文字符串转换成URL编码之后的内容。

在ASP中有内置函数就是Server.URLEncode()，比如Server.URLEncode("逍遥峡谷")得到的就是上面这串代码，这有什么好处呢，就是可以在不同语言访问网址的时候可以正常访问。避免由于语言不同或者编码不同而造成无法访问的情况。

那么怎么把%E5%D0%D2%A3%CF%BF%B9%C8这一串复杂的代码解码为字符串呢？ASP里是没有这个函数的。

于是从网上搜到了两段自定义函数的代码，经过测试都可以使用。

第一段，使用的时候直接URLDecode("%E5%D0%D2%A3%CF%BF%B9%C8")就可以转换成中文字符串。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
<%
Function URLDecode(ByVal urlcode)''URL反编码函数
    Dim start,final,length,char,i,butf8,pass
    Dim leftstr,rightstr,finalstr
    Dim b0,b1,bx,blength,position,u,utf8
    On Error Resume Next
    b0 = Array(192,224,240,248,252,254)
    urlcode = Replace(urlcode,"+"," ")
    pass = 0
    utf8 = -1
    length = Len(urlcode) : start = InStr(urlcode,"%") : final = InStrRev(urlcode,"%")
    If start = 0 or length < 3 Then URLDecode = urlcode : Exit Function
    leftstr = Left(urlcode,start - 1) : rightstr = Right(urlcode,length - 2 - final)
    For i = start To final
        char = Mid(urlcode,i,1)
        If char = "%" Then
            bx = URLDecode_Hex(Mid(urlcode,i + 1,2))
            If bx > 31 And bx < 128 Then
                i = i + 2
                finalstr = finalstr & ChrW(bx)
            ElseIf bx > 127 Then
                i = i + 2
                If utf8 < 0 Then
                    butf8 = 1 : blength = -1 : b1 = bx
                    For position = 4 To 0 Step -1
                        If b1 >= b0(position) And b1 < b0(position + 1) Then
                            blength = position
                            Exit For
                        End If
                    Next
                    If blength > -1 Then
                        For position = 0 To blength
                            b1 = URLDecode_Hex(Mid(urlcode,i + position * 3 + 2,2))
                            If b1 < 128 or b1 > 191 Then butf8 = 0 : Exit For
                        Next
                    Else
                        butf8 = 0
                    End If
                    If butf8 = 1 And blength = 0 Then butf8 = -2
                    If butf8 > -1 And utf8 = -2 Then i = start - 1 : finalstr = "" : pass = 1
                    utf8 = butf8
                End If
                If pass = 0 Then
                    If utf8 = 1 Then
                        b1 = bx : u = 0 : blength = -1
                        For position = 4 To 0 Step -1
                            If b1 >= b0(position) And b1 < b0(position + 1) Then
                                blength = position
                                b1 = (b1 xOr b0(position)) * 64 ^ (position + 1)
                                Exit For
                            End If
                        Next
                        If blength > -1 Then
                            For position = 0 To blength
                                bx = URLDecode_Hex(Mid(urlcode,i + 2,2)) : i = i + 3
                                If bx < 128 or bx > 191 Then u = 0 : Exit For
                                u = u + (bx And 63) * 64 ^ (blength - position)
                            Next
                            If u > 0 Then finalstr = finalstr & ChrW(b1 + u)
                        End If
                    Else
                        b1 = bx * &h100 : u = 0
                        bx = URLDecode_Hex(Mid(urlcode,i + 2,2))
                        If bx > 0 Then
                            u = b1 + bx
                            i = i + 3
                        Else
                            If Left(urlcode,1) = "%" Then
                                u = b1 + Asc(Mid(urlcode,i + 3,1))
                                i = i + 2
                            Else
                                u = b1 + Asc(Mid(urlcode,i + 1,1))
                                i = i + 1
                            End If
                        End If
                        finalstr = finalstr & Chr(u)
                    End If
                Else
                    pass = 0
                End If
            End If
        Else
            finalstr = finalstr & char
        End If
    Next
    URLDecode = leftstr & finalstr & rightstr
End Function
Function URLDecode_Hex(ByVal h)
    On Error Resume Next
    h = "&h" & Trim(h) : URLDecode_Hex = -1
    If Len(h) <> 4 Then Exit Function
    If isNumeric(h) Then URLDecode_Hex = cInt(h)
End Function
%>

第二段代码，自定义的函数是UnURLcode()

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
<%
function UnUrlcode(InpCode)        ''UrlCode编码转换为字符串
   Dim Head, SSCode, I, STemp
   If Trim(InpCode) <> "" Then
      Head = True
      UnUrlcode = "" : SSCode = ""
      For I=1 to Len(InpCode)
         STemp = Mid(InpCode, I ,1)
         If STemp = "%" Then
            STemp = Mid(InpCode, I + 1, 2)
            If Head Then
               SSCode = "&H" & STemp   ''第一个%前加“&H”
               Head = False
            Else
               SSCode = SSCode + STemp
               Head = True
               UnUrlcode = UnUrlcode & chr(SSCode)
            End If 
            I = I + 2
         Else
            UnUrlcode = UnUrlcode & STemp  ''非汉字直接加原字符
         End If
      Next
   End If
End Function
function Urlcode(InpStr)                                      ''字符串转换为UrlCode编码
   Dim InpAsc,I
   For I = 1 To Len(InpStr)                                   ''取单个字符处理
''msgbox Mid(InpStr, I, 1) & " // " & Asc(Mid(InpStr, I, 1))
      InpAsc = Asc(Mid(InpStr, I, 1))                         ''单个字符的ASC码
      If ((InpAsc < 58) And (InpAsc > 47)) Or ((InpAsc < 91) And (InpAsc > 64)) Or ((InpAsc < 123) And (InpAsc > 96)) Then
         Urlcode = Urlcode & Chr(InpAsc)                      ''如果是数字或字母原字符不变
      Else 
         Urlcode = Urlcode & "%" & mid(Trim(Hex(InpAsc)),1,2) & "%" & mid(Trim(Hex(InpAsc)),3,2)
      End If 
   Next 
end function
%>

这两组自定义函数都可以正常的将urlcode解码为中文字符串，使用哪个都可以，如果页面是UTF-8编码，则只能使用UnURLcode()自定义函数。


该文章在 2017/11/1 16:34:33 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved