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

0 then ~=Fp0l)#  
Response.Write 错误 ： & err.description & [g lhru=+  
response.end ]ex2c{ G  
End if "A}2iI  
End Sub 04!akPP<  
Sub EndDB() )KN]"<jB  
Set objOraDB = Nothing hh^_Z| 5  
Set objOraSession = Nothing 4~0@(3  
End Sub Q~)A fa{  
Function getTableList(str) %T~LK=m  
Dim strSql,strTmp IU rGJ#}O  
Dim objRs 5S%#3YHY2  
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 ju/#V}N  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) yxy~N\0  
While Not objRs.Eof m^1'aO_;q  
strA = objRs(uname) & . & objRs(tname) lT F#efcW  
BHIC6i%  
If str=strA then {pk&dB _Bu  
strTmp = strTmp & & strA & (fC U+  
Else Vs&Ul6@N  
strTmp = strTmp & & strA & 5[rA>g~  
End if [gE2;J0*  
objRs.MoveNext C,dRdEB>  
Wend M{`uI8vD  
Set objRs = Nothing  LhtA]z,m  
getTableList = strTmp kwpbgQ  
End Function :.F;LF&  
% > 95BRZ!ts  
h Ap(1h#m  
wO*x0$  
Vg8c}
>7  
 ~&Y%yN^  
All Tables : P&9&/0r=_  
'FmnlC1  
n~v*  
#~;:i  
A&qZ:&(OM  
() ~#9(Q  
PRyzUG&  
`:;fc  
Qon>[<]B  
Q`[J3-Q*{  
OA8iTn  
  then ?wbf)fbq  
strSql = Select * from & tblname DzG$\%G2R}  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Vi\kB
%  
Response.Write 3v:c'R0  
for i=0 to rs.Fields.count-1 )+12r6W  
  Response.Write & rs.fields(i).name & @N+6qO}  
next M07==R7  
Response.Write {x/)S*:Z  
While Not Rs.Eof ">"B  
  Response.Write J={IGA  
  for i=0 to rs.fields.count -1 |s*tRag  
        Response.Write & Rs.Fields(i).Value &   YV/JZc f  
  next XXZ<r  
  Response.Write       Rkz[x  
  Rs.MoveNext ;\)N7SJ  
Wend x"n)y1y  
Set Rs = Nothing gC\^"m  
end if _1
6IP  
  % > y?yWM8  
Wd/m]]W8Q  
$VyH2+ jC  
?D`
h[ai  
<B3$ODGJp  
转自： ASP教程采集