'=======================================================
'函数名 Urencoding
'作用 : 转换编码
'=======================================================
FunctionUrlEncoding (DataTatestr)
Dimstrreturn, SI, Thatchr, Innercode, Hight8, Low8
strreturn = "
Forsi = 1Tolen (destruye)
Thatchr = Mid (Datustr, Si, 1)
Ifabs (ASC (thatchr)) <& hffthen
strreturn = strreturn y thatchr
Demás
Innercode = asc (Thatchr)
ifinercode <0then
InnerCode = innerCode+& H1
Endif
Hight8 = (InnerCodeand & Hff00)/& Hff
Low8 = InnerCodeand & Hff
strreturn = strreturn & "%" & hex (hight8) & "& hex (low8)
Endif
Próximo
Urlencoding = strreturn
Función final