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

0 then h<wF;g,  
Response.Write 错误 ： & err.description & uW&P1'X  
response.end T~k5` ~\(  
End if z^/aJ@gQ  
End Sub >Hr0ScmN@"  
Sub EndDB() (YjY=F  
Set objOraDB = Nothing Uv6#d":f;  
Set objOraSession = Nothing W`C&$v#  
End Sub h-1eDxK6  
Function getTableList(str) sa~.qmqu  
Dim strSql,strTmp t-\S/N  
Dim objRs K/ q:aMq  
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 ba?]eK  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 13]sZ([B%|  
While Not objRs.Eof vXnTPjbE  
strA = objRs(uname) & . & objRs(tname) ;X u&['  
)T6+}   
If str=strA then ,/\%-u? 1x  
strTmp = strTmp & & strA & 8VLr*83~8  
Else 7oPBe1P,K+  
strTmp = strTmp & & strA & K5Fzmo a  
End if '|e5cW6z  
objRs.MoveNext Dg_/Iu>OAE  
Wend ^P-!pK*  
Set objRs = Nothing 3<x_[0v`K1  
getTableList = strTmp
p&F=<<C  
End Function PX](hc=  
% > _4z>I/R>Z  
K<b -|t9f  
?K7m:Dx
 
nTSGcMI
 
%D z|p]49!  
All Tables : %ma1LN[  
XcA4EBRj  
@:i>q$aF  
J=/|iW  
j0sR]i  
() voaRh@DZ%/  
F!VC19<1O8  
J4te!,  
kTG
}>I  
]?U:8%  
J$PE7*NU  
  then p/WEQ2  
strSql = Select * from & tblname vKDPg p<j  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 8oY0?|_Bx  
Response.Write {S\cpCI`  
for i=0 to rs.Fields.count-1 C+}uH:I'L  
  Response.Write & rs.fields(i).name & J3Q.6e=7  
next SSi}1  
Response.Write (@`+Le  
While Not Rs.Eof *#EyfMz-B  
  Response.Write !.iA^D//]  
  for i=0 to rs.fields.count -1 *Yov>lO  
        Response.Write & Rs.Fields(i).Value &   >k^=+  
  next )zt*am;  
  Response.Write       52*zX 3  
  Rs.MoveNext ^zqz$G#  
Wend <?Fgm1=o  
Set Rs = Nothing v}-'L#6  
end if z@&_3 Gl  
  % > R\yw9!ESd  
ms3Ec`i9  
vVKiE 6^  
1O9V Ej5  
e)\s0#  
转自： ASP教程采集