图片的入库与读取的方法

软件发布|下载排行|最新软件

当前位置:首页IT学院IT技术

图片的入库与读取的方法

  2021-03-17 我要评论
想了解图片的入库与读取的方法的相关内容吗,在本文为您仔细讲解的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:图片的入库与读取的方法,下面大家一起来学习吧。
图片入库
复制代码 代码如下:
<!--#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 
%>

Copyright 2022 版权所有 软件发布 访问手机版

声明:所有软件和文章来自软件开发商或者作者 如有异议 请与本站联系 联系我们