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

ASP
构造ConnectionString的方法
在asp中如何创建动态表--调用如下sp_execute
Jmail中避过smtp验证的一法
取出所有的传递参数短方法
提高ASP性能的最佳选择(二)
提高ASP性能的最佳选择(三)
提高ASP性能的最佳选择(续一)
提高ASP性能的最佳选择(续二)
提高ASP性能的最佳选择(续三)
提高ASP性能的最佳选择(续四)
一种效率极高的分类算法
不刷新页面的情况下调用远程ASP
谈两种数据库内容HTML格式的输出方法
提高ASP页面的执行效率(上)
提高ASP页面的执行效率(中)
提高ASP页面的执行效率(下)
ASP.Net中程序构架与程序代码的分离
如何用checkbox做多选删除
判断输入是否为中文的函数
将半角转换为中文的函数

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 194 ::
收藏到网摘: 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