用server.URLencode编码后，怎么变回来？

[cadem]

用server.URLencode编码后的URL地址，用什么方法变回正常?

[cadem]

to shines(Othelloing) :
用str="%5C%D6%D0%B9%FA"实验不会错，但把test.asp?test=test&test1=test1这个用server.URLencode编码后，试验九出错。

[shines77]

sorry, 上面漏了一个“.”

把
strSpecial="!""#$%&'()*+,/:;<=>?@[\]^`{|}~%"

该为：
strSpecial="!""#$%&'()*+,/:;<=>?@[\]^`{|}~%."

就行了。。。

[pilicat]

你直接使用就可以了，浏览器以及WEB服务器均能识别的！

[shines77]

自己写一个函数，如下：

dim str
str="%5C%D6%D0%B9%FA"

URLDecode(str)

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

[Brookes]

vbs里没有办法，js里有escape方法，可以试一下

[cadem]

response.Redirect request（"from"),from是server.URLencode的地址，但出现404错误。

[cadem]

shines(Othelloing) 的方法有编译错误

[shines77]

哪一句错？eval()函数？ 试试下面

dim str
str="%5C%D6%D0%B9%FA"

Response.Write URLDecode(str)

[iwodgirl]

to shines(Othelloing) :

我是初学，在做留言本时，如不想让别人填写的脚本来破坏我的服务器，或页面显示，就要用到你的这种方法，但想是想用，就是不会，你的程序很好。

可不可以麻烦你，把你的程序加上一些注解，让我们初学的能看懂多一点。