菜鸟级问题：请帮我解释下这段代码,在线等待

[teddyboy98]

function geturlencodel(byval,url)
Dim i,code
geturlencodel=""
if trim(Url)="" then exit function
for i=1 to len(Url)
code=Asc(mid(Url,i,1))
if code<0 Then code = code + 65536
If code>255 Then
geturlencodel=geturlencodel&"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2)
else
geturlencodel=geturlencodel&mid(Url,i,1)
end if
next
end function

[teddyboy98]

简单的问题难到没人回答吗

[amylin]

自己看看