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

0 then ,r{*o6  
Response.Write 错误 ： & err.description & a[\,K4l  
response.end ItDe_|!L  
End if _t6siB_u  
End Sub g,Kb9['  
Sub EndDB() v|VY5vN  
Set objOraDB = Nothing j$T2ff6  
Set objOraSession = Nothing XtT;UBE  
End Sub $}TqBBe  
Function getTableList(str) M$FXDyr  
Dim strSql,strTmp MFX&+c  
Dim objRs _S8]W !c  
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 `PSr64h
:D  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) +6*oO|  
While Not objRs.Eof f<xF+wE  
strA = objRs(uname) & . & objRs(tname) -}{\C]%  
=ADAMP  
If str=strA then 6'(5pt  
strTmp = strTmp & & strA & si=/=h  
Else $Pzvv`f*  
strTmp = strTmp & & strA & PdMx6 Ab  
End if 174H@  
objRs.MoveNext *Zt)J8C  
Wend { YJ.BWr  
Set objRs = Nothing u):z1b3*?  
getTableList = strTmp ETH`.~%  
End Function EM vV  
% > >G' NI?$  
PHDKx+$  
9`dQ7z.8t  
b$PNZC8f  
!aa^kcEjnL  
All Tables : 2s-f?WetbP  
4E4o=Z|K  
G8QJM0VpS  
[+{ ot   
"uGJ\  
() 1uB}Oe2~  
*X%`MN  
5y=X?hF~)  
3(^9K2.s}  
XZd !c Ff  
#%k5s?cP@  
  then l:+tl/  
strSql = Select * from & tblname :U?P~HI  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) *}
ay  
Response.Write AKa{C f  
for i=0 to rs.Fields.count-1 m|24)%Vj;=  
  Response.Write & rs.fields(i).name & v bb mmv  
next Ma-^
o<{  
Response.Write C9gF2ii|?  
While Not Rs.Eof oVl:./(IB  
  Response.Write Esw&ScBOP  
  for i=0 to rs.fields.count -1 lG\lu'<C  
        Response.Write & Rs.Fields(i).Value &   ,:>>04O  
  next nn#A-x}~;b  
  Response.Write       He#+zE;  
  Rs.MoveNext 9!bD|-6y  
Wend 71K6] ~<  
Set Rs = Nothing p@cPm8
L3  
end if Ao{wd1  
  % > 1O(fI|gc
O  
E_ mgYW*5  
Qx.E+n\  
jy&p_v1  
AN
T^&NjJ7  
转自： ASP教程采集