网站的URL经常会用到编码，网站URL编码的好处是：在不支持中文的浏览器操作系统上也是可以使用的，下面编程之家就跟大家详细介绍下：ASP网址URL的编码与解码。
在ASP中有内置函数就是Server.URLEncode()，比如Server.URLEncode("编程之家")得到的就是经过编码后的字符串，这有什么好处呢，就是可以在不同语言访问网址的时候可以正常访问。避免由于语言不同或者编码不同而造成无法访问的情况。
那么怎么把%E5%D0%D2%A3%CF%BF%B9%C8这一串复杂的代码解码为字符串呢？ASP里是没有这个函数的。
ASP URL解码函数一
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
ASP URL解码函数二
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
以上2个ASP解码函数都是可以正常使用的。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
