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

0 then 8jz7t:0  
Response.Write 错误 ： & err.description & +7j7zpw  
response.end `}~NZ  
End if {emym$we
 
End Sub Sb?HRoe_  
Sub EndDB() Je=k.pO1  
Set objOraDB = Nothing ,9~qLQ0O  
Set objOraSession = Nothing W.?EjEx  
End Sub HlXEU$e  
Function getTableList(str) >!%+)  
Dim strSql,strTmp h:4F
?'W  
Dim objRs .`/6[Zp

 
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 }nMp.7b  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) i(0%cNP7  
While Not objRs.Eof N==Y]Z$G  
strA = objRs(uname) & . & objRs(tname) !0Eo9bU%@  
BZk0B?  
If str=strA then J@o$V- KK
 
strTmp = strTmp & & strA & AV;x'H7G  
Else 2I0Zr;\f  
strTmp = strTmp & & strA & @H8CU!J  
End if !z"nJC  
objRs.MoveNext %D E_kwL  
Wend !5K5;M_Ih"  
Set objRs = Nothing YkI_i(  
getTableList = strTmp oC|']r6  
End Function U2*kuP+n  
% > )CG,Udu  
Us4#O&  
o=Ia{@  
7-4S'rq+  
*iXaQuT  
All Tables : dd!Q[]$ }  
C$^WW}S  
m-HBoN  
7X/KQ97  
FXFyF*w2  
() 1_5]3+r_U-  
b}Wm-]|+  
aThvq%;  
H*h4D+Kxv  
AzFS6<_  
IAb-O  
  then G(MLq"R6U  
strSql = Select * from & tblname I0}G, q  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) l vfplA  
Response.Write f<*-;  
for i=0 to rs.Fields.count-1 xGt>X77  
  Response.Write & rs.fields(i).name & mxmj  
next 52'0l>  
Response.Write g!
!:o(k  
While Not Rs.Eof JjnWv7W3$  
  Response.Write k:*vD"  
  for i=0 to rs.fields.count -1 gi<%: [jT  
        Response.Write & Rs.Fields(i).Value &   %)P)Xb  
  next <L:}u!  
  Response.Write       mEq>{l:  
  Rs.MoveNext 'rSJ9Mw"x  
Wend    
Set Rs = Nothing nD#uOep9  
end if _TjRvILC  
  % > ?5rM'O2  
TQ25"bWi  
0EBHRY_F  
eD0|6P;Ei  
8eD/9PD=F  
转自： ASP教程采集