-
'函数名 urencoding
'作用： 转换编码
-
functionurlencoding (datatatestr)
Dimstrreturn, Si, Thischr, InnerCode, Hight8, low8
strreturn = "
forsi = 1tolen (destric)
thischr = mid (datustr, si, 1)
ifabs (asc (thischr)) <& hffthen
strreturn = strreturn & thischr
อื่น
InnerCode = ASC (ThisChr)
ifinercode <0 แล้ว
InnerCode = InnerCode+& H1
endif
Hight8 = (InnerCodeand & HFF00)/& HFF
low8 = innerCodeand & hff
strreturn = strreturn & "%" & hex (hight8) & "& hex (low8)
endif
ต่อไป
urlencoding = streturn
endfunction