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

0 then %rFP#L  
Response.Write 错误 ： & err.description & 1oB$MQoc  
response.end |p;4dL  
End if oz
Vpfs  
End Sub *^n^nnCwp  
Sub EndDB() :RPVT,O}  
Set objOraDB = Nothing [`q.A`Fd  
Set objOraSession = Nothing Gj6<s./  
End Sub Lt>?y&CcQ  
Function getTableList(str) "K8nxnq  
Dim strSql,strTmp 3 Q@9S  
Dim objRs n1_ %Td  
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 wyp{KIV  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) STv(kQs  
While Not objRs.Eof TV<Aj"xw  
strA = objRs(uname) & . & objRs(tname) pH^ z  
b7Yq_%+  
If str=strA then %cS#+aK6M'  
strTmp = strTmp & & strA & ,KT<4  
Else 6tX.(/+L  
strTmp = strTmp & & strA & RTA%hCr!  
End if C:Vv!u  
objRs.MoveNext yj>){NcX  
Wend e,^pMg~  
Set objRs = Nothing }Bd_:#.mw  
getTableList = strTmp xOhRTxic  
End Function V!mWn|lf  
% > ~M*7N@D  
sb'lZFSP~s  
Yi[4DfA  
q{/*n]K  
X+@s]  
All Tables : =<Hy"4+?.  
+5#x6[  
!TGr.R  
/=b
St  
cY{I:MA+h@  
() t`uc3ta"9  
wtq,`'B  
V):`&@  
R3cg2H  
+9TV:T  
.6LS+[
  
  then $kv@tzO  
strSql = Select * from & tblname {Wh BoD  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) So?m?,!W  
Response.Write "8FSA`>=  
for i=0 to rs.Fields.count-1 Ac J>$L)  
  Response.Write & rs.fields(i).name & 1p~5h(jI  
next )mj<{Td`  
Response.Write l4zw]AYk+X  
While Not Rs.Eof ,eDu$8J9  
  Response.Write <H!O:Mf_p  
  for i=0 to rs.fields.count -1 ~bWhth2*  
        Response.Write & Rs.Fields(i).Value &   JXL'\De ;  
  next m!;G/s*  
  Response.Write       ;
>
5,  
  Rs.MoveNext ,|A{!j`  
Wend $<:'!#%  
Set Rs = Nothing vpi l$Uq  
end if (VEp~BW@-R  
  % > ;e2
Ij  
(,shiK[5f  
TKd6MZhT  
Gj)uyjct  
*]>])ms)  
转自： ASP教程采集