showimg.asp

来自「学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁」· ASP 代码 · 共 26 行

<% 

set connGraph=server.CreateObject("ADODB.connection") 

connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("gws.mdb") & ";uid=;PWD=gws;" 

connGraph.Open 

set rec=server.createobject("ADODB.recordset") 
xh=request("xh")
bjbh=request("bjbh")

strsql="select img from "&bjbh&" where xh='" + xh + "'"
rec.open strsql,connGraph,1,1 
Response.ContentType = "image/*" 

Response.BinaryWrite rec("img").getChunk(7500000) 

rec.close 

set rec=nothing 

set connGraph=nothing 

%>