亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

在做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

更多信息請查看IT技術專欄