showycz.asp

2002年夏天为一个同学制作得班级同学录程序

<!--#include file="conn.asp" -->
<%
username=trim(request("username"))

'response.write(username)

set rec=server.createobject("ADODB.recordset")
 strsql="select photo from p_photo where username='"&username&"'"
 
 
' response.write(strsql)
 
 
rec.open strsql,conn,1,1
if not rec.eof then
  Response.ContentType = "image/gif"
  Response.BinaryWrite rec("photo").getChunk(7500000)
  rec.close
  set rec=nothing
  set connGraph=nothing
else
  rec.close
  set rec=nothing
  set conn=nothing

end if
%>