在ASP中通过oo4o连接Oracle数据库的例子
来源:CSDN 发布时间:2008-10-12 12:55:00
标签:Oracle,数据库,asp
下面这段代码能够显示,当前用户所能够看到的所有的用户和表
有兴趣的, 可以把每个表的内容加上
<%
Dim objOraSession,objOraDb
Dim strDbUser,strDbPwd,strDbConn
Call ConnectDB()
Sub ConnectDB()
'连接数据库
On Error Resume Next
strDbUser = "tmpUser" '连接用户名
strDbPwd = "rt45ps1w" '用户密码
strDbConn = "sun450" '连接字符串
Set objOraSession = Server.CreateObject("OracleInProcServer.XOraSession")
Set objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0)
If Err.Number>0 then
Response.Write "<font color=red>错误 :" & err.description & "</font>"
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 & "<option selected>" & strA & "</option>"
Else
strTmp = strTmp & "<option>" & strA & "</option>"
End if
objRs.MoveNext
Wend
Set objRs = Nothing
getTableList = strTmp
End Function
%>
<form name=form1 action="index.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>
0
投稿
猜你喜欢
- 介绍 IIRF是一款开源的重写URL过滤器,类似于Apache的URL重写,基于VC8.0(可以用Visual Studio200
- 我们在用Drwamweaver书写英文文本时,段落一般不缩进(不支持半角空格);但我们大多的时候都是用中文书写格式,必须在每段开头空两个汉字
- Asp中Server.ScriptTimeOut属性需要注意的一点Server.ScriptTimeout?这个属性给定Asp脚本执行的最大
- ASP实现防止网站被采集代码如下:<% Dim AppealNum,AppealCount Appeal
- 在后台处理数据时,前台页面同时计数显示进度条Proess Bar使用了layer来显示用法:1。引用<script lang
- 一个网站的导航就相当于是一条路的路标,不同的是,网站的不同栏目页的入口远远比马路要来得复杂,所以一个清晰的导航设计对于一个网站的意义远远大于
- 从MySQL 5.0 开始,支持了一个全新的SQL句法:PREPARE stmt_name FROM preparable_stmt;EXE
- 文章主要描述的是SQL Server到DB2连接服务器的正确实现过程,以及对其在实际操作中所要用到的实际操作环境的描述,以下就是对SQL S
- 一.概念简介 脚本:script是使用一种特定的描述性语言,依据一定的格式编写的可执行文件,又称作宏或批处理文件。 二.背景 近来在Wind
- JavaScript图片水平翻转后垂直翻反转的特效一:<!--把下列代码加到body区域内--><SCRIPT langu
- 为庆祝jQuery的四周年生日,jQuery官方团队正式发布了jQuery 1.4版本。在这个版本中,jQuery官方团队做了大量的编码、测
- css的流行导致了标签的流行,很直观,看起来很清爽。流行的一部分,还有很多种功能强大且美观的导航。。。1. Change.org2. N.D
- 曾经有许多创造性的logo设计案例,logo设计资源和logo设计指导张贴在互联网的各个角落。这些帮助会为你的logo设计创造一个功能强大的
- 在编程时你一定碰到过时间触发的事件,在VB中有timer控件,而asp中没有, 假如你要不停地查询数据库来等待一个返回结果的话,我想你一定知
- 英文原文:http://www.myinkblog.com/2009/03/21/4-principles-of-good-design-f
- 呵呵,我之前也写过一个类似的模板替换功能.>> 已实现:>、<、>=、<=、=、==等简单的运算>
- 1. 服务器优化优化原则:内存里的数据要比磁盘上的数据访问起来快;站数据尽可能长时间地留在内存里能减少磁盘读写活动的工作量;让索引信息留在内
- 每一字符串字符文字有一个字符集和一个校对规则,它不能为空。一个字符串文字可能有一个可选的字符集引介词和COLLATE子句:[_charset
- 1、选取最适用的字段属性MySQL 可以很好的支持大数据量的存取,但是一般说来,数据库中的表越小,在它上面执行的查询也就会越快。因此,在创建
- 要使数据库具备更强的抵御侵犯的能力,你要采取几步措施。有些措施只是良好的服务器管理的一部分,如拥有SQL Server最新的补丁,其他则包括