asp解码的问题

listry

%D6%D0%B9%FA%C8%CB

在asp中可以用Server.URLEncode把汉字变成如上代码
请问如何变回来？

在js中可以用unescape，vbs中如何做？

listry

;10 咋没有人知道？

listry

天啦，三天了还没有人回。难道这么常见的问题都没有人碰到过吗？

listry

CSDN上选择自 dyydyy 的 Blog　
URLDecode函数

function URLDecode(enStr)
        dim deStr
        dim c,i,v
        deStr=""
        for i=1 to len(enStr)
                c=Mid(enStr,i,1)
                if c="%" then
                        v=eval("&h"+Mid(enStr,i+1,2))
                        if v<128 then
                                deStr=deStr&chr(v)
                                i=i+2
                        else
                          if isvalidhex(mid(enstr,i,3)) then
                                  if isvalidhex(mid(enstr,i+3,3)) then
                                        v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
                                        deStr=deStr&chr(v)
                                        i=i+5
                                  else
                                        v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
                                        deStr=deStr&chr(v)
                                        i=i+3
                                  end if  
                          else  
                                  destr=destr&c
                          end if
                        end if
                else
                        if c="+" then
                                deStr=deStr&" "
                        else
                                deStr=deStr&c
                        end if
                end if
        next
        URLDecode=deStr
end function


function isvalidhex(str)
        isvalidhex=true
        str=ucase(str)
        if len(str)<>3 then isvalidhex=false:exit function
        if left(str,1)<>"%" then isvalidhex=false:exit function
        c=mid(str,2,1)
        if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
        c=mid(str,3,1)
        if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
end function

厨师

谢谢！

前2天就看了，但无奈asp不熟，也没使用过URLdecoding。 看了VBScript，谢谢！

listry

用asp的人越来越少……