'================================================================================
'函数名 Urencoding
': : 转换编码
'================================================================================
FunctionUrlencoding (dataTatest)
DimStrreturn, Si, Thistchr, InnerCode, Hight8, Low8
strreturn = "
Forsi = 1tolen (dests)
ThoPhr = Mid (Datustr, Si, 1)
Ifabs (asc (therchr)) <& hffthen
strreturn = strreturn & thechr
Еще
InnerCode = ASC (ThastChr)
ifinercode <0then
InnerCode = innerCode+& H1
Эндиф
Hight8 = (InnerCodeAnd & HFF00)/& HFF
Low8 = innercodeand & hff
strreturn = strreturn & "%" & hex (hight8) и "& hex (low8)
Эндиф
Следующий
Urlencoding = strreturn
Конечная функция