'===================================================
'函数名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
最终功能