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

    下面這段代碼能夠顯示，當(dāng)前用戶所能夠看到的所有的用戶和表，有興趣的， 可以把每個(gè)表的內(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 錯(cuò)誤 ： & 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
    %>