当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在ASP中使用Oracle数据库技巧(2)

ASP
ASP 3.0高级编程(二十七)
ASP 3.0高级编程(二十八)
ASP 3.0高级编程(二十九)
ASP 3.0高级编程(三十)
ASP中时间函数的使用(一)
ASP中时间函数的使用(二)
ASP中时间函数的使用(三)
.NET之ASP WebApplication快速入门(1)
.NET之ASP WebApplication快速入门(2)
.NET之ASP WebApplication快速入门(3)
.NET之ASP WebApplication快速入门(4)
.NET之ASP WebApplication快速入门(5)
asp.NET特写
ASP 3.0高级编程(七)
ASP 3.0高级编程(八)
ASP.NET 入门的五个步骤
ASP 组件指南
XML 数据的编码方式
ASP 3.0高级编程(九)
ASP 3.0高级编程(十)

在ASP中使用Oracle数据库技巧(2)


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 74 ::
收藏到网摘: n/a

       <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 target=_blank)">
  
  
    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
  
&nbs