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

0 then CM5A-R90  
Response.Write 错误 ： & err.description & ~g|e?$j  
response.end mZ/B:)_  
End if (= !_5l  
End Sub K:y q^T7  
Sub EndDB() wmo'Pl  
Set objOraDB = Nothing :WA o{|&  
Set objOraSession = Nothing  _&(ij(H  
End Sub sWavxh8A  
Function getTableList(str) oSa FmP  
Dim strSql,strTmp <*(~x esPS  
Dim objRs E 3I'3  
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 ejr"(m(Xe  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) [0&Lvx  
While Not objRs.Eof C4 Wdt  
strA = objRs(uname) & . & objRs(tname) 3lL:vD5(  
/$eEj  
If str=strA then '|XP}V0I  
strTmp = strTmp & & strA & $\^]MxI  
Else 4uftx1o   
strTmp = strTmp & & strA & GU[Cq=k  
End if *|E@81s#  
objRs.MoveNext )<^ ~${$U  
Wend A\#?rK  
Set objRs = Nothing E?9_i :IX  
getTableList = strTmp *e>:K$r  
End Function _r8AO>  
% > >8JvnBFx=  
#[[p/nAy}A  
hYWWvJ)S  
_b5iR<f  
njq-
iU  
All Tables : ]cA~%$c89s  
P)\f\yb  
8U(a&G6gn  
<.v6w*+{/  
}jk^M|Z"Oz  
() =[jBOx&  
V3+%KkN  
_$cBI_eA7  
* ;M?R?+  
cq=R  
C=b5[, UCB  
  then .X
E]vo  
strSql = Select * from & tblname uB^]5sqfk  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) C`#N Q*O  
Response.Write Y$Ke{6 4  
for i=0 to rs.Fields.count-1 y@Or2bO#  
  Response.Write & rs.fields(i).name & gU%GM  
next 5;Z~+$1  
Response.Write nSC>x:jY5/  
While Not Rs.Eof n^%u9H  
  Response.Write s-ou;S3s  
  for i=0 to rs.fields.count -1 ?yU#'`q  
        Response.Write & Rs.Fields(i).Value &   >mV""?r]  
  next fE:2MW!)*  
  Response.Write       ;'Q{ ywr  
  Rs.MoveNext B>mQ\Q  
Wend lt4UNJ3w  
Set Rs = Nothing NAU<?q<)  
end if \wCL)t.cX  
  % > ,@;<u'1\G  
*,p
qpD>  
EAkP[au.  
CP'-CQ\Q  
QM]^@2rK2  
转自： ASP教程采集