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

0 then ~q|e];tA  
Response.Write 错误 ： & err.description & >h( rd1  
response.end wfTv<WG,.E  
End if x)wt.T?eL  
End Sub K2MNaB  
Sub EndDB() p}zk&`  
Set objOraDB = Nothing g2>u]3
&W  
Set objOraSession = Nothing %s :  
End Sub 6')SJ*|yS  
Function getTableList(str) "/Q(UV<d  
Dim strSql,strTmp ^W[`##,{Od  
Dim objRs fQ_8{=<-&X  
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`<? fO  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) BCZnF /Zo  
While Not objRs.Eof -&D6w9w  
strA = objRs(uname) & . & objRs(tname) si.a]k/f  
-XIvj'u  
If str=strA then vfTG*jG  
strTmp = strTmp & & strA & {#M{~  
Else d4h(F,K7V  
strTmp = strTmp & & strA & Y9y*":&%  
End if 5qfKV&D  
objRs.MoveNext -t'oW*kdL  
Wend |Pl{Oo+  
Set objRs = Nothing xWb?i6)z&  
getTableList = strTmp E^W*'D  
End Function d]~1.i  
% > Wc;D{p?Lb  
7.rZ%1N  
>t2)Z|1  
U9sub6w6  
/_\W*@ E  
All Tables : Sz@?%PnU|  
%_
O>Hy|p  
uN0fWj]  
g@f/OsR76  
?o5#Ve$-X  
() x)Kh_G  
vm}.gQ  
,,wx197XeD  
;OqLNfU3y  
f|1FqL+T]  
Dohe(\C@  
  then 1Klu]J%  
strSql = Select * from & tblname l<_mag/j9o  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) VZ@@j[F(  
Response.Write sn`?Foh  
for i=0 to rs.Fields.count-1 g7f%(W2dd  
  Response.Write & rs.fields(i).name & xi=uXxl  
next )?y"NVc*  
Response.Write ;K
-t  
While Not Rs.Eof , )3+hnFY  
  Response.Write 8@ gD03  
  for i=0 to rs.fields.count -1 IFoN<<7/2$  
        Response.Write & Rs.Fields(i).Value &   )X$n'E  
  next oYx f((x  
  Response.Write       dh`A(B{hfc  
  Rs.MoveNext xl=|]8w  
Wend -z1
o~~  
Set Rs = Nothing gipRVd*TA  
end if !`E2O*g
 
  % > Y%8QFM  
{'aqOlw3<j  
)dDmq  
W7>_nK+g?  
vtjG&0GSK  
转自： ASP教程采集