VB6 uft8 轉 gb2312

'函数名：UrlEncoding
 '作  用：转换编码
 '===============================================
 Function UrlEncoding(DataStr)
  Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
  StrReturn = ""
  For Si = 1 To Len(DataStr)
   ThisChr = Mid(DataStr,Si,1)
   If Abs(Asc(ThisChr)) < &HFF Then
    StrReturn = StrReturn & ThisChr
   Else
    InnerCode = Asc(ThisChr)
    If InnerCode < 0 Then
       InnerCode = InnerCode + &H10000
    End If
    Hight8 = (InnerCode  And &HFF00)\ &HFF
    Low8 = InnerCode And &HFF
    StrReturn = StrReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
   End If
  Next
  UrlEncoding = StrReturn
 End Function