DDR爱好者之家

图片的入库与读取的方法
站长资源 2024/11/25 佚名
5 1538
DDR爱好者之家 Design By 杰米
图片入库
复制代码 代码如下:<!--#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 
%>
DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米