现存入一个excel文件到数据库中(二进制)，在网页中应怎样显示呢，在线送分~~~?

[dreamboy527]

现存入一个excel文件到数据库中(二进制)，在网页中应怎样显示呢，在线送分~~~?

[williamtom]

<%
Response.Buffer = true
Response.Clear

'Access数据库，数据源名abc，表名User_File，存放文件字段filecontent
Set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.Open "DSN=abc;uid=;pwd="
rs.open "select * from User_File",conn,1,1
Response.ContentType = "application/vnd.ms-excel"

lngOffset=0
conChunkSize=1024
lngPictSize=rs("FileContent").ActualSize
Do While lngOffset < lngPictSize
varChunk = rs("FileContent").GetChunk(conChunkSize)
Response.BinaryWrite varChunk
lngOffset = lngOffset + conChunkSize
If lngOffset > lngPictSize Then Exit Do
Loop

rs.close
set rs=Nothing
conn.close
set conn=nothing
%>