==================================================
功能名称:urlencoding
角色:转换编码
==================================================
功能urlencoding(datastr)
昏暗的StrReturn,Si,thischr,InnerCode,hight8,low8
= strreturn
Si = 1 Len(datastr)
thischr =中(datastr,Si,1)
如果ABS(ASC(thischr))< HFF然后
strreturn = strreturn thischr
其他的
innercode = ASC(thischr)
如果InnerCode<0
innercode = innercode + H10000
最后如果
hight8 =(innercode和hff00) HFF
low8 = innercode HFF
strreturn = strreturn %六(hight8)%六(low8)
最后如果
下一个
urlencoding = strreturn
端功能