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

原创 2004年09月23日 16:48:00
< % 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>

细节可查询
http://www.jojoo.net/article/list.asp?id=4101
http://www.cx66.com/cxgzs/program/asp/581.htm
http://www.51one.net/info/1797.htm
http://www.kupage.com/webdesign/7/20031017/1641380000027pjtnjgy.htm

关于用OracleInProcServer.XOraSession连接oracle 的问题。

OraDatabase.ExecuteSQL("commit")commit是事物提交语句只有在Oracle中提交当前用户操作时使用,因为在Oracle中只有在关闭某个连接,或显示提交时会真正的更改数...
  • ninjya_luck
  • ninjya_luck
  • 2008年04月22日 10:56
  • 3219

ASP.NET操作Oracle数据库方法

ASP.NET连接oracle数据库 首先我们在
  • lizhangyong1989
  • lizhangyong1989
  • 2014年06月01日 17:20
  • 3088

JDBC之java使用oracle中scott表实现增删改查.1

Java与oracle数据库连接—–JDBC**写博客的目的及好处 1,为了把完成的知识点整理出来, 2,等同督促自己做学习总结 3,方便自己及同行者的阅览 4...
  • u010796862
  • u010796862
  • 2015年04月11日 20:50
  • 1286

Asp-连接Oracle

Asp连接Oracle有2种方法进行连接。 1、使用Ado进行连接对于使用该方法连接,最主要的是了解其连接字符串,只要选对正确的连接字符串,基本上是没有问题的,现在介绍个网站http://www.co...
  • zyj0021
  • zyj0021
  • 2008年10月26日 23:48
  • 11518

ASP.NET连接ORACLE数据库出现乱码的解决方法

在毕业设计时,使用了Oracle 8.1.7数据库,ASP.NET.在连接oracle时,查询的结果中文显示为乱码,找了很久,试了多种方法,最后终于得到解决,只要修改Web.config文件中的就行了...
  • varkychan
  • varkychan
  • 2005年03月10日 18:57
  • 1688

ASP连接Oracle

ASP连接Oracle的方式有几种, 这里介绍一下 OLE 连接方法
  • shenzhenNBA
  • shenzhenNBA
  • 2012年03月13日 18:42
  • 4113

Hibernate执行流程&用Hibernate框架完成增删改查的操作

使用Hibernate框架完成对客户的增删改查的操作
  • Zhao_yanpeng
  • Zhao_yanpeng
  • 2017年09月28日 19:58
  • 283

java基础知识(五)

天蝎座额额 2017-02-11 12:55 每天更新学习笔记,大家一起学习! 不喜勿喷,谢谢! 面向对象思想概述 面向对象是基于面向过程的编程思想 面向对象思想...
  • u011277123
  • u011277123
  • 2017年03月21日 18:09
  • 503

android 处理txt文件类FileUtils,利用java反射机制访问非sdk类和函数

Android系统内部提供了一个不错的txt文本读写类,但目前并没有公开提供给标准的SDK,FileUtils类的源代码如下,可以很好的操作Linux下的文本文件。 public class F...
  • spy19881201
  • spy19881201
  • 2010年08月19日 15:21
  • 5077

Windows server2008 搭建ASP接口访问连接oracle数据库全过程记录

真的是太不容易了,以前的时候在window server 2003上面搭建了一套asp+oracle的接口系统,就费了好大的劲儿,其实那会迷迷瞪瞪的也不知道怎么的就弄好了,也懒得管了。OK,从昨天到今...
  • u011156012
  • u011156012
  • 2015年08月06日 17:15
  • 3153
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp下用OracleInProcServer完成对Oracle的连接和操作
举报原因:
原因补充:

(最多只允许输入30个字)