图片入库 复制代码 代码如下:<!--#include virtual="/_inc/conn.inc"--> <% '取得客户端送出的数据字节大小 frmsize=Request.TotalBytes '以二进制方式读取数据 frmData=Request.BinaryRead(frmsize) '去掉实际数据前、后的边界字符串行 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 '读出图象数据 myData=Midb(frmdata,dataStart,dataEnd) '将图象数据存入数据库 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 %> 读取图片 复制代码 代码如下:<!--#include virtual="/_inc/conn.inc"--> <% sID=Request.QueryString("id") 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).getChunk(dataSize) rs.Close conn.Close %>

　　推荐阅读

　　ASP编程入门进阶（十六）：FSO组件之驱动器操作

FSO，正如UFO般令人激动、令人神往，当然更多的亦是让人欢喜让人忧。君不见某空间服务商广告：100MB空间只要60RMB/年，支持数据库，支持什么什么……一问不支持FSO，立马泄气。那FSO究竟是什么东西，它的力量又是如>>>详细阅读

本文标题：图片的入库与读取的方法

地址：http://www.17bianji.com/kaifa2/ASP/32875.html

 1/2    1