ASP程序图片以二进制流的形式存入oracle数据库实例
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Asp图片以二进制流的形式存入
oracle数据
一、运行环境与开发语言要求：
1、Win2003操作系统（安装方法省略）
2、IIS 6.0（安装方法省略）
Asp网站配置方法如下图：
图1
图3 图4
图5
图6 访问首页方法如下图：
3、Oracles数据库（安装建库方法省略）
创建表，通过SQL语句创建：
图1
二、网站各页面代码如下：
1、连接数据库页面：conn_oracle.asp
代码如下：
<%
'打开数据库连接
Set Conn = Server.CreateObject("ADODB.Connection")
myDSN = "Provider=OraOLEDB.Oracle;Data Source=TEST65;User ID=TEST65;PASSWORD=oracle;Persist Security Info=True"
Conn.Open myDSN
%>
2、已上传图片展示首页：default.asp
代码如下：
<%
dim i,intPage,page,pre,last,filepath
set rs = server.CreateObject("adodb.recordset")
sql="select * from pic order by id desc" '这里是条件和表根据需要自己改
rs.Open sql,conn,3,1
rs.PageSize = 6 '这里设定每页显示的记录数
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
| 图片展示|上传图片 |
|
3、图片上传处理页面up.asp
代码如下：