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