ASP程序图片以二进制流的形式存入oracle数据库实例.docx

3、图片上传处理页面up.asp

代码如下：

--#includefile="conn_oracle.asp"-->

functionmysubmit（theform）

{

if（theform.file.value==""）

{

alert（"请点击浏览按钮，选择您要上传的jpg或gif文件!

"）

theform.file.focus（）;

return（false）;

}

else

{

str=theform.file.value;

strs=str.toLowerCase（）;

lens=strs.length;

extname=strs.substring（lens-4,lens）;

if（extname!

=".jpg"&&extname!

=".gif"）

{

alert（"请选择jpg或gif文件!

"）;

return（false）;

}

if（theform.pic_name.value==""）

{

alert（"请输入名称!

"）

theform.pic_name.focus（）;

return（false）;

}

}

return（true）;

}

functionform1_Onsubmit（）

ifdocument.form1.pic_name.value=""then

form1_onsubmit=false

exitfunction

else

document.form1.action="save.asp?

pic_name="&document.form1.pic_name.value&""

endif

endfunction

选择图片

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

save.asp

代码如下：

--#includefile="conn_oracle.asp"-->

<%

dimpic_name

dimrs

dimsql

pic_name=request（"pic_name"）

a=split（pic_name,""）'分割字符串

onerrorresumenext'产生错误的语句之后继续执行

FormSize=Request.TotalBytes'获取提交数据量的总字节数

FormData=Request.BinaryRead（FormSize）'把客户发过来的数据转成二进制作

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

setrs=server.createobject（"adodb.recordset"）

rs.Open"select*frompicorderbyiddesc",conn,3,3

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

ifcint（rs（"id"））=""then

id=1

else

id=cint（rs（"id"））+cint

（1）

endif

'判断结束

rs.AddNew'向数据据里写入数据

'rs（"title"）=a（0）

rs（"id"）=id

rs（"img"）.appendchunkImage

rs.Update

rs.Close

setrs=nothing

response.redirect"ly.asp?

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

%>

<%

functionImageUp（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）'获取最终数据

endfunction

%>

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

kkk.asp

代码如下：

--#includefile="conn_oracle.asp"-->

<%'显示相片页

dimrs

dimadr

dimsql

dimid

id=request（"id"）

setrs=server.CreateObject（"adodb.recordset"）'创建一个数据库的记录集

sql="SELECT*FROMpicWHEREid="&id

rs.Opensql,conn,3,1

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

Response.BinaryWriters（"img"）'读出img字段,把2进制的数据转换成图片

rs.Close

conn.close

%>

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

ly.asp

--#includefile="conn_oracle.asp"-->

<%

id=request（"id"）

setrs=server.createobject（"adodb.recordset"）

sql="select*frompicwhereid="&id

rs.opensql,conn,1,1

%>

--

body{

margin-top:

0px;

}

.STYLE1{

font-size:

16px;

font-weight:

bold;

}

-->

id=<%=request（"id"）%>"width="700"height="525">

<%=left（rs（"title"）,15）%>

三、访问网址及截图：

http:

//localhost/default.asp

首页截图如下图：