Dim s As String ="狐表是个很棒的软件"
Dim bs() As Byte = System.Text.Encoding.default.GetBytes(s)
bs = System.Text.Encoding.Convert(System.Text.Encoding.default, System.Text.Encoding.utf8, bs)
Dim s1 As String = System.Text.Encoding.utf8.GetString(bs)
Output.Show(s1)
s1 = urlencode(s1)
Output.Show(s1)