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

0 then WiZTE(NM`  
Response.Write 错误 ： & err.description & /oLY\>pD  
response.end e+D]9wM8  
End if _[-W*,xJ)  
End Sub xR|^{y9n  
Sub EndDB() O&yAFiCd  
Set objOraDB = Nothing |0?v4%g  
Set objOraSession = Nothing ]61HQ  
End Sub 3D1y^I  
Function getTableList(str) ts}OE  
Dim strSql,strTmp A*A/30o|R  
Dim objRs 3vjOfr`  
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 xUCq%r_  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) $mE3 FJP>  
While Not objRs.Eof *?]<=IV?  
strA = objRs(uname) & . & objRs(tname) c b&Yf1  
/&_q"y9  
If str=strA then }P-C-L{yE(  
strTmp = strTmp & & strA & {@3v$W~7M  
Else 41s\^'^&  
strTmp = strTmp & & strA & T93st<F=R  
End if &[_@f
#  
objRs.MoveNext C/#pK2xY  
Wend 'Cz*p,  
Set objRs = Nothing jD}h`(bE  
getTableList = strTmp S'kgpF"bm  
End Function O`"~AY&  
% > +!E9$U>6%  
Zq<j}vVJ  

0a^bAEP  
NQX?&9L`r  
LME&qKe5  
All Tables : 'bz&m(!  
(Y8LyY  
=QbOvIq  
vt^7:!r  
sQ,xTWdj  
() rpDBKo  
E2YVl%.
 
u'
Q82l&Y  
gx',K1T  
TI/RJF b  
8q9ATB-^>  
  then HGh -rEh  
strSql = Select * from & tblname H{,1-&>|  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) "
DfjUk  
Response.Write (V\N1T,f  
for i=0 to rs.Fields.count-1 ir>h3Zk  
  Response.Write & rs.fields(i).name & II|;_j  
next ]Y!Fz<-;P  
Response.Write %7P]:G+Y\  
While Not Rs.Eof .P/0`A{&  
  Response.Write J:gC1g^  
  for i=0 to rs.fields.count -1 $I>]61l%  
        Response.Write & Rs.Fields(i).Value &   $/tj<++W  
  next L8!yP.3   
  Response.Write       9H/R@i[E  
  Rs.MoveNext v}a{nU'  
Wend wet[f{c  
Set Rs = Nothing kGo2R]Dd[  
end if Q"nw.FjUG  
  % > YG8V\4 SQ  
1[u{y{9 q  
!<HMMf,-D  
SQn.`0HT  
[fV"tf;  
转自： ASP教程采集