柴火【足迹 奔跑 飞翔】

Public Function URLEncode(strInput As String) As String      Dim strOutput As String      Dim intAscii As Integer      Dim i As Integer            For i = 1 To Len(strInput)              intAscii = As

=============汉字转换为UTF-8==================function chinese2unicode(Str)         for i=1 to len(Str)                 Str_one=Mid(Str,i,1)                 Str_unicode=Str_unicode&chr(38)