'================================================== '函数名：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