读取二进制数据显示

[fighter222]

数据库中有一个字段A,类型是binary(8),例如0x4917083A00000015
我想用asp读出来,显示为0x4917083A00000015
怎么写啊?

[fighter222]

数据库是sql

[smartcatiboy]

open ......

dim objXml

set objXml=createobject("msxml.domdocument")
set objXml.DocumentElement=objXMl.createElement("Root")
objXml.DocumentElement.DataType="bin.hex"
objXml.DocumentElement.NodeTypedValue=objRst("binData").getChunk(objRst("binDta").actualSize)
response.write "0X" & objXml.DocumentElement.Text

close......

[fighter222]

我顶

[wuyq11]

http://topic.csdn.net/t/20041025/14/3488769.html

[fighter222]

0x这个怎么处理呢

[fighter222]

你那个我没看懂,我自己搞了一个,从数据库里按位转成整型取出来,在用hex()转一把

[smartcatiboy]

我写了答案，能不能用你好歹肯一声啊。

[smartcatiboy]

给分了服务要周到，下面的代码将c盘下的test.jpg保存在数据库中，然后读出显示为0x的形式

Option Explicit 

Const strPath="c:\test.jpg"


Dim objXml,objAds,objCon,objRst
On Error Resume Next 
Set objCon=CreateObject("adox.catalog").create("Provider=microsoft.jet.oledb.4.0; data source=test.mdb")
If err Then
	Set objCon=CreateObject("adodb.connection")
	objCon.open "Provider=microsoft.jet.oledb.4.0; data source=test.mdb"
End If 
objCon.execute "CREATE TABLE tblBinTest(bin IMAGE)"
On Error goto 0

Set objRst=CreateObject("adodb.recordset")
objRst.open "tblBinTest",objCon,0,3,2
If objRst.eof Or objRst.bof Then 
	Set objAds=CreateObject("adodb.stream")
	objAds.Type=1
	objAds.Mode=3
	objAds.open
	objAds.loadFromFile strPath
	objRst.addNew
	objRst("bin").appendChunk objAds.read
	objRst.update
	objAds.close
	Set objAds=Nothing 
End If 

Set objXml=CreateObject("msxml.domdocument")
Set objXml.documentElement=objXml.createElement("Root")
objXml.documentElement.DataType="bin.hex"

objXml.DocumentElement.NodeTypedValue=objRst("bin").getChunk(objRst("bin").actualSize)

MsgBox "0x" & Left(objXml.documentElement.Text,255)