如何以十六进制显示字串数据? （转）

问：

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

答: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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124651/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124651/