ASP中實現的URLEncode、URLDecode自訂函數_應用技巧

在做ajax中的post時，發現在伺服器端取得資料時總是亂碼，網上看了些解決方案也搞不定，我post過去時是xml形式，由於亂碼伺服器端xml也解析不了或出錯。於是在post前先把它編碼，到伺服器端再解碼，這樣問題解決了，但是要是資料很大時估計會很影響速度。

雖然ASP中的request會自動解碼經過url編碼的字串，但是Request.BinaryRead(Request.TotalBytes)取得post資料時卻不會解碼，所以要進行解碼。

下面是我找到的一個ASP中server.urlencode函數的解碼函數

複製代碼 代碼如下:

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

再附一個編碼函數，這個與server.urlencode不一樣之處是：server.urlencode會將html或xml等標籤，如
也會進行編碼，而下面這個函數不會。我是用下面的進行編碼，再解碼，因為我用post時用xml的。

複製代碼 代碼如下:

private Function URLEncoding(vstrIn)
    strReturn = ""
    For i = 1 To Len(vstrIn)
    ThisChr = Mid(vStrIn,i,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