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

ASP
防止网站被采集的理论分析以及十条方法对策
Asp 操作Access数据库时出现死锁.ldb的解决方法
asp HTTP_X_FORWARDED_FOR和REMOTE_ADDR
ASP 代码出现80040e14错误的解决方法
Asp 编码互转的研究和实现代码
asp fckeditor自定义上传文件的文件名
asp javascript picasa相册外链批量导出
asp MD5加密方式使用建议
asp javascript值的互相传递方法
ASP UTF-8编码下字符串截取和获取长度函数
asp vbcrlf是什么意思
ASP 相关文章或者相关产品
在Win2003 64位下ASP无法连接Access数据库
asp 得到动态数组中元素的个数
Session.TimeOut的最大取值是1440，超出会报错
Form Post提交容量大的数据
启动iis出现发生意外0x8ffe2740的解决方法
asp 实现当有新信息时播放语音提示的效果
asp 延时 页面延迟的三种方法
Asp 日期格式化问题

No. « 83 84 85 86 »

技术文章搜索

关键字

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

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