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

0 then Iry  
Response.Write 错误 ： & err.description & )ukpJ z""  
response.end we7c`1E  
End if  =1;=
 
End Sub Y(
VJbm`  
Sub EndDB() NmIHYN3  
Set objOraDB = Nothing B6P|Z%E;D6  
Set objOraSession = Nothing V}w;Y?]J  
End Sub ]uL+&(cr  
Function getTableList(str) Y$8JM  
Dim strSql,strTmp t%1^Li  
Dim objRs O;Y:uHf  
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 t=euE{c  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) bF}V4"d,B3  
While Not objRs.Eof Fig&&b a  
strA = objRs(uname) & . & objRs(tname) qF)<H  
.y5,x\Pq(  
If str=strA then {NM+Oj,~'  
strTmp = strTmp & & strA & .
S\&L-{  
Else .3pbu
U  
strTmp = strTmp & & strA & U_yE&6 T  
End if g|<Sfp+;+  
objRs.MoveNext E N^Uki`  
Wend wmr-}Y!9u%  
Set objRs = Nothing &Bb<4R  
getTableList = strTmp G28O%jD?  
End Function ~q0*"\Ff  
% > ^,Ydr~|T  
3*S{;p  
3B0lb"e  
CR<`ZNuWz  
O!1Tth
I  
All Tables : v`q\6i[-  
XkKC!  
(kBP(2V  
?|;yVew
 
5-u=o)>  
() 72TI  
3+7^uR$/I4  

w*j$uW6{  
>ndJNinV  
'8FC<=+p[  
v]:=K-1n  
  then w[Gh+L30=5  
strSql = Select * from & tblname Q'B6^%:<~  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) rPzQ8<  
Response.Write |w}w.%  
for i=0 to rs.Fields.count-1 RWq{Ff}Hk  
  Response.Write & rs.fields(i).name & ]ekk }0  
next Vsq8H}K  
Response.Write A^fjfa);V  
While Not Rs.Eof =V+I=rqo  
  Response.Write <g8K})P  
  for i=0 to rs.fields.count -1 -7>)i  
        Response.Write & Rs.Fields(i).Value &   ("7M b{  
  next *mG`_9  
  Response.Write       Z5G!ct:W  
  Rs.MoveNext De *7OC  
Wend (n( fI f  
Set Rs = Nothing DLE8+NV8   
end if C2e.2)y  
  % > kW
=z+  
nCg66-3A  
Aez2*g3  
[K~]&  
!,$i6gm  
转自： ASP教程采集