images.asp
<%
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from images_lib where FileID='"&request("FileID")&"'"
rs.open sql,myconn,1,3
if not(rs.EOF and rs.BOF and isnull(rs("images"))) then
rs.update
rs("viewtimes")=rs("viewtimes")+1
rs.Update
Response.ContentType = "image/bmp"
Response.BinaryWrite rs("images").getChunk(7500000)
else
Response.Write "no data"
end if
rs.close
set rs=nothing
%>