'=============================================================
'urecoding
'作用：转换编码
'=============================================================
functionLencoding（datatatestr）
Dimstrreturn、SI、ThisChr、InnerCode、Hight8、Low8
strreturn = "
forsi = 1tolen（破壊）
thischr = mid（datustr、si、1）
IFABS（ASC（thisChr））<＆hffthen
strreturn = strreturn＆thischr
それ以外
innercode = asc（thischr）
ifinercode <0then
innercode = innercode+＆h1
endif
hight8 =（innercodeand＆hff00）/＆hff
low8 = innercodeand＆hff
strreturn = strreturn＆ "％"＆hex（hight8）＆ "＆hex（low8）
endif
次
urlencoding = streturn
エンド機能