showimage.asp

asp开发 asp开发 asp开发 asp开发

<%
	set conn = server.createobject("ADODB.CONNECTION")
	conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &_
		server.mappath("temp.mdb")
	'打开记录集
	strSql = "SELECT * FROM uploadfiles WHERE id = " & Request("id")
	Set rs = conn.Execute(strSql)
	'下面将文件输出到客户端浏览器
	Response.ContentType = "image/*"                  
	Response.BinaryWrite rs("fileimage")              
%>