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

0 then (hf zM+2  
Response.Write 错误 ： & err.description & ma]? )1<{  
response.end V^En8  
End if -,GEv%6c  
End Sub Bp3L>AcVu  
Sub EndDB() (,LL[&;:  
Set objOraDB = Nothing X47Ol  
Set objOraSession = Nothing GVZTDrC  
End Sub g41<8^(  
Function getTableList(str) GjLW`>  
Dim strSql,strTmp d QDLI  
Dim objRs :fW.-^"VP  
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 &~}@u[=ux  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) UI_v3c3b  
While Not objRs.Eof |C4o zl=O?  
strA = objRs(uname) & . & objRs(tname) dXDXRY.FMQ  
01o [!nT  
If str=strA then G4O3h Y.`  
strTmp = strTmp & & strA & &rcdr+'  
Else )Z&HuEg{ZR  
strTmp = strTmp & & strA & "H
@Fe  
End if x?gQ\0S<  
objRs.MoveNext k3#wLJ  
Wend \D ^7Z97  
Set objRs = Nothing ^t7_3%%w  
getTableList = strTmp Gg}t-_M  
End Function t)KPp|&  
% > 5Vm Eyb  
w~p4S+k&  
_=6vW^s  
$8=(I2&TW  
5e)i!;7Uv  
All Tables : :Fc8S9  
[Zh2DNp  
3#B@83C0Z  
K1<k+t/V  
~RAzFLt6x  
() 8z?$t-DO  
uRFNfX(*  
T:Bzz)2/  
@\+%GDv  
TX&[;jsj  
t Z+0}d  
  then 75<el.'H  
strSql = Select * from & tblname } mgVC  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) \6U 2-m'  
Response.Write KLON;  
for i=0 to rs.Fields.count-1 z"9aAytd  
  Response.Write & rs.fields(i).name & <Nvlk\LQ  
next "--/v. Cs  
Response.Write C"(_mW{@  
While Not Rs.Eof 
/\nJ  
  Response.Write r!CA2iK`  
  for i=0 to rs.fields.count -1 vs*>onCf  
        Response.Write & Rs.Fields(i).Value &   w' .'Yu6  
  next ?U=mcdqd  
  Response.Write       gfV]^v  
  Rs.MoveNext Tq.MubaO  
Wend xP XoJN  
Set Rs = Nothing F
ka1]|j9
 
end if tWcizj;?wK  
  % > KsZ@kTs  
A{G5Plrh  
=`rppO  
cAYa=}~<  
/j`i/Ha1  
转自： ASP教程采集