decodeURI解码问题（- -| 急）
a.sp是接收页面，大致如下：

<%
a=request("a")
b=request("b")
c=request("c")
......
%>

由于提交页面用了encodeURI 对a,b...值进行加码，
问题是 在 a=request("a") 这怎么实现decodeURI解码。
我自己有个思路，列子如下：

<%
dim dd
dd="%E8%A7%84%E5%88%92%E5%B1%80" '中文是 规划局
%>
<script language="javascript" runat="server">
var dd;
ddd = decodeURI(dd);
</script>
<%
response.Write ddd
%>

返回的值是 undefined。- -|
问题是<script language="javascript" runat="server">与<%%>的变量怎么交换，
网上找了好久，没找到可行办法。。。。
求助！！！！！！！！！！！
[最优解释]

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

[其他解释]

引用:

VBScript code
Function URLDecode(enStr)
dim deStr,strSpecial
dim c,i,v
deStr=""
strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{
[其他解释]
}~%"
for i=1 to len(enStr)
c=Mid(enSt……

UP
[其他解释]
感谢 cj205
现在显示数据是正确的了。
但奇怪的是数据库里面怎么依然饭特稀，乱码依旧。
[其他解释]

引用:

感谢 cj205
现在显示数据是正确的了。
但奇怪的是数据库里面怎么依然饭特稀，乱码依旧。

存入数据库前Decode下就好
------其他解决方案--------------------

Name=URLDecode(request("Name"))
....

 SQL="select * from ***"
  rs.open sql,cn,1,3
    rs.addnew
      rs("Name")=Name
      .....
    rs.update
  rs.close

对的啊。就是这样的啊。。。奇了怪了。- -
[其他解释]
该回复于2010-12-14 14:36:59被版主删除