pic_play.asp

一个非常好的旅游网站程序.

<% 
Pic_id=request("pic_id")
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 * from pic where pic_id=" & pic_id
rs.open sql,conn,1,1 
Response.ContentType = "image/jpeg" 
Response.BinaryWrite rs("big")
rs.close 
set rs=nothing 
set connGraph=nothing 

%>