点击访问:VB版本的URLEncode（在网上很难找的正确版本）--Winkey的情感世界

VB版本的URLEncode（在网上很难找的正确版本）
VB版本的URLEncode
在问专家的网站上有另一个版本，
但似乎不对（问专家上的都是高高手，我不敢说他们是的）
在网上找到的都是他们的版本。。。。
下面的会得到最正确的结果！

Function URLEncoding(vstrIn)
strReturn = ""
Dim i
For i = 1 To Len(vstrIn)
ThisChr = Mid(vstrIn, i, 1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode An