pic.asp

来自「视频源代码 视频源代码」· ASP 代码 · 共 34 行

<%response.expires=0%>
<!-- #include file="inc/conn.asp" -->
<%Dim id,Pic
id = request("id")
if id="" then response.end
if not isnumeric(id) then response.end

set rs=server.CreateObject("ADODB.recordset")
sql="select top 1 big from "&Session("photodata")&"photo where id="&id
rs.open sql,conn,1,1
if not rs.eof then
  if not isNull(rs(0)) then
    Pic=rs(0)
  else
    rs.close
    Set rs=nothing
    Set conn=nothing
    response.redirect picpath&"error.jpg"
    response.end
  end if
else
  rs.close
  Set rs=nothing
  Set conn=nothing
  response.redirect picpath&"error.jpg"
  response.end
end if
rs.close
Set rs=nothing
Set conn=nothing

Response.contenttype="image/gif"
Response.BinaryWrite Pic
Set pic=nothing%>