繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 图片的入库与读取的方法
- ASP
- 在ASP程序中实现数据库事务控制
- 怎样开始一个ASP网站的设计
- ASP中使用ServerVariables集合详解
- 关于解决商务平台ASP程序的源代码泄漏设想与思考
- ASP通用模板类
- javascript利用xmlhttp获得服务器时钟的方法
- asp+oracle分页程序类（XDOWNPAGE2.0）
- ASP中实现小偷程序的原理和简单
- asp中vbscript访问xml文件
- ASP防SQL注入攻击程序
- 用ASP读INI配置文件的函数
- asp实现关键词获取(各搜索引擎,gb2312及utf-8)
- xmlhttp组件获取远程文件并筛选出目标数据
- XMLHTTP Get HTML页面时的中文乱码之完全客户端Script解决方案
- WEB打印设置解决方案一（通过修改注册表改变IE打印设置）
- WEB打印设置解决方案二（利用ScriptX.cab控件改变IE打印设置）
- WEB打印设置解决方案三（FileSystem组件实现WEB打印）
- WEB打印设置解决方案四（在ASP中实现网络打印功能）
- ASP实用技巧 强制刷新网页
- Access通用－自动替换数据库中的字符串
ASP 中的 图片的入库与读取的方法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 210 ::
收藏到网摘: n/a
图片入库
复制代码 代码如下:
<!--#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
%>
<%
'取得客户端送出的数据字节大小
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
%>
<%
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
%>
评论 (0) All
