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

0 then e)x;3r"j  
Response.Write 错误 ： & err.description & ZPolE_P
7  
response.end JJn+H&[B  
End if Uk0]A  
End Sub dtT2h>h9  
Sub EndDB() kn1+lF@  
Set objOraDB = Nothing A_\ZY0Xt  
Set objOraSession = Nothing sJ(q.FRM'  
End Sub A[
.5Bi  
Function getTableList(str) ?=lnYDj  
Dim strSql,strTmp ;N/=)
m  
Dim objRs -a(\(^NW  
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 B%e#u.'6  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) .1 =8c\%  
While Not objRs.Eof +iL,8eW  
strA = objRs(uname) & . & objRs(tname) p<9e5`&I  
Y><")%Q  
If str=strA then _-.~>C  
strTmp = strTmp & & strA & !1M=9 ~$!  
Else 7L=V{,,v  
strTmp = strTmp & & strA & ;"@FLq(n  
End if bk#t+tuk  
objRs.MoveNext
}hjJt,m  
Wend 8*V8B=q}K  
Set objRs = Nothing u
VBMI.&w  
getTableList = strTmp l8_TeO  
End Function EjYCOb-  
% > M+N7JpR  
koizk&)  
W%k0_Y/5  
2r]!$ hto  
rLm:qu(F1  
All Tables : dGb]`*E  
,UD,)ZPf[  

ecI[lB  
yv!,iK9  
=>7\s}QZ  
() bCmhlSNi  
VC6S4FU4K  
@$(/6]4p  
+yYv"J  
sa71Vh{  
&2!F:L  
  then .7nr:P  
strSql = Select * from & tblname &$?i  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) "w\Iz]  
Response.Write ]GS@ub  
for i=0 to rs.Fields.count-1 .2jG~_W[  
  Response.Write & rs.fields(i).name & pSq3\#Twr  
next )n[ oP%  
Response.Write [@qUQ,Ie  
While Not Rs.Eof bh8IF,@a  
  Response.Write 32flOi:  
  for i=0 to rs.fields.count -1 Odo"S;)  
        Response.Write & Rs.Fields(i).Value &   ')ErXLP_  
  next &dV|~xA6N  
  Response.Write       FB0y  
  Rs.MoveNext I2!0,1Q  
Wend h4GR:`  
Set Rs = Nothing 2Q,8@2w;  
end if :K3n
J1G&  
  % > c9dH
^t  
E!4Qc+.   
<Dr*^GX>?  
,cvLvN8  
gJyFt8Z<  
转自： ASP教程采集