asp的URLDecode函数

超新星

1. 
   
2.   Function URLDecode(enStr)
   
3.   dim deStr
   
4.   dim c,i,v
   
5.   deStr=""
   
6.   for i=1 to len(enStr)
   
7.   c=Mid(enStr,i,1)
   
8.   if c="%" then
   
9.   v=eval("&h"+Mid(enStr,i+1,2))
   
10.   if v<128 then
    
11.   deStr=deStr&chr(v)
    
12.   i=i+2
    
13.   else
    
14.   if isvalidhex(mid(enstr,i,3)) then
    
15.   if isvalidhex(mid(enstr,i+3,3)) then
    
16.   v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
    
17.   deStr=deStr&chr(v)
    
18.   i=i+5
    
19.   else
    
20.   v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
    
21.   deStr=deStr&chr(v)
    
22.   i=i+3
    
23.   end if
    
24.   else
    
25.   destr=destr&c
    
26.   end if
    
27.   end if
    
28.   else
    
29.   if c="+" then
    
30.   deStr=deStr&" "
    
31.   else
    
32.   deStr=deStr&c
    
33.   end if
    
34.   end if
    
35.   next
    
36.   URLDecode=deStr
    
37.   end function
    
38. 
    
39.   function isvalidhex(str)
    
40.   isvalidhex=true
    
41.   str=ucase(str)
    
42.   if len(str)<>3 then isvalidhex=false:exit function
    
43.   if left(str,1)<>"%" then isvalidhex=false:exit function
    
44.   c=mid(str,2,1)
    
45.   if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
    
46.   c=mid(str,3,1)
    
47.   if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
    
48.   end function

复制代码