'=================================================.
'函数名 Urencoding
'作用 ： 转换编码
'=================================================.
Fonctionurlencoding (datatatestr)
Dimstrreturn, Si, Thischr, Innercode, Hight8, Low8
strreturn = "
Forsi = 1Tolen (destr)
ThisChr = mid (Datustr, si, 1)
Ifabs (asc (thischr)) <& hffthen
Streturn = Strreturn & Thischr
Autre
Innercode = ASC (ThisChr)
ifinercode <0Then
Innercode = innercode + & h1
Endire
hight8 = (innercodeand & hff00) / & hff
Low8 = Innercodeand & HFF
Streturn = Strreturn & "%" & Hex (Hight8) & "& Hex (Low8)
Endire
Suivant
Urlencoding = Streturn
Finition de fin