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

< % 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
% >

All Tables : < %=getTableList(tblName)% > 相关文章 《无限暖暖》天星之羽获得位置介绍 12-20 《流放之路2》重铸台解锁方法介绍 12-20 《无限暖暖》瞄准那个亮亮的成就怎么做 12-20 《无限暖暖》魔气怪终结者完成方法 12-20 《无限暖暖》曙光毛团获得位置介绍 12-20 《无限暖暖》日光果获得位置介绍 12-20 热门栏目 php教程 php入门 php安全 php安装 php常用代码 php高级应用 asp.net教程 基础入门 .Net开发 C语言 VB.Net语言 WebService 手机开发 安卓教程 ios7教程 Windows Phone Windows Mobile 手机常见问题 css教程 CSS入门 常用代码 经典案例 样式布局 高级应用 网页制作 设计基础 Dreamweaver Frontpage js教程 XNL/XSLT 办公数码 word excel powerpoint 金山WPS 电脑新手 jsp教程 Application与Applet J2EE/EJB/服务器 J2ME开发 Java基础 Java技巧及代码 一聚教程网| 关于我们| 联系我们| 广告合作| 友情链接| 版权声明 copyRight@2007-2022 www.111CN.NET AII Right Reserved 网站内容来自网络整理或网友投稿如有侵权行为请邮件:[email protected] 我们24小时内处理