Private Sub UrlEncodeAndKeepSlashes (url As String) As String
Dim su As StringUtils
Dim sb As StringBuilder
sb.Initialize
Dim i1 = url.IndexOf("/"), i2 As Int
Do While i1 > -1
If i1 > i2 Then
sb.Append(su.EncodeUrl(url.SubString2(i2, i1), "utf8"))
End If
sb.Append("/")
i2 = i1 + 1
i1 = url.IndexOf2("/", i2)
Loop
If i2 < url.Length Then
sb.Append(su.EncodeUrl(url.SubString2(i2, url.Length), "utf8"))
End If
Return sb.ToString
End Sub