ASP图片的入库与读取(数据库)

qsu09l4qh8o

'读出图象数据
myData=Midb(frmdata,dataStart,dataEnd)
style="font-size:14px;">
图片的入库与读取(数据库)
8 图片入库 :::... Coding by Sunrise_Chen.  
Source Code
<!--#include virtual="/_inc/conn.inc"-->
<%
'获得客户端送出的数据字节大小
frmsize=Request.TotalBytes
'去掉实际数据前、后的边界字符串行
bnCrLf=ChrB(13)&ChrB(10)
divider=leftB(frmdata,CLng(InstrB(frmdata,bnCrLf))-1)
dataStart=InstrB(frmData,bnCrLf&bncrlf)+4
dataEnd=InstrB(datastart+1,frmData,divider)-dataStart
strSQL="SELECT picData FROM tblImages WHERE id=" & sID
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL,conn,1,1
Response.ContentType="image/*"
dataSize=rs(0).actualSize
Response.BinaryWrite rs(0),qhg8ln.com.getChunk(dataSize)
rs.Close
conn.Close
%>
'以二进制方法读取数据
frmData=Request.BinaryRead(frmsize)
'将图象数据存入数据库
strSQL="SELECT * FROM tblImages"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open strSQL,conn,1,3
rs.addnew
rs("picData").AppendChunk myData
rs.Update
counts=rs.recordCount+1
rs.close
conn.close
%>
8 读取图片 :::...   Coding by Sunrise_Chen.  
Source Code
<!--#include virtual="/_inc/conn.inc"-->
<%
sID=Request.QueryString("id")

plhoumom

楼上的继续啦  

快鱼

ding   支持  

漂洋过海

努力~~各位。。。  

巴山侠客

先顶后看