showimage.asp

来自「实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用」· ASP 代码 · 共 12 行

<%
	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")              
%>