displaypic.asp

来自「一个非常好的旅游网站程序.」· ASP 代码 · 共 18 行

<% 

Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../Database/pic_sdfhsd.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("ADODB.recordset") 
sql="select top 1 * from pic order by pic_id desc" 
rs.open sql,conn,1,1 
Response.ContentType = "image/jpeg" 
Response.BinaryWrite rs("big")
rs.close 
set rs=nothing 
set connGraph=nothing 

%>