前往顾页
以后地位: 主页 > 收集编程 > 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源码
------分开线----------------------------
保举内容
猜你感兴趣