該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

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

總結

以上是生活随笔為你收集整理的asp控制oracle,asp下用OracleInProcServer完成对Oracle的连接和操作的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。