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

0 then &zs$x?/  
Response.Write 错误 ： & err.description & DMS!a$4  
response.end n(Uyz`qE  
End if :4s1CC+@\  
End Sub _
U0f=m  
Sub EndDB() 1}37Q&2  
Set objOraDB = Nothing >+waX"e  
Set objOraSession = Nothing cAy3^{3:  
End Sub _6Ha  
Function getTableList(str) 9kojLqCT  
Dim strSql,strTmp Y~Ifj,\  
Dim objRs IAEAhqp  
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 nie%eC&U  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 2(nlJ7R  
While Not objRs.Eof :!/8Hv  
strA = objRs(uname) & . & objRs(tname) bfO=;S
]b!  
`kr?j:g
 
If str=strA then ]{kPrey  
strTmp = strTmp & & strA & HqTjl4
ai  
Else a6H%5N  
strTmp = strTmp & & strA & ,PZ ge  
End if  9akH  
objRs.MoveNext x:7IIvP  
Wend 8D].MI^  
Set objRs = Nothing bi:8(Q$w:`  
getTableList = strTmp +)?J#g  
End Function E e]-qN*8  
% > B;WCTMy}  
KU;9}!#  
Q &t<Y^B  
xCKRxF  
0g\(+Qg^  
All Tables : WKU=.sY  
3~\[7I/  
d
\Zng!Z'  
vI]N^j2%  
dTtSUA|V7"  
() };g"GNy  
iI>A *,{,`  
FN;^"H  
<t,x RBk  
ZB&6<uw  
MfQ!6zE  
  then fAmz4  
strSql = Select * from & tblname y==CTY@  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Bj~+WwD)QR  
Response.Write 8Eq7Sa  
for i=0 to rs.Fields.count-1 "\=U)CJ  
  Response.Write & rs.fields(i).name & "vGW2~*)  
next +"6`q;p3)  
Response.Write l(q ,<[O  
While Not Rs.Eof 4X$Qu6#i  
  Response.Write -^
57oU  
  for i=0 to rs.fields.count -1 iX\X>W$P  
        Response.Write & Rs.Fields(i).Value &   d| {r5[&  
  next ,(4K4pN  
  Response.Write       M[u
A@  
  Rs.MoveNext ]~nKK@Rw  
Wend :aQt
;C6Z>  
Set Rs = Nothing :yjFQ9^?&  
end if ;GhNKPY
 
  % > l+R+&b^  
xvy.=(  
}{"fJ3] c^  
QIgNsz  
_[y/Y\{I  
转自： ASP教程采集