'======================================================
'函数名 urencoding
'作用 : 转换编码
'======================================================
Functurlencoding (DatatatetST)
Dimstrreturn, Si, Thischr, InnerCode, Hight8, Low8
strreturn = "
Forsi = 1tolen (destro)
TheChr = MID (DAILustre, Si, 1)
Ifabs (ASC (thischr)) <& hffthen
strreturn = strreturn & theChr
Outro
InnerCode = ASC (Thischr)
ifinercode <0then
InnerCode = InnerCode+& H1
Endif
Hight8 = (InnerCodeand & Hff00)/& hff
LOW8 = INERCODEAND e HFF
strreturn = strreturn & "%" & hex (Hight8) & "& Hex (Low8)
Endif
Próximo
Urlencoding = strreturn
Função final