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

0 then Ep./->fOA  
Response.Write 错误 ： & err.description & }9\6!GY0  
response.end e Fz$h2*B  
End if 4_QfM}Fyp  
End Sub t.;._'  
Sub EndDB() =T2SJ)  
Set objOraDB = Nothing p!:oT1U  
Set objOraSession = Nothing ^|Fy!
kp  
End Sub _dk[k@5W{'  
Function getTableList(str) Pa d)|  
Dim strSql,strTmp vf.MSk?~ar  
Dim objRs 7"'PfP4c  
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 Posz|u<x  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) >>KI_$V  
While Not objRs.Eof )GG9
[%H!  
strA = objRs(uname) & . & objRs(tname) xgIb6<qwY  
aIa<,  
If str=strA then '12*'Q+{+  
strTmp = strTmp & & strA & RDDA^U7y#  
Else uNuFD|aQ.  
strTmp = strTmp & & strA & T=-UcF  
End if y-.{){uaD  
objRs.MoveNext \v-I<"::  
Wend au50%sA~  
Set objRs = Nothing U'" #jT  
getTableList = strTmp nrev!h  
End Function ^ fC2o%3^  
% > zKJQel5  
<CO_JWD  
l59\Lo:  
Z9M$*Z
p  
)Hin{~h  
All Tables : rMIX{K)'f  
[UzacXt  
Jb*QlsGd  
%p)&mYK{  
9Xg7=(#  
() FvVC 2Z  
=Y|( }92  
Q+
Q"JU  
S"G(_%  
uQ_C<ii"W  
s&VsK#  
  then 7/hn%obC  
strSql = Select * from & tblname IowXVdm@6  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) +=9iq3<yfS  
Response.Write u4 es8"  
for i=0 to rs.Fields.count-1 1HNP@9ga  
  Response.Write & rs.fields(i).name & F!hjtIkPj  
next #3_g8ni5X  
Response.Write 9VTAs:0D=  
While Not Rs.Eof EQ^]W-gN  
  Response.Write s/hWhaS<  
  for i=0 to rs.fields.count -1 l+2NA4s  
        Response.Write & Rs.Fields(i).Value &   P]^OSPRg  
  next !Q~>)$Cf^  
  Response.Write       b6k_u9m^E  
  Rs.MoveNext @R`6jS_gK  
Wend D ON.)F  
Set Rs = Nothing E@k'uyIu  
end if `!N}u  
  % > ? Pi|`W   
5%9Uh'y#  
Go c*ugR  
%.`u2'^  
a_S`$(7k  
转自： ASP教程采集