'===================================================
'函數名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
最終功能