用ASP实现对ORACLE数据库的操作(2)

PHONE                                    CHAR(20)
EMAIL                                    VARCHAR2(30)
---- 首先：进行环境配置： 
---- 在WEB服务器上安装以下软件并进行配置： 
---- (1)基本的WEB 服务器（WEB SERVER）与ASP等软件 
---- (2)Oracle Object for OLE2.x 
---- (3)SQL*Net Client 或 Oracle Net8 Client 8，安装之后，用Sql*Net Easy Configuration建立数据库别名（Database Alias），为ASP连接到数据库所用的别名。 
---- 二．功能实现 
---- （1）查询：用ASP 取数据库通讯录表（TSB1）的数据，将数据显示在屏幕上。查询的关键在于确定与数据库的连接成功与否，ORACLE对象服务器本身有错误控制机制可以报出数据库连接方面的错误，具体的程序如下： 
< HTML >
    < tile >  查询程序 < /title >
< BODY >
< %
on error resume next
'连接数据库
set orasession=createobject
("OracleInprocServer.XOraSession")
set oradatabase=orasession.
dbopendatabase("axp03","scott/tiger",0)
'出错处理
if err.number >0 then
response.write"< h4 >asp 错误控制 < /h4 >"
response.write"asp 错误来源:"&err.source &"< br >"
response.write"asp 错误代码:"&err.number&"< br >"
response.write"asp 错误说明:"&err.description&"< br >"
err.clear
response.write"< h4 >ORACLE OLE 错误控制< /h4 >"
response.write"ORACLE 错误代码:
"&OraSession.LastServerErr&"< br >"
response.write"ORACLE 错误说明:
"&OraSession.LastServerErrText&"< br >"
else 
'查询
sql="select * from tsb1"
set oradynaset=oradatabase.dbcreatedynaset(sql,0)
response.write"< h3 >result< /h3 >"
response.write"< table border=5 >< tr >"
for i=0 to oradynaset.fields.count-1
response.write"< td >"
response.write oradynaset.fields(i).name & " "
response.write"< /td >"
next
response.write"< /tr >"
do until oradynaset.eof
response.write"< tr >"