'=====================================================
函数名 urencoding
'： ： 转换编码
'=====================================================
POSTRIALIRLENCODING (datatatester)
DimStreturn ، SI ، thischr ، innercode ، hight8 ، low8
streturn = "
forsi = 1tolen (DestR)
thischr = mid (datustr ، si ، 1)
IFABS (ASC (thischr)) <& hffthen
streturn = streturn & thischr
آخر
innercode = ASC (thischr)
ifinercode <0then
innercode = innercode+& h1
Endif
Hight8 = (InnerCodeand & HFF00)/& HFF
low8 = InnerCodeand & HFF
Streturn = Streturn & "٪" & Hex (Hight8) & "& Hex (Low8)
Endif
التالي
urlencoding = streturn
الوظيفية