如何在上传至数据库时提取出图片的格式和长宽(二进制方式)
雅彦 2006-04-26 09:16:43 <%
Response.Buffer=True
formsize=Request.TotalBytes
formdata=Request.BinaryRead(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set rs=server.createobject("ADODB.recordset")
rs.open "Select * From img Where id is null",conn,1,3
rs.addnew
rs("img").AppendChunk myData
'rs("format")=
'rs("width")=
'rs("height")=
rs("uploadtime")=Now()
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "index.asp"
%>
这段代码以二进制方式将图片存入数据库里,希望能同时将图片的格式、长、宽也存入数据库,请问有什么办法;如果不行的话,那么想问在读取数据库里的图片时提取时如何将图片的格式、长、宽提取出来(下面是读取图片的代码<img src="showimg.asp?id=<%=whatid%>" >的showimg.asp页):
<%
Response.Expires = 0
Response.buffer=True
Response.clear
set rs=server.createobject("ADODB.recordset")
sql="select * from img where id="&trim(request("id"))
rs.open sql,conn,1,1
Response.ContentType="image/*"
formsize=rs("img").ActualSize
Response.BinaryWrite rs("img").getChunk(formsize)
rs.close
conn.close
set rs=nothing
set conn=nothing
%>