ASP实现URL编码

function urldecode(encodestr)  
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