'===================================================
'函數名urencoding
'作用：轉換編碼
'===================================================
functionUrLencoding（DataTaTEstr）
Dimstrreturn，Si，Thinchr，Intercode，Hight8，Low8
Strreturn =”
forsi = 1tolen（destr）
THECHR = MID（DATUSTR，SI，1）
IFABS（ASC（atchr））<＆hffthen
Strreturn = Strreturn＆Thinchr
別的
nirncode = asc（athr）
ifInercode <0
innincode = nirncode+＆h1
Endif
hight8 =（Intercodeand＆hff00）/＆hff
Low8 = Intercodeand＆HFF
strreturn = strreturn＆“％”＆hex（hight8）＆“＆hex（low8）
Endif
下一個
urlencoding = strreturn
最終功能