<%
'建立数据库连接
dim conn,strcnn
set conn=server.CreateObject("ADODB.Connection")
strcnn="dbq="&server.MapPath("jxgl.mdb")& _
";driver={microsoft access driver (*.mdb)}"
conn.open strcnn
stuid=trim(request.querystring("stuid"))
if stuid <>"" then 
strsql="select 照片 from xsxx where 学号='"&stuid&"'"
'建立记录集
dim rs,strsql
set rs=server.CreateObject("adodb.recordset")
rs.open strsql,conn,1,3
'需将response.ContentType属性值设置为"image/jpg"
response.ContentType="image/*" 
if not rs.eof then 
'利用fields数据集合的actualsize获取照片大小
picsize=rs.fields("照片").actualsize 
imagedata=rs("照片").getchunk(picsize)
response.BinaryWrite imagedata
end if
rs.close
else
response.Redirect "9-15.htm"
end if
%>

