open.asp

企业办公自动化管理系统 asp+sql server 2005

<%Response.Buffer      = true 
Response.Clear 

ID=request("ID") 


set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("../database/myoffice.mdb")

         
        SQL="select * from suju where id="&id
        set rs=server.CreateObject("ADODB.Recordset") 
        rs.Open sql,conn,3,3 



 

Response.ContentType = rs("FileContentType") 

lngOffset=0 
conChunkSize=1024 
lngPictSize=rs("filevalue").ActualSize 
Do While lngOffset < lngPictSize 
   varChunk = rs("filevalue").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 
%>