对asp进行url解码 部分汉字解不出来
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

上面代码是 解码用函数
对 %E5%B1%B1%E4%B8%9C%E7%9C%81
进行解码 只能显示是山东xxx 后面的"省"字出不来，乱码，求大侠看看
------解决方案--------------------
提交页面 用 encodeURI

接收页调用
<!--#include file="../include/URLDecode.jsp"-->

用aaa=Request("aaaa") 接收

URLDecode.jsp

<%

'================================================ 

'函数名：URLDecode 

'作 用：URL解码 

'================================================ 

function URLDecode(strIn)

URLDecode = ""

Dim sl: sl = 1

Dim tl: tl = 1

Dim key: key = "%"

Dim kl: kl = Len(key)

sl = InStr(sl, strIn, key, 1)

Do While sl>0

If (tl=1 And sl<>1) Or tl<sl Then

URLDecode = URLDecode & Mid(strIn, tl, sl-tl)

End If

Dim hh, hi, hl

Dim a

Select Case UCase(Mid(strIn, sl+kl, 1))

Case "U":'Unicode URLEncode

a = Mid(strIn, sl+kl+1, 4)

URLDecode = URLDecode & ChrW("&H" & a)

sl = sl + 6

Case "E":'UTF-8 URLEncode

hh = Mid(strIn, sl+kl, 2)

a = Int("&H" & hh)'ascii码

If Abs(a)<128 Then

sl = sl + 3

URLDecode = URLDecode & Chr(a)

Else

hi = Mid(strIn, sl+3+kl, 2)

hl = Mid(strIn, sl+6+kl, 2)

a = ("&H" & hh And &H0F) * 2 ^12 Or ("&H" & hi And &H3F) * 2 ^ 6 Or ("&H" & hl And &H3F)

If a<0 Then a = a + 65536

URLDecode = URLDecode & ChrW(a)

sl = sl + 9

End If

Case Else:'Asc URLEncode

hh = Mid(strIn, sl+kl, 2)'高位

a = Int("&H" & hh)'ascii码

If Abs(a