VBScript

URL Encoding and Decoding

Demonstrates URL encoding/decoding using the HTTP convenience methods. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set http = CreateObject("Chilkat.Http")

s = "Hello World! 100% sure."

encoded = http.UrlEncode(s)
outFile.WriteLine("URL encoded: " & encoded)

' Space → %20
' ! → %21
' % → %25

decoded = http.UrlDecode(encoded)
outFile.WriteLine("URL decoded: " & decoded)

' Output:

' URL encoded: Hello%20World%21%20100%25%20sure.
' URL decoded: Hello World! 100% sure.

outFile.Close