asp中以十六进制显示字串数据

如何以十六进制显示字串数据？

整理编辑：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