轻松实现将上传图片到数据库
2004-12-23 13:02
375 查看
我们做一个上传的。数据据库的字段就id自动编号 big 字段类型是 OLE 呵呵就简单的那个字段好了
uppic.asp上传程序名
<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes '取得客户端发过来的大小
formdata=request.binaryread(formsize)'把客户发过来的数据转成二进制作
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)'上面总共是取得图片的二进制数据
%>
<!--#include file="conn.asp"-->
<%
sql="select * from pic order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,2
rs.addnew
rs("big").appendchunk mydata '增加到数据库中
rs.update
set rs=nothing
set conn=nothing
%>
接下来是显示图片
display.asp
<!--#include file="conn.asp"--> '这个大家都知道吧,他就是与数据库连的一个程序了
<%
id=request("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,1
Response.ContentType = "text/html" '显示图片的格式也可以用
'Response.ContentType = "image/gif" 以gif显示
'Response.ContentType = "image/jpg" 以jpg显示
Response.BinaryWrite rs("big") '显示图片
rs.close
set rs=nothing
set connGraph=nothing
%>
uppic.asp上传程序名
<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes '取得客户端发过来的大小
formdata=request.binaryread(formsize)'把客户发过来的数据转成二进制作
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)'上面总共是取得图片的二进制数据
%>
<!--#include file="conn.asp"-->
<%
sql="select * from pic order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,2
rs.addnew
rs("big").appendchunk mydata '增加到数据库中
rs.update
set rs=nothing
set conn=nothing
%>
接下来是显示图片
display.asp
<!--#include file="conn.asp"--> '这个大家都知道吧,他就是与数据库连的一个程序了
<%
id=request("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,1
Response.ContentType = "text/html" '显示图片的格式也可以用
'Response.ContentType = "image/gif" 以gif显示
'Response.ContentType = "image/jpg" 以jpg显示
Response.BinaryWrite rs("big") '显示图片
rs.close
set rs=nothing
set connGraph=nothing
%>
相关文章推荐
- asp下轻松实现将上传图片到数据库的代码
- asp下轻松实现将上传图片到数据库的代码
- 轻松实现将上传图片到数据库
- php实现将文件写入数据库、从数据库读取文件(防止图片上传漏洞)
- 轻松实现图片上传并回显
- express实现前后端通信上传图片,存储数据库(mysql)傻瓜教程(三)完结篇
- Retrofit 2.0 轻松实现文件/多图片上传/Json字符串
- php实现上传图片保存到数据库的方法
- 用asp.net实现将上传的图片变小存入数据库
- jsp图片上传到数据库,并且实现取出来
- 详解vb.net实现图片以二进制形式上传和读取到数据库
- ASP + ACCESS 上传图片到数据库与将图片读出数据库显示之实现
- php上传图片到指定位置路径保存到数据库的具体实现
- [[ASP]上传图片至数据库内功能的实现(OLE对象)
- php实现上传图片保存到数据库的方法
- JS,jQuery轻松实现input图片上传预览功能
- 详解vb.net实现图片以二进制形式上传和读取到数据库
- hibernate加ajax异步实现数据库中的新闻类别字段的获取,并且表单还是带有图片上传功能的
- Retrofit 2.0 超能实践(三),轻松实现文件/多图片上传/Json字符串