Question

server.urlencode编出的码JS怎么解码

因为不能修改ASP代码，只能修改网页模板的HTML代码，需要解码由ASP的server.urlencode编出的URL（如“%E8%81%9A%E8%B4%A4%E6%95%99%E8%82%B2%E7%BD%91”），只能用JS进行，但是JS的解码函数与ASP不通用，不能解码由server.urlencode编出的URL，请问有谁知道怎么解决吗？
注：页面代码是GB2312，语言为简体中文。谢谢！
我的意思是，通过GET方式提交到一个网页，而这个网页只能通过JS代码获取网址，然后获取传过来的每个参数的值，但是有一些汉字是被ASP编码的，JS无法解开，我也知道request能获取，但我要的是JS代码(JavaScript)的解码方法，谢谢

Answer 1

request("变量") 接收到的数据就是已经解码的数据

给你两个函数，或许你用得着

虽然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等标签，如<br/>也会进行编码，而下面这个函数不会。我是用下面的进行编码，再解码，因为我用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