请大家看看这段VBS是做什么的？
function eturlencode(v)dim i,r,c,t,n,h,l
c="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
r=""
for i=1 to len(v)
t=mid(v,i,1)
if abs(asc(t))<&hff then
if instr(c,t)>0 then
r=r&t
else
r=r & "%" & hex(asc(t))
end if
else
n= asc(t)
if n<0 then
n=n+&h10000
end if
h=(n and &hff00) mod &hff
l=n and &hff
r=r & "%" & hex(h) & "%" & hex(l)
end if
next
eturlencode=r
end function
