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

0 then @;b @O _  
Response.Write 错误 ： & err.description & Dwa.ZY}-  
response.end QZ2a1f'G  
End if F['%?+<3  
End Sub |Ca %dg9$@  
Sub EndDB() {9;x\($&a  
Set objOraDB = Nothing 3'xmq  
Set objOraSession = Nothing [;LP6n7v  
End Sub Lz:Q6  
Function getTableList(str) N;|:Ks#!  
Dim strSql,strTmp kVY0 E  
Dim objRs *Kmo1>^  
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 tpj6AMO/`d  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) `s|^  
While Not objRs.Eof ~(P\'H&(h  
strA = objRs(uname) & . & objRs(tname) &S9O:>=*  
Y0;66bfh}  
If str=strA then /`+ubF
Xc  
strTmp = strTmp & & strA & R^Y>v5jAe  
Else F [S'l  
strTmp = strTmp & & strA & Prqr,  
End if SG{&2G  
objRs.MoveNext Mq Q'Kjo  
Wend NhRKP"<CO  
Set objRs = Nothing t+IrQf
,P[  
getTableList = strTmp W@p27Tiq  
End Function Dwbt^{N^  
% > |,lw$k93  
n^2'O:Vs  
=j^wa')  
rL23^}+^`  
g=Bge)  
All Tables : 1{$=N2U  
Y5R|)x  
]\6*2E{1m  
/:+MUw7~  
z"$huE>P6  
() [n2)6B\/  
= 6.i.(L_S  
WJBw
o%J  
z:W|GDD1  
5]F4.sa  
HzZ.q2Zz%  
  then +Cs.v.GA5  
strSql = Select * from & tblname >goG\y  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 9ohO-t$XkY  
Response.Write vhz Q.>  
for i=0 to rs.Fields.count-1 %h4|$  
  Response.Write & rs.fields(i).name & D22jWm2  
next |TRl>1rv  
Response.Write ur JR[$p  
While Not Rs.Eof ~zcB@; :  
  Response.Write CJf4b:SY@  
  for i=0 to rs.fields.count -1 a'|/=$  
        Response.Write & Rs.Fields(i).Value &   n|Gw?@CU7  
  next (Nn)_caVb  
  Response.Write       <qjolMO`  
  Rs.MoveNext '~n=<Y  
Wend -}KW"#9c  
Set Rs = Nothing _[{oK G^u  
end if _64<[2  
  % > ds:&{~7L<T  
.s`7n *xz  
5O]eD84B  
9RmdQ]1n4  
K/|qn)  
转自： ASP教程采集