图片的二进制代码入数据库并在网页上显示(新手篇)

conn.asp-----------数据库连接文件
index.asp-----------上传表单及显示已经上传的数据
showing.asp-------显示数据库图片的数据
upload.asp---------保存图片的数据,寸入数据库
del.asp--------------删除图片



data.mdb(picture表)
字段                            类型
id                                  自动编号
img                                OLE对象


index.asp

<!--#include file="conn.asp"-->
<html>
<body>
<center>
<form name=mainform enctype="multipart/form-data" action="upload.asp" method="post">
<input type=file name="file1">
<input type=submit name="ok" value="确定">
</form>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from picture order by id desc"
rs.open sql,conn,1,1
 do while not rs.eof
%>
<img src="showing.asp?id=<%=rs("id")%>" width="280"  Border=0>
<a href="del.asp?id=<%=rs("id")%>">删除</a>
<br>
<%
rs.movenext
loop
%>
</center>
</body>
</html>
<center>
</body>
</html>
<%
rs.close
set rs=nothing
set conn=nothing
%>


conn.asp

<%
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb")
conn.open connstr
%>


showing.asp

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from picture where id="&trim(request("id"))
rs.open sql,conn,1,1

response.contenttype = "image/*"
response.binaryWrite rs("img").getChunk(7500000)
rs.close
set rs=nothing
set conn=nothing
%>


upload.asp

<!--#include file="conn.asp"-->
<%
response.buffer=true
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)

set rs=server.createobject("adodb.recordset")
sql="select * from picture where id is null"
rs.open sql,conn,1,3

rs.addnew
rs("img").appendchunk mydata
rs.update
rs.close
set rs=nothing
set conn=nothing
response.write"<script language='javascript'>"
response.write"alert('upload successed!');"
response.write"window.location='index.asp';"
response.write"</script>"
%>


del.asp

<!--#include file="conn.asp"-->
<%
sql="delete * from picture where id="&request("id")
conn.execute sql
response.write"<script language='javascript'>"
response.write"alert('del successed!');"
response.write"window.location='index.asp';"
response.write"</script>"
%>











  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

aa2004

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值