整理编辑：China ASP
答: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 "<br>"
end if
next
end sub
