showpic.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<!-- #include file="../conn_lr.asp"-->
<%
dim rs,RealSize,ConSize,ConnStr,con,lngLogoSize,lngOffset,varChunk
ConSize=512
set rs=server.CreateObject("adodb.recordset")

if left(request("id"),1)> "9" then
	rs.Open "select * from images where vid='" & request("id") & "'",session("conn"),1,1
else
	rs.Open "select * from images where id=" & cint(request("id")) ,session("conn"),1,1
end if

if not rs.eof then
  	if rs("vimage").ActualSize  >5 then
		Response.ContentType = "image/*" 
		RealSize=rs("vimage").ActualSize
		lngLogoSize =rs("vimage").ActualSize

		Do While lngOffset < lngLogoSize
			'varChunk = rs("vimage").GetChunk(ConSize)
			Response.BinaryWrite rs("vimage").GetChunk(ConSize)
			lngOffset = lngOffset + ConSize
		Loop

	end if
end if

rs.close
set rs=nothing
set con=nothing
%>