请教各位大侠帮我把这段JS函数改成ASP?

Question

<%
function urldecode(source_url)
dim regex , tep , newside
regex = ".:/-_0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"'要替换的
tep = ""
newside = -1
for i = 0 to len(source_url) - 1'从0开始的，所以要减一
tmp = mid(source_url , i+1 , 1)'这里算法和JavaScript有点不同
newside = -1 '初始化
newside = instr(regex , tmp) - 1'这里算法也有点不同
if newside >= 0 then
newside = (newside + len(regex) - 7) mod len(regex)
urldecode = urldecode & mid(regex,newside+1,1)
else
urldecode = urldecode & tmp
end if
next'exit for
end function
%>

Answer 1

谢谢你,运行良好。
这段代码是从网易上找来的。
祝你情人节快乐