dim str as string
dim a,b as integer
for i=1 to len(str)
a=ascw(mid(str,i,1))
if i=1 then
b=hex(a)
else
b=hex(a) & "-" b
end if
next这样可以把它变成16位进制的编码!!用“-”分开!
dim a,b as integer
for i=1 to len(str)
a=ascw(mid(str,i,1))
if i=1 then
b=hex(a)
else
b=hex(a) & "-" b
end if
next这样可以把它变成16位进制的编码!!用“-”分开!
http://www.4guysfromrolla.com/webtech/090501-1.shtml