读取数据库（SQL Server）中的文件（图片例子）

<%
  response.Expires=0
  response.Buffer=true
  response.Clear
dim picId
picId = int(request("c_login_id"))
response.Write(picId)
strsql="select c_photo_pic from t_photo where c_login_id = 5 " '& picId
rs.open strsql,conn,3,1
'response.BinaryWrite(rs("c_photo_pic"))
'response.End()
  if rs.recordcount <> 0 then
    response.ContentType="image/*"
 response.BinaryWrite(rs("c_photo_pic"))
  end if
%>