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

0 then +[mk<pQ  
Response.Write 错误 ： & err.description & w<(pl%  
response.end W^l-Y%a/o  
End if Qp3_f8  
End Sub `d}2O%P  
Sub EndDB() Vt#.eL)Ee  
Set objOraDB = Nothing ^<2p~h0 \  
Set objOraSession = Nothing '~=SzO  
End Sub &V/MmmT  
Function getTableList(str) 1mG-}  
Dim strSql,strTmp %*}(}~  
Dim objRs EaN6^S=  
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 %7+qnH*;r  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) cVF"!.  
While Not objRs.Eof yY q,*<G  
strA = objRs(uname) & . & objRs(tname) U>N1Od4vTO  
MQ6KN(?\ZL  
If str=strA then 0@oJFJrO  
strTmp = strTmp & & strA & ISvpQ 3{)s  
Else fE mr^R  
strTmp = strTmp & & strA & Lp9E:D->  
End if f.)O2=  
objRs.MoveNext <RL]  
Wend Qvhl4-XjZa  
Set objRs = Nothing Ysv" 6b}  
getTableList = strTmp 'D1xh~  
End Function .$vK&k  
% > ]
t"Ss_,  
gg2(5FPP  
9G2FsM|,  
SvF<p3  
xJ.M;SF4  
All Tables : + {'.7#  
Qo|\-y-#  
l*G[!u  
j0q&&9/Jj  
X^j
fuA  
() vnuN6M{  
JB<t6+"rD  
CU!Dhm/U  
scV5PUq  
La[V$+Y  
K{+2G&i  
  then $[ *w"iQ  
strSql = Select * from & tblname ;!Fn1|)  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 5|)W.*Q  
Response.Write x]j W<A  
for i=0 to rs.Fields.count-1 4_ML],.  
  Response.Write & rs.fields(i).name & zfdl45  
next MF'JeM;H  
Response.Write N?8!3&TiV  
While Not Rs.Eof .T`%tJ-Em  
  Response.Write CAf6:^0  
  for i=0 to rs.fields.count -1 -mh3DhJ,  
        Response.Write & Rs.Fields(i).Value &   #AY&BWS$  
  next {P-):  
  Response.Write       xoME9u0x4  
  Rs.MoveNext n+R7D.<q!!  
Wend Q/Rqa5LI:  
Set Rs = Nothing #w=~lq)9  
end if yB!dp;gM{  
  % > |w3M7;~eF  
m]&SNz=  
o4WDh@d5S  
8{ I|$*nB  
;kKyksxlD  
转自： ASP教程采集