在ASP中使用Oracle数据库

＜%

'删除所有符合上面条件的记录

OraDynaset.Delete

%＞

在Oracle8i中搜索和更新数据记录的代码

1）搜索

＜%

'RetriveRecProc.asp -使用ASP的Oracle Objects for OLE更新数据记录%＞

＜%

'定义作为OLE对象的变量

Dim OraSession

Dim OraDatabase

Dim OraDynaset'创建OraSession对象

Set OraSession = CreateObject("OracleInProcServer.XOraSession")'通过打开Oracle数据库的一个连接创建OraDatabase对象

'一定要使用自己的用户名和口令访问Oracle数据库

Set OraDatabase = OraSession.OpenDatabase("", "user/password", _

Cint(0))

'创建OraDynaset对象执行SQL语句

Set OraDynaset = OraDatabase.DbCreateDynaset(_

"select * from mytable1", cint(0))

%＞

＜html＞＜body＞

＜H3＞Retrieve All Records in MYTABLE1 Table ( in Oracle)

Using oo4o＜/H3＞

＜table border=1 ID="Table1"＞

＜%

Do While(OraDynaset.EOF = FALSE)

Response.Write("＜tr＞＜td＞")

Response.write(OraDynaset.Fields("ID"))

Response.Write("＜/td＞＜td＞")

Response.write(OraDynaset.Fields("UserName"))

Response.Write("＜/td＞＜td＞")

Response.write(OraDynaset.Fields("Phone"))

Response.Write("＜/td＞＜td＞")

Response.write(OraDynaset.Fields("Email"))

Response.Write("＜/td＞＜/tr＞")

OraDynaset.MoveNext

Loop

'删除OraSession

Set OraSession = Nothing

%＞

＜/table＞

＜a href="javascript:window.history.go(-1)"＞

Back previous Page＜/a＞ |

＜a href="index.html"＞ Back home Page＜/a＞

＜/body＞＜/html＞

2）更新

＜%

'UpdateRecProc.asp -使用ASP的Oracle Objects for OLE更新数据记录

%＞

＜%

'定义作为OLE对象的变量。

Dim OraSession

Dim OraDatabase

Dim OraDynaset

'从提交的表格中获取字段值

fID = request.form("ID")

fUserName = request.form("UserName")

fPhone = request.form("Phone")

fEmail = request.form("Email")

'创建OraSession对象

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

'通过打开Oracle数据库的一个连接创建OraDatabase对象

Set OraDatabase = OraSession.OpenDatabase("", "user/password", _

Cint(0))

'创建ID= fID的记录的OraDynaset对象

Set OraDynaset = OraDatabase.CreateDynaset(_

"select * from MYTABLE1 where ID= "& fID, cint(0))

'使用Edit方法更新ID=fID记录的字段

Do While(OraDynaset.EOF = FALSE)

OraDynaset.Edit

OraDynaset.Fields("UserName").Value = fUserName

OraDynaset.Fields("Phone").Value = fPhone

OraDynaset.Fields("Email").Value = fEmail

OraDynaset.Update

OraDynaset.MoveNext

Loop

%＞

＜html＞＜body＞

＜H3＞Update A Record in MYTABLE1 Table (Oracle) Using oo4o＜/H3＞

The record (ID=＜%=fID%＞) has been updated successfully!＜br＞

You can view the result ＜a href="RetrieveAllRec.asp"＞ here＜/a＞

＜p＞

＜a href="javascript:window.history.go(-1)"＞ Back previous Page＜/a＞

&bnsp;&bnsp;

＜a href="javascript:window.history.go(-2)"＞ Back home Page＜/a＞

＜%

'删除OraSession对象

Set OraSession = Nothing

%＞

＜/body荆?html＞

至此，我们已经讨论了如何在ASP代码中使用Oracle Objects for OLE来处理Oracle数据库中的数据。

使用存储过程

我们已经讨论了如何在ASP中访问Oracle数据库，所有的SQL语句都可以嵌入在ASP网页中。如果在ASP中使用存储过程，将更能够更有效地处理数据。我建议读者除在ASP中嵌入SQL语句外，还应当使用PL/SQL存储过程。在Oracle数据库中创建存储过程已经超出了本文章的范围，在这里就不再进行介绍了。

ASP和Oracle数据库是二种比较流行的技术，都有相当广泛的用户群，如果能够有机地将二者结合起来，将能够给工作带来许多方便，希望这篇文章能够起到抛砖引玉的作用，使读者能够更好地探索将这二种技术结合使用的途径。

查看本文来源