从数据库中调用图片

Question

你使用的是SQL SERVER吗？

Answer 1

一个朋友给的例子
<%id=Request("id")cn1 = "Server.CreateObject('ADODB.Connection')" 
strProvider ="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("stream.mdb")
sql="SELECT * FROM imgtable where id="&id
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,strProvider,1,3
 
response.contenttype="image/gif"
Response.BinaryWrite rs("img")
%>好好看吧

Answer 2

Dim rst1 As ADODB.Recordset
         Dim col As ADODB.Field
     
         Set col = rst1.Fields("image")
         destNum = FreeFile
         Open "c:\\temp.bmp" For Binary As #DestFileNum
         ColSize = col.ActualSize
         NumBlocks = ColSize \ 8192
         LeftOver = ColSize Mod 8192
         ReDim byteData(LeftOver)
         byteData() = col.GetChunk(LeftOver)
         Put DestFileNum, , byteData()
         ReDim byteData(8192)
         For i = 1 To NumBlocks
         byteData() = col.GetChunk(8192)
         Put #DestFileNum, , byteData()
         Next
         If LOF(DestFileNum) > 200 Then
             ftitle = rst1.Fields("bmp_title").value
             bmp_id = rst1.Fields("bmp_id").value
         End If
         Close #DestFileNum