即:
如果有空格就用%20代替,如果有其它字符就用%ASCII代替,如果有漢字等四個字節的字符,就用兩個%ASCII來代替。不過有時候我們也需要將經過這種編碼的字符串進行解碼,但asp並沒有提供相關的函數,這給我們處理問題帶來了一定的麻煩。其實我們只要知道了編碼規則後,就可以用asp代碼來實現我們自己的URlDecode函數了。
具體實現如下:
複製代碼代碼如下:
functionurldecode(encodestr)
newstr=""
havechar=false
lastchar=""
fori=1tolen(encodestr)
char_c=mid(encodestr,i,1)
ifchar_c="+"then
newstr=newstr&""
elseifchar_c="%"then
next_1_c=mid(encodestr,i+1,2)
next_1_num=cint("&H"&next_1_c)
ifhavecharthen
havechar=false
newstr=newstr&chr(cint("&H"&lastchar&next_1_c))
else
ifabs(next_1_num)<=127then
newstr=newstr&chr(next_1_num)
else
havechar=true
lastchar=next_1_c
endif
endif
i=i+2
else
newstr=newstr&char_c
endif
next
urldecode=newstr
endfunction
下面為大家提供一個更成熟的函數:
複製代碼代碼如下:
'================================================
'函數名:URLDecode
'作用:URL解碼
'================================================
Function URLDecode(ByVal urlcode)
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