在ASP中使用Oracle数据库

＜%
'删除所有符合上面条件的记录
OraDynaset.Delete
%＞

＜%
'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＞

＜%
'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＞