Server.URLEncode(“飞的更高”) 中文编码

解码函数：

function urldecode(encodestr)
Dim newstr,havechar,lastchar,i,char_c,next_1_c,next_1_Num
newstr=""
havechar=false
lastchar=""
for i=1 to len(encodestr)
char_c=mid(encodestr,i,1)
if char_c="+" then
   newstr=newstr & " "
elseif char_c="%" then
   next_1_c=mid(encodestr,i+1,2)
   next_1_num=cint("&H" & next_1_c)
  
   if havechar then
    havechar=false
    newstr=newstr & chr(cint("&H" & lastchar & next_1_c))
   else
    if abs(next_1_num)<=127 then
     newstr=newstr & chr(next_1_num)
    else
     havechar=true
     lastchar=next_1_c
    end if
   end if
   i=i+2
else
   newstr=newstr & char_c
end if
next
urldecode=newstr
end function