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

0 then KwO;ICdJ  
Response.Write 错误 ： & err.description & qzD<_ynA  
response.end 5Fa.X|R~  
End if *9J>3  
End Sub o9I=zAGjy  
Sub EndDB() Gf``0F)  
Set objOraDB = Nothing j4pxu
/2  
Set objOraSession = Nothing ,*_=w^;Rr  
End Sub 6 axe  
Function getTableList(str) MYyV{W*T>  
Dim strSql,strTmp \\w<.\Yh  
Dim objRs MvV\?Lzj   
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 f@Oi$9CZn  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) FI|jsO 3  
While Not objRs.Eof g i>`  
strA = objRs(uname) & . & objRs(tname) h`Ld%iN\  
d)hA'k  
If str=strA then BMaw]D  
strTmp = strTmp & & strA & Ejxz
X1
:  
Else _Sa7+d(  
strTmp = strTmp & & strA & *?Hc8y-dG,  
End if /j%(Z/RM  
objRs.MoveNext 9R$0[HbI3  
Wend QX`Qnk|Y  
Set objRs = Nothing hb@,fgo!Q  
getTableList = strTmp .8[*`%K>  
End Function R^u 1(SF  
% > O7DaVlln  
#6okd*^  
f8ucJ.{"  
+%E)]*Ym  
Q8d-yJs&  
All Tables : '0ks`a4q  
VY9o}J>,w  
2h=QJgpCG  
Z'hHXSXM  
f%#q}vK-  
() mf4C68DI@u  
N{kp^Byim0  
jimWLF5Q5"  
EhWYFQ  
pAdx 6  
V.\12P  
  then U+[ p>iP  
strSql = Select * from & tblname MgpjC`  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) $c^,TAN  
Response.Write <PMQ$s>KK  
for i=0 to rs.Fields.count-1 /Py
1Q  
  Response.Write & rs.fields(i).name & /7[U J'  
next 7&O0  
Response.Write YB`1
S  
While Not Rs.Eof /9QC$Z):<  
  Response.Write /&>vhpZ}  
  for i=0 to rs.fields.count -1 X0FTD':f  
        Response.Write & Rs.Fields(i).Value &   8%\0v?a5  
  next p)&Yr  
  Response.Write       BQo$c~  
  Rs.MoveNext `J l/@bE=  
Wend AQ)DiH  
Set Rs = Nothing Pl/}`H:R&  
end if sa?Ul)L2  
  % > >U7{EfUJdx  
q0t}  
eVRPjVzQ'Q  
9_Ws8nE  
ov$S  
转自： ASP教程采集