'=========================================================
'函数名 Harding
'作用 ： 转换编码
'=========================================================
FunctionUrlencoding (Datatatestern)
Dimstrreturn, Si, Thischr, Innercode, Hight8, Low8
Streturn = "
FOSI = 1TOLEN (Zerstörungen)
Thr = Mid (Datustr, Si, 1)
Ifabs (asc (ththr)) <& hffthen
Streturn = Streturn & Thischr
Anders
InnerCode = ASC (tintchr)
IfInerCode <0Then
InnerCode = Innercode+& H1
Endif
Hight8 = (InnerCodeand & HFF00)/& HFF
Low8 = InnerCodeand & HFF
Streturn = Streturn & "%" & hex (hight8) & "& hex (low8)
Endif
Nächste
Urlencoding = Streturn
Endfunktion