网络编程
位置:首页>> 网络编程>> 数据库>> asp下用OracleInProcServer完成对Oracle的连接和操作

asp下用OracleInProcServer完成对Oracle的连接和操作

 来源:CSDN 发布时间:2008-04-13 07:10:00 

标签:Oracle,数据库,asp

 

< % Response.CharSet="gb2312" 
tblname=request("tb")
 Dim objOraSession,objOraDb 
Dim strDbUser,strDbPwd,strDbConn 
Call ConnectDB() 
Sub ConnectDB() '连接数据库 
On Error Resume Next 
strDbUser = "liujincai" '连接用户名 
strDbPwd = "ljc1001" '用户密码 
strDbConn = "hp1" '连接字符串 
Set objOraSession = Server.CreateObject("OracleInProcServer.XOraSession") 
Set objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0) 
If Err.Number>0 then 
Response.Write "错误 :" & err.description & "" 
response.end 
End if 
End Sub
 Sub EndDB() 
Set objOraDB = Nothing 
Set objOraSession = Nothing
 End Sub 
Function getTableList(str) 
Dim strSql,strTmp 
Dim objRs 
strSql = "Select at.table_name as tname,au.username as uname from all_tables at,all_users au Where au.username=at.owner order by au.username"
 Set objRs = objOraDb.DbCreateDynaset(strSql,0) 
While Not objRs.Eof 
strA = objRs("uname") & "." & objRs("tname")
 
If str=strA then
 strTmp = strTmp & "" & strA & "" 
Else 
strTmp = strTmp & "" & strA & ""
 End if 
objRs.MoveNext 
Wend 
Set objRs = Nothing 
getTableList = strTmp 
End Function 
% > 
<form name=form1 action="aa.asp" method=POST target="main">
<table width="100%" border=0 align="center">
<tr><td>
All Tables : <select name="tb">
< %=getTableList(tblName)% >
</select>
<input type=hidden name="submitc" value="view">
<input type=submit name="submit" value="View Data">
<font color=red>(< %=strDbUser & "/" & strDbPwd & "@" & strDbConn% >)</font>
</td></tr>
</table>
</form> 
<table border=1 cellspacing=0>
   < %
if tblname<>"" then
  strSql = "Select * from " & tblname
  Set Rs = objOraDb.DbCreateDynaset(strSql,0)
  Response.Write "<tr>"
  for i=0 to rs.Fields.count-1
     Response.Write "<td>" & rs.fields(i).name & "</td>"
  next
  Response.Write "</tr>"
  While  Not Rs.Eof
     Response.Write "<tr>"
     for i=0 to  rs.fields.count -1
             Response.Write "<td>" & Rs.Fields(i).Value & "</td>"   
     next
     Response.Write "</tr>"        
   Rs.MoveNext
  Wend 
 Set Rs = Nothing
end if
   % >
</table>


0
投稿

猜你喜欢

  • 一、地理编码与逆编码地理编码与逆编码表示的是地名地址与地理坐标(经纬度)互相转换的过程。其中,将地址信息映射为地理坐标的过程称之为地理编码;
  • 导语贪吃蛇,大家应该都玩过。当初第一次接触贪吃蛇的时候 ,还是我爸的数字手机,考试成绩比较好,就会得到一些小奖励,玩手机游戏肯定也在其中首位
  • 本文介绍基于Python语言,针对一个文件夹下大量的Excel表格文件,基于其中每一个文件的名称,从另一个文件夹中找到与这一文件夹中文件同名
  • 本文实例为大家分享了Python KNN分类算法的具体代码,供大家参考,具体内容如下KNN分类算法应该算得上是机器学习中最简单的分类算法了,
  • Sjoerd Visscher 发现了一个简洁的 方法 让样式在 IE 中作用到未知的元素上——仅需 JS 创建此未知元素即可:docume
  • 前面我们用python实现了贪吃蛇、坦克大战、飞船大战、五子棋等游戏今天我们用python来实现一下扫雷游戏本游戏代码量和源文件较多可以从我
  • 数据挖掘查询任务根据 Analysis Services 内置的数据挖掘模型运行预测查询。预测查询通过使用挖掘模型来创建对新数据的预测。例如
  • 这个函数用于储存图片,将数组保存为图像此功能仅在安装了Python Imaging Library(PIL)时可用。版本也比较老了,新的替代
  • 引言:在机器学习还有深度学习中,经常会用到这几个函数,为了便于以后熟练使用,现在对这几个函数进行总结。(一)np.random.rand()
  • 前言1.工作中,经常需要合并多个Excel文件。如果文件数量比较多,则工作量大,易出错,此时,可以使用Python来快速的完成合并。2.使用
  • 这个分页使用的是0游标,也就是Rs.Open Sql,Conn,0,1。但是感觉也快不了多少,10万条数据的分页时间300多豪秒之间。代码如
  • 本文实例讲述了python有证书的加密解密实现方法。分享给大家供大家参考。具体实现方法如下:最近在做python的加解密工作,同时加完密的串
  • 前言:经过上一篇JavaScript 数据结构之集合创建(2)的学习,数据结构的集合部分已经完结了。那么下面我们又要认识一个新的数
  • U盘中毒了,U盘内的每个文件夹内都多了一个.lnk文件,处女座又犯了,实在不能忍,就写了个脚本把所有的.lnk文件删除了。多级目录递归删除i
  • 一、前言提到 limit 优化,大多数 MySQL DBA 都不会陌生,能想到各种应对策略,比如延迟关联,书签式查询等等,之前我也写过一篇优
  • numpy中矩阵选取子集或者以条件选取子集,用mask是一种很好的方法简单来说就是用bool类型的indice矩阵去选择,mask = np
  • MySQL主从配置及原理,供大家参考,具体内容如下一、环境选择:1.Centos 6.52.MySQL 5.7二、什么是MySQL主从复制M
  • Python实现12306火车票抢票系统效果图如下所示:具体代码如下所示:import urllib.request as request
  • 回顾上一篇文章我们介绍了切片slice的定义初始化、引用类型特征、如何使用数组切割成切片。这篇文章介绍切片的生成make()、切片的追加ap
  • 一、多层前向神经网络多层前向神经网络由三部分组成:输出层、隐藏层、输出层,每层由单元组成;输入层由训练集的实例特征向量传入,经过连接结点的权
手机版 网络编程 asp之家 www.aspxhome.com