17 lines
463 B
VB.net
17 lines
463 B
VB.net
Function UrlEncode(url)
|
|
For i = 1 To Len(url)
|
|
n = Asc(Mid(url,i,1))
|
|
If (n >= 48 And n <= 57) Or (n >= 65 And n <= 90) _
|
|
Or (n >= 97 And n <= 122) Then
|
|
UrlEncode = UrlEncode & Mid(url,i,1)
|
|
Else
|
|
ChrHex = Hex(Asc(Mid(url,i,1)))
|
|
For j = 0 to (Len(ChrHex) / 2) - 1
|
|
UrlEncode = UrlEncode & "%" & Mid(ChrHex,(2*j) + 1,2)
|
|
Next
|
|
End If
|
|
Next
|
|
End Function
|
|
|
|
WScript.Echo UrlEncode("http://foo baré/")
|