关于乱码转换问题

Question

%E7%BE%8E%E5%9B%BD06%E6%9C%80%E6%96%B0%E7%81%AB%E7%88%86%E7%A7%91%E5%B9%BB%E5%A4%A7%E7%89%87%2C%E5%85%89%E9%80%9F%E8%B6%85%E4%BA%BA%E4%B8%8E%E5%8D%8A%E4%BA%BA%E5%8D%8A%E8%9B%87%E9%AD%94%E9%AC%BC%E7%9A%84%E4%BA%89%E6%96%97
%E7%94%B5%E5%BD%B1%E9%A2%91%E9%81%93
%E7%A7%91%E5%B9%BB%E7%89%87

以上是一则乱码.. 朋友给我了个函数转换的代码..不知道如何使用!

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

Answer 1

这是VB代码
需要安装VB编程软件.