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