asp控制oracle,asp下用OracleInProcServer完成对Oracle的连接和操作

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

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

% >

All Tables : 

()

if tblname<>"" then

strSql = "Select * from " & tblname

Set Rs = objOraDb.DbCreateDynaset(strSql,0)

Response.Write "

"

for i=0 to rs.Fields.count-1

Response.Write "

" & rs.fields(i).name & ""

next

Response.Write "

"

While  Not Rs.Eof

Response.Write "

"

for i=0 to  rs.fields.count -1

Response.Write "

" & Rs.Fields(i).Value & ""

next

Response.Write "

"

Rs.MoveNext

Wend

Set Rs = Nothing

end if

% >

本文转载于:http://bbs.9te.cn

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/574289.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

jitpack让使用第三方依赖库更简单

在开发过程中&#xff0c;使用第三方优秀依赖库是个很常见的问题&#xff0c;有的时候是maven&#xff0c;或者gradle, 或者sbt,大部分库工程&#xff0c;都会有对应的gradle,maven依赖代码&#xff0c;但是有的没有&#xff0c;尤其是使用的snapshot的依赖的时候&#xff0c;虽…

linux用户命令快捷链接,linux简单命令

linux系统命令是最基础也是最重要的部分&#xff0c;下面由学习啦小编为大家整理了linux简单命令的相关知识&#xff0c;希望对大家有帮助!linux简单命令一、文件和目录家目录为 /home/user 或者 &#xff5e;目录分为两种&#xff1a;绝对目录&#xff0c;从根目录开始写相对目…

Swift - 发送消息(文本,图片,文件等)给微信好友或分享到朋友圈

通过调用微信提供的API接口&#xff0c;我们可以很方便的在应用中发送消息给微信好友&#xff0c;或者分享到朋友圈。在微信开发平台&#xff08;https://open.weixin.qq.com&#xff09;里&#xff0c;提供了详细的说明文档和样例。但由于提供的样例是使用Objective-C写的&…

linux怎么改程序图标,如何在Ubuntu Unity上修改应用程序图标

这篇文章将教大家在Ubuntu Unity上修改应用程序图标&#xff0c;这个教程适合于Ubuntu 14.04, Ubuntu 13.10, Ubuntu 12.04 等使用Unity作为默认桌面环境的发行版。在Unity桌面环境&#xff0c;程序启动器实际上以.desktop为后缀的文件的形式存储在电脑上&#xff0c;所以我们可…

php 大流量网站访问

1&#xff1a;确认服务器硬件能否支持当前流量 2&#xff1a;数据库优化&#xff0c;用到什么字段查什么字段&#xff0c;减轻查询负担。 3&#xff1a;静态化&#xff0c;缓存&#xff0c;减少连库操作。 4&#xff1a;禁止外部盗链&#xff0c;减轻负载压力。 5&#xff1a;控…

linux内核 默认路由表,Linux 默认路由表 0.0.0.0

netstat -nr命令会显示路由表的内容。网关为0.0.0.0的网络通常是直连到网络设备上的。因为到自己的直连设备上是不需要网关的&#xff0c;所以0.0.0.0的网关地址是正常的。目的地址是0.0.0.0的路由是你的缺省网关。在这个例子里,有两个网关&#xff0c;缺省的并且是到255.255.2…

htop linux命令详解,htop使用详解

在管理进程时通常要借助一些工具&#xff0c;比较常用的就是ps和top了&#xff1b;不过CentOS还为我们提供了一个更加强大的工具htop&#xff0c;下面就来了解一下此工具的使用方法。一、安装htophtop工具在epel源中提供&#xff0c;请自行配置epel源&#xff0c;也可以直接下载…

iOS 中的 xml 解析

在ios 中解析xml 的方法有很多种 1.苹果原生 NSXMLParser:SAX方式解析&#xff0c;使用简单 2.第三方框架 libxml2:纯c语言&#xff0c;默认包含在ios sdk中&#xff0c;同时支持DOM 和 SAX 方式解析 GDataXML &#xff1a; DOM方式解析&#xff0c;由谷歌开发&#xff0c;基于…

Android Termux安装SSH结合内网穿透实现远程SFTP文件传输

文章目录 1. 安装openSSH2. 安装cpolar3. 远程SFTP连接配置4. 远程SFTP访问4. 配置固定远程连接地址 SFTP&#xff08;SSH File Transfer Protocol&#xff09;是一种基于SSH&#xff08;Secure Shell&#xff09;安全协议的文件传输协议。与FTP协议相比&#xff0c;SFTP使用了…

linux上clisp运行lisp,apache - 重新访问linux + apache2 + mod_lisp + CLISP - 堆栈内存溢出

CLISP已安装并成功运行&#xff1a;(加载“ modlisp-clisp”)(modlisp&#xff1a;modlisp-server)运行正常&#xff0c;即无休止Python可通过localhost在/ usr / lib / cgi-bin中正常工作试图使clisp服务器在/ var / www / html / lsp中工作通过localhost / lsp打印的浏览器访…

linux解压war包乱码,linux中zip解压乱码解决方法

在windows上压缩的文件&#xff0c;是以系统默认编码中文来压缩文件。由于zip文件中没有声明其编码&#xff0c;所以linux上的unzip一般以默认编码解压&#xff0c;中文文件名会出现乱码。有2种方式解决问题&#xff1a;1、通过unzip行命令解压&#xff0c;指定字符集unzip -O …

Android沉浸式通知栏设计

转载博客&#xff1a;http://www.2cto.com/kf/201503/381348.html Android4.4新特性&#xff0c;系统状态栏一体化。 实现的步骤主要有以下几点&#xff1a; 1.android4.4 以上版本 2.设置app全屏&#xff1a; 方法&#xff1a;在AndroidManifest.xml中设置android:theme"…

linux火狐自动更新,CentOS 7手动更新firefox | Linux系统运维联盟

这里针对的是firefox无法检测到新版本&#xff0c;需要手动升级。1.下载新版的irefox&#xff0c;一般是.tar.gz压缩包。2.tar zxvf 解压到/usr/lib64 。(只要是原版firefox文件的目录就对了)3.cd /usr/lib64/firefox4../firefox-bin 完成有的更新好之后可能会无法播放视频&a…

C/C++02: Josephus问题

据说著名犹太历史学家Josephus有过以下的故事&#xff1a;在罗马人占领乔塔帕特後&#xff0c;39个犹太人与Josephus及他的朋友躲到一个洞中&#xff0c;39个犹太人决定宁愿死也不要被人抓到&#xff0c;于是决定了一个自杀方式&#xff0c;41个人排成一个圆圈&#xff0c;由第…

ahci模式下无法启动Linux,电脑AHCI模式无法开启是怎么回事?

安装之前就要开启ahci&#xff0c;然后安装系统&#xff0c;如果在ide模式下安装了&#xff0c;是不能随意的改到ahci的&#xff01;你的情况只能重装系统解决了&#xff01;看看你的主板&#xff0c;有没有第三方芯片的sata口&#xff0c;如果有&#xff0c;你把第三方芯片的s…

LeetCode Solutions : Reorder List

Given a singly linked list L: L0→L1→…→Ln-1→Ln, reorder it to: L0→Ln→L1→Ln-1→L2→Ln-2→… You must do this in-place without altering the nodes values. For example, Given {1,2,3,4}, reorder itto {1,4,2,3}. Considering the following steps: * 1. split…

双系统linux触摸板不能用,windows系统与ubuntu双系统导致笔记本触摸板失灵的解决办法(非输入代码)...

先说一下我现在的笔记本使用的系统&#xff0c;windows10 64位&#xff0b;ubuntu14.04 64位。这几天把ubuntu装好后本来毫无问题的&#xff0c;用的飞起&#xff5e;可是昨天不知道什么原因&#xff0c;触摸板突然失灵了&#xff0c;插上鼠标可以用&#xff0c;就是触摸板不能…

JS 入门经典 第三章 判断、循环和函数

1、比较运算符 在所有的比较运算符中&#xff0c;和&#xff01;的优先级最低&#xff0c;而>、<、<、>则具有相同的优先级 所有的比较运算度的优先级都比算数运算符要低&#xff0c;所以先执行算数运算符&#xff0c;在执行比较运算符。 2、字符串的比较 JS将按照…

linux c fifo阻塞写和非阻塞写,linux—FIFO的使用与非阻塞标志(O_NONBLOCK)的影响

FIFO文#include #include int mkfifo( const char*pathname, mode_t mode);参数&#xff1a;pathname&#xff1a;FIFO的路径名文件名。mode&#xff1a;mode_t类型的权限描述符&#xff0c;同open的参数。返回值&#xff1a;成功&#xff1a;返回0失败&#xff1a;如果文件已经…

Servlet的学习之Request请求对象(2)

在上一篇《Servlet的学习(十)》中介绍了HttpServletRequest请求对象的一些常用方法&#xff0c;而从这篇起开始介绍和学习HttpServletRequest的常用功能。 使用HttpServletRequest可以防止盗链行为&#xff0c;什么是盗链行为&#xff0c;比如说在一个别的网站上超链接&#xf…