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

0 then P6I<M}p  
Response.Write 错误 ： & err.description & HUChg{[  
response.end 2 :4o`o  
End if Ou4 `#7FR  
End Sub D<`M<:nq  
Sub EndDB() #N$\d4q9  
Set objOraDB = Nothing gN2oUbf8  
Set objOraSession = Nothing b BiTAP  
End Sub lNsdbyV'  
Function getTableList(str) +c8t~2tuN  
Dim strSql,strTmp oj[~H}>  
Dim objRs  "D'rsEh  
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 Lq62  
Set objRs = objOraDb.DbCreateDynaset(strSql,0)
}U(bMo@;  
While Not objRs.Eof >,QCKZH  
strA = objRs(uname) & . & objRs(tname) W'~s  
=CW> ;h]  
If str=strA then C+t0Zen  
strTmp = strTmp & & strA & |2=@8_am  
Else 5UJ ?1"J  
strTmp = strTmp & & strA & fk9q3  
End if  LJ;&02w@  
objRs.MoveNext nLOK1@,4  
Wend 052Cf dq  
Set objRs = Nothing PJ4/E  
getTableList = strTmp Vc;g$Xr[  
End Function "TP~TjXfq  
% > w?zy/+N~  
;B;@MD,B  
+_kA&Q(t  
sv&^sARN  
*p=enflU  
All Tables : 5rfDm  
en/h`h]h  
HI{h>g T  
a0+q^*\d\R  
MGq\\hLD\-  
() /E2P  
 4Y}Nu  
_!VtM#G[  
:iLRCK3C  
+$#<gp"  
pg!MtuC}  
  then gaxM#  
strSql = Select * from & tblname H2H[DVKv  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 2@lGY_O!m  
Response.Write c~~4eia)  
for i=0 to rs.Fields.count-1 w;{Q)_A  
  Response.Write & rs.fields(i).name & .%)uCLZr$  
next ?hGE[.(eh]  
Response.Write |/H?\]7  
While Not Rs.Eof jl>TZ)4}V  
  Response.Write &tvtL  
  for i=0 to rs.fields.count -1 z?Ok'LX  
        Response.Write & Rs.Fields(i).Value &   ,}]v7DD  
  next -b{<VrZ  
  Response.Write       Tg"? TZO~  
  Rs.MoveNext NJE*/_S  
Wend }eW<P079  
Set Rs = Nothing $OdBuJA  
end if J _dgP[  
  % > 6pSTw\/6  
$[Z~BfSQ  
j`"!G*Vh  
bEj}J_#  
yyljyE  
转自： ASP教程采集