如何在ASP中访问Oracle.doc

如何在ASP中访问Oracle？我一直使用Oracle数据库，现在需要在Web上对Oracle8数据库进行访问，可我发现，在ASP中，ADO对Oracle的访问并不顺利，不但速度慢，而且还不能访问Oracle8的数字型字段（！）请问有什么办法可以实现对它们的顺利访问？我们可以利用Oracle Object for OLE所包含的Oracle Objects Server来实现在ASP中对Oracle 8的访问。Oracle Objects Server共提供Oraclient、Orasession、Oraconnection、OraDatabase、OraDynaset、OraSQLstmt、OraField、Oraparameter、Oraparameter Array等九个对象供开发者使用。Oracle Object for OLE是Oracle公司为客户端访问数据库开发的一个软件，运行在Windows95/98/NT平台。在用Oracle Objects Server访问Oracle8数据库之前，我们必须在Web服务器上安装Oracle Object for OLE，然后利用SQL+Net Client2.X或Oracle Net8 Client8.X进行数据库的连接测试并设置数据库别名。 下面举一个在ASP中利用Oracle Object for OLE2.3查询Oracle 8.0.5数据库，并进行分页显示的程序范例。需要说明，由于Orasession对象的属性中没有控制分页的属性，本例同时使用了一个分页控制的程序，chunfeng.asp文件先取得数据库表的内容，然后计算分页的页数，如果页数超过一页，则交由chunfeng01.asp处理。具体代码如下：chunfeng.asp% set orasession=createobject(oracleinprocserver.xorasession) set oradatabase=orasession.dbopendatabase(orant,scotter/tiger,0) 连接数据库 sql=select * from cq_hjwj set session(oradynaset)=oradatabase.dbcreatedynaset(sql,0) 设 置查询条件 pagesize=15 设置页长 if session(oradynaset).recordcount=0 then response.write 对不起,没有找到符合条件的数据! else response.write精彩春风之查询结果 pages=int(session(oradynaset).recordcount/pagesize) if pages*pagesize=session(oradynaset).recordcount then pages=int(session(oradynaset).recordcount/pagesize) 计算页数 else pages=int(session(oradynaset).recordcount/pagesize)+1 end if if request(page)= then page=1 else page=cstr(request(page) end if response.write共&pages&页,目前第&page&页 response.write for i=0 to session(oradynaset).fields.count - 1 response.write response.write session(oradynaset).fields(i).name response.write next response.write startrow=(page-1)*pagesize+1 endrow=page*pagesize oradynaset.moveto startrow for j=startrow to endrow response.write for i=0 to session(oradynaset).fields.count - 1 response.write response.write session(oradynaset).fields(i).value response.write next response.write session(oradynaset).dbmovenext if session(oradynaset).eof then exit for next response.write end if if page1 then response.write 第一页 response.write 上一页 end if if cint(page)pages then response.write 下一页 response.write 最后页 end if set orasession=nothing % chunfeng01.asp % pagesize=15 设置页长 if session(oradynaset).recordcount=0 then response.write 对不起,没有找到符合条件的数据! else response.write精彩春风之查询结果 pages=int(session(oradynaset).recordcount/pagesize) if pages*pagesize=session(oradynaset).recordcount then pages=int(session(oradynaset).recordcount/pagesize) 计算页数 else pages=int(session(oradynaset).recordcount/pagesize)+1 end if if request(page)= then page=1 else page=cstr(request(page) end if response.write共&pages&页,目前第&page&页 response.write for i=0 to session(oradynaset).fields.count - 1 response.write response.write session(oradynaset).fields(i).name response.write next response.write startrow=(page-1)*pagesize+1 endrow=page*pagesize oradynaset.moveto startrow for j=startrow to endrow response.write for i=0 to session(oradynaset).fields.count - 1 response.write response.write session(oradynaset).fields(i).value response.write next response.write session(oradynaset).dbmovenext if session(oradynaset).eof then exit for next response.write end if if page1 then response.write 第一页 response.write 上一页 end if if cint(page)pages then response.write 下一页 response.write 最后页 end if set orasession=nothing % Oracle Objects Server提供的九个对象的功能与作用分述如下： 序号对象名称作 用1Oraclient对象用来定义服务器端(Client或Workstation)的范围，Oraclient会记录此服务器端的所有Orasession对象。由系统根据需要自动建立。2Orasession对象用来在程序中管理Oraconnection、OraDatabase、OraDynaset等对象，其建立方法为：Set Orasession=Create(“OracleInProcServer.Xorasession”)3Oraconnection对象表示对OraDatabase对象的连接，当需要建立OraDatabase对象时，系统会自动产生一个Oraconnection对象。反之，当与数据库断开连接时，Oraconnection对象自动释放。4OraDatabase对象表示对数据库服务器的虚拟登录，其登录方法为：Set Oradadabase=Orasession.Dbopendatabase_ (“数据库别名”, “用户名称/密码”,0)5OraDynaset对象将数据库服务器符合SELECT命令的数据加以存储在客户端的缓冲区，让用户浏览或更新，最后将结果写回到服务器，其方法：SetOraDynaset=OraDatabase.DbcreateDynaset(“SQL语句”,0)6OraSQLstmt对象通常用来运行SQL命令，或调用存储过程，其用法为：Set Orasqlstmt=Oradatabase.createSQl(“SQL语句”,0)7Or