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)% > 相关文章 王者荣耀侦探能力大测试攻略 王者荣耀侦探能力大测试怎么过 游戏攻略 2024-11-22 无期迷途主线前瞻兑换码是什么 游戏攻略 2024-11-22 原神欧洛伦怎么培养 游戏攻略 2024-11-22 炉石传说网易云音乐联动怎么玩 游戏攻略 2024-11-22 永劫无间手游确幸转盘怎么样 游戏攻略 2024-11-22 无期迷途主线前瞻兑换码是什么 无期迷途主线前瞻直播兑换码介绍 游戏攻略 2024-11-22 精彩推荐 沙威玛传奇安卓版 下载 战盟大乱斗最新版 下载 大侠立志传最新版 下载 苍翼混沌效应最新版 下载 驯龙高手旅程安卓版 模拟经营 驯龙高手旅程安卓版 一款以奇幻世界为背景的模拟经营游戏 下载 全民农场最新版 模拟经营 全民农场最新版 一款轻松风格的农场经营类型的游戏 下载 散修功德模拟器完整版 模拟经营 散修功德模拟器完整版 散修功德模拟器游戏是一款以功德修炼为题材的模拟游戏 下载 我的毕业日记无限金币下载 模拟经营 我的毕业日记无限金币下载 开始毕业后的新生活吧！ 下载 城堡之梦拼图和装饰下载最新版 模拟经营 城堡之梦拼图和装饰下载最新版 城堡之梦拼图和装饰玩家将会在游戏当中感受更多的乐趣体验，你可 下载