|
|
|
7i24.Com不停为您服务
如何以十六进制显示字串数据?
2001:8:13
问：
如何以十六进制显示字串数据?
答:sub ShowHex(data)
dim l
dim i
dim ch
l=lenB(data)
for i = 1 to l
ch=midB(data,i,1)
h=trim(hex(ascB(ch)))
if len(h)=1 then
h="0"+h
end if
response.write h+" "
if i mod 15 =0 then
response.write "
"
end if
next
end sub
|
|
|
