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

Asp图片以二进制流的形式存入

oracle数据

一、运行环境与开发语言要求：

1、Win2003操作系统（安装方法省略）

2、IIS 6.0（安装方法省略）

Asp网站配置方法如下图：

图1

图2 图3

图4 图5

图6

访问首页方法如下图：

图7 3、Oracles数据库（安装建库方法省略）

创建表，通过SQL语句创建：

图1

图2 二、 网站各页面代码如下：

1、连接数据库页面：conn_

代码如下：

<%

'打开数据库连接

Set Conn = Object("tion")

myDSN = "Provider=;Data

ID=TEST65;PASSWORD=oracle;Persist Security Info=True"

myDSN

%>

Source=TEST65;User

2、已上传图片展示首页：

代码如下：

<%

dim i,intPage,page,pre,last,filepath

set rs = Object("set")

sql="select * from pic order by id desc" '这里是条件和表根据需要自己改

sql,conn,3,1

ze = 6 '这里设定每页显示的记录数

pre = true

last = true

page = trim(tring("page"))

if len(page) = 0 then

intpage = 1

pre = false

else

if cint(page) =< 1 then

intpage = 1

pre = false

else

if cint(page) >= unt then

intpage = unt

last = false

else

intpage = cint(page)

end if

end if

end if

if not then

tePage = intpage

end if

%>

<%

j=1

for i=1 to ze

if or then exit for

if j=4 then

j=1

%>

<%end if%>

<%

j=j+1

xt

next

%>

3、图片上传处理页面

代码如下：

4、上传图片保存文档页面：

代码如下：

<%

dim pic_name

dim rs

dim sql

pic_name=request("pic_name")

a=split(pic_name," ") '分割字符串

on error resume next '产生错误的语句之后继续执行

FormSize = ytes'获取提交数据量的总字节数

FormData = Read(FormSize) '把客户发过来的数据转成二进制作

Image=ImageUp (FormSize,Formdata) '这里就是图像部分了

set rs=object("set")

"select * from pic order by id desc",conn,3,3

'如果数据库无数据时，指定id为1,因为id为主键不能为空

if cint(rs("id"))="" then

id=1

else

id= cint(rs("id"))+cint(1)

end if

'判断结束

'向数据据里写入数据

'rs("title") = a(0)

rs("id")=id

rs("img").appendchunk Image

set rs=nothing

ct"?id="&id&"" '任务结束后跳转到首页

%>

<%

function ImageUp(formsize,formdata)

bncrlf=chrb(13) & chrb(10)

divider=leftb(formdata,instrb(formdata,bncrlf)-1) '分隔标志串

datastart=instrb(formdata,bncrlf&bncrlf)+4 '分隔标志串长度

dataend=instrb(datastart+1,formdata,divider)-datastart '减去分隔标志串长度

imageup=midb(formdata,datastart,dataend) ' 获取最终数据

end function

%>

5、根据ID号读取图片信息页面：

代码如下：

<% '显示相片页

dim rs

dim adr

dim sql

dim id

id = request("id")

set rs=Object("set")'创建一个数据库的记录集

sql="SELECT * FROM pic WHERE id ="&id

sql,conn,3,1

ttype="image/*" '输出的类型可以是imgae的任何类型，包括jpg/bmp/gif等等

Write rs("img") '读出img字段,把2进制的数据转换成图片

%>

6、根据ID号浏览图片信息-图片放大页面：

<%

id=request("id")

set rs=object("set")

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

sql,conn,1,1

%>

三、访问网址及截图：

localhost/

首页截图如下图：