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
投稿
猜你喜欢
- 对于任何一个开发项目来说最大的错误可能就是没有计划。最近,有些人认为开始前无需计划,一个优秀的开发者需要的是随机应变。我敢肯定这样的做法最后
- 一、背景分析对想要在视觉化环境下制作复杂网页的专业网页制作者来说,Dreamweaver已经渐渐在网页编辑工具中展露头角,成为专业人士编写网
- “到底是什么将艺术和设计分开的?”这样一个话题听起来费解,长时间以来, 也已经被讨论过无数次。艺术家和设计师都是通过共通的知识和素养来创造视
- 摸到她了!青翠的衣衫,奶白的肌肤,捧在手上的感觉真是太好了,心里美滋滋的。《悟透JavaScript》,一本偶然之作,终于成书并出版了。本书
- ORACLE的这类错误在ORALCE的文档中有详细说明,但原因及措施说明不详细,本文当着重说明如何解决这类错误。1、ORA-12571、OR
- mysql数据库没有增量备份的机制,当数据量太大的时候备份是一个很大的问题。还好mysql数据库提供了一种主从备份的机制,其实就是把主数据库
- 首先要解释一下:“极致之美”不是说月儿的这篇文章,因为本人还没有自大到这种程度:P,它形容的是Lisp和javascript结合的优美形态。
- 1. 什么是存储过程?存储过程是SQL server所提供的Tran
- 一般我们是利用Session对象来防止通过“刷新”增加计数器的访问量的,看看下面的做法;<%If IsEmpty(Sessi
- 【原文地址】New "Orcas" Language Feature: Extension Methods【原文发表日期
- 1 。打开您的Microsoft Visual Basic:点击确定,以下就按照蓝色的数字步骤.2 。修改工程名和类模块的名称:
- 安装时建议你为MySQL管理创建一个用户和组。由该组用户运行mysql服务器并执行管理任务。(也可以以root身份运行服务器,但是不推荐)第
- 到现在为止,你只学习了如何根据特定的条件从表中取出一条或多条记录。但是,假如你想对一个表中的记录进行数据统计。例如,如果你想统计存储在表中的
- 1. 停应用层的各种程序。 2. 停oralce的监听进程: $lsnrctl stop 3. 在独占的系统用户下,备份控制文件: SQL&
- IE的特殊性 IE的DOM元素属性与Firefox, Opera, Safari有些不同。在IE中,我们可以给DOM添加任意自定
- 1、之前那个说淘宝交易评价“有问题”的文章已经有了一百多个评论。(某些开口就骂的评论已被删除)近期去评论的人都是从搜索引擎过来的,他们不是产
- 话说网站首页是用.NET语言写的,而二级栏目页却是用ASP写的,然后再配上众多全手工的静态专题页,整个网站形成了一个大杂烩。想要在这大杂烩中
- 又是一年春来到,看各大网站的新年Logo也成为了我们必不可少的新年餐点,为此,我们特别整理了部分网站的新年Logo秀,如果你看到了更加有意思
- [参与测试的浏览器:IE6 / IE7 / IE8 / FF3 / OP9.6 / SF3 / Chrome2 ][操作系统:Windows
- 无意中看到一位学员的屏保,感觉挺有意思的,就把它实现了下来效果如下:<!DOCTYPE html PUBLIC "-//W3