在ASP中通過oo4o連接Oracle數(shù)據(jù)庫的例子

    下面這段代碼能夠顯示，當(dāng)前用戶所能夠看到的所有的用戶和表，有興趣的， 可以把每個表的內(nèi)容加上
    <%
    Dim objOraSession,objOraDb
    Dim strDbUser,strDbPwd,strDbConn
    Call ConnectDB()
    Sub ConnectDB()
    '連接數(shù)據(jù)庫
    On Error Resume Next
    strDbUser = "tmpUser" '連接用戶名
    strDbPwd = "rt45ps1w" '用戶密碼
    strDbConn = "sun450" '連接字符串
    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 & "
    "
    Else
    strTmp = strTmp & ""
    End if
    objRs.MoveNext
    Wend
    Set objRs = Nothing
    getTableList = strTmp
    End Function
    %>