返回首页
当前位置: 主页 > 网络编程 > Asp实例教程 >

asp上传图片到access数据库程序代码

时间:2010-07-28 00:45来源:知行网www.zhixing123.cn 编辑:麦田守望者

1.数据库设计:

名称:images.mdb

表:images

字段:id 自动编号; images OLE对象

2.数据库连接文件conn.asp:

程序代码

<%

db="images.mdb" '数据库存放目录

on error resume next

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db)

if err then

err.clear

set conn = Nothing

response.write "数据库连接出错,请检查conn.asp中的连接字符串。"

response.end

end if

function CloseDB

Conn.Close

set Conn=Nothing

End Function

%>

3.upload.html文件:

程序代码

<form action="upload.asp" method="post" enctype="multipart/form-data">

  <input type="file" name="images">

  <input type="submit" name=ok value="上传">

</form>

4.upload.asp文件:

程序代码

<!--#include file="conn.asp"-->

<%

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")

rs.open "Select * FROM images",conn,3,3

rs.addnew

rs("images").AppendChunk myData

rs.update

rs.close

set rs=nothing

set conn=nothing

response.redirect "index.asp"

%>

5.显示图片文件show.asp:

程序代码

<!--#include file="conn.asp"-->

<%

set rs=server.createobject("ADODB.recordset")

sql="select * from images where id="&trim(request("id"))

rs.open sql,conn,1,1

Response.ContentType="image/*"

Response.BinaryWrite rs("images").getChunk(8000000)

rs.close

set rs=nothing

set conn=nothing

%>

6.首页index.asp:

程序代码

<!--#include file="conn.asp"-->

<%

strsql="select * from images"

set rs=server.createobject("ADODB.recordset")

rs.open strsql,conn,1,1

do until rs.eof

id=rs("id")

%>

<img src="show.asp?id=<%=id%>">

<%

rs.movenext

loop

%>
 

------分隔线----------------------------
标签(Tag):asp asp实例教程 asp教程 asp源码
------分隔线----------------------------
推荐内容
猜你感兴趣