2023年7月14日发(作者：)

笨小孩工作室

如何上传图片（数据库形式）

第一步、创建数据表

用Access建立一个名为的数据库文件，创建名为photo的数据表，建立id和img两个字段，设置id为主键，格式为自动编号，img的格式为OLE对象，如下图所示：

第二步、创建上传图片的主页面

创建名为的文件

1 笨小孩工作室

enctype="multipart/form-data" >

显示图片

第三步、创建连接文件

创建名为的连接文件

<%

2

onsubmit="return mysubmit(this)" 笨小孩工作室

option explicit

Dim conn

Dim DBPath

Set conn = Object("tion")

DBPath = h("")

"driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

%>

第四步、创建上传图片的传递文件

创建名为的传递文件

<%

dim rs,sql

set rs=Object("set")

sql="select * from photo"

sql,conn,3,2

dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata

formsize=ytes

formdata=read(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)

rs("img").appendchunk=mydata

'释放对象以及重新定向到页面

set rs=nothing

set conn=nothing

""

%>

第五步、创建显示数据库中上传图片id的文件

创建名为的文件

<%

dim rs,sql

set rs=Object("set")

sql="select * from photo"

sql,conn,1,1

%>

<% do while not() %>

<%

xt

loop

%>

图片显示列表
图片<%=rs("id")%>	删除

<%

'释放对象

set rs=nothing

set conn=nothing

%>

第六步、创建显示图片的文件

创建名为的文件

<%

dim rs,sql

'取得参数id

dim id

id=request("id")

set rs=Object("set")

sql="select * from photo where id=" &id

sql,conn,1,1

'显示图片

tType = "image/jpeg"

Write rs("img")

4 笨小孩工作室

'释放对象

set rs=nothing

set conn=nothing

%>

第七步、创建删除图片的文件

为了完善程序，创建名为的文件来删除不需要的文件

<%

Dim id

Dim delsql

id=tring("id")

delsql="delete * from photo where id="&id

e(delsql)

%>

下面是显示效果图：

如果未选择图片，则弹出错误信息

如果上传的不是（.gif）格式的文件或（.jpg）格式的文件，则弹出错误信息

5 笨小孩工作室

当选择正确后点击上传按钮，则上传成功后弹出上传成功信息，并且返回到上传主页面

点击显示图片，如下图所示：

查看图片，则点击图片1、图片2……

点击删除，则弹出是否确定删除确认信息

如果点击取消按钮，则不执行删除，若点击确定，则删除所选图片id的图片，并弹出删除成功信息，如下图所示：

6 笨小孩工作室

7