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

0 then 'v\L @"  
Response.Write 错误 ： & err.description & /v/C<]   
response.end W-.pmU e2  
End if {}QB|IH`  
End Sub -S$1Yn  
Sub EndDB() 8me ]JRw  
Set objOraDB = Nothing $&<uT  
Set objOraSession = Nothing j'aHF#_  
End Sub +V{7")px6  
Function getTableList(str) 8E4mA5@  
Dim strSql,strTmp `2`\]X_A{  
Dim objRs E\IlF 6  
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 !'j?.F$}  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) K-f1{ 0  
While Not objRs.Eof +,yK;^b  
strA = objRs(uname) & . & objRs(tname) zoDH` h_  
.Wq@gV  
If str=strA then K"b`#xN(t  
strTmp = strTmp & & strA & ZR$'u%+g'  
Else
1fo
 U  
strTmp = strTmp & & strA & rp6q?3=g  
End if +&Hr4@pgW  
objRs.MoveNext jMbC Y07v  
Wend 6gT5O]]#o  
Set objRs = Nothing Pl<;[cB  
getTableList = strTmp u{FDdR9<  
End Function cuK,X!O  
% > zCOgBT~p  
,SQZD,3v4  
YKbaf(K)9  
P%#*-zCCx  
'Fs)Rx}\0  
All Tables : KAsS[  
ovwQ2TuK  
GEEW?8  
u$D*tqxG  
(u]N  
() MB%Q WU  
\~BDm  
iSFuT7;%  

LY[~Os W  
xGU(n_Y  
l3Lyea:  
  then S a4W`  
strSql = Select * from & tblname kN%MP6?J  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) hzI|A~MFB  
Response.Write A<6%r7&B'  
for i=0 to rs.Fields.count-1 q~@]W=  
  Response.Write & rs.fields(i).name & 52.>+GC  
next S.Z9$k%  
Response.Write n.sbr
 
While Not Rs.Eof fM #7y [  
  Response.Write  .AYj'Y  
  for i=0 to rs.fields.count -1 @"Z7nJX  
        Response.Write & Rs.Fields(i).Value &   3SSm5{197  
  next .e'eE  
  Response.Write       dB+N\HBY  
  Rs.MoveNext n!')wIk  
Wend w~#nYM=fP!  
Set Rs = Nothing -tnQCwq#  
end if BW"&6t#kA  
  % > dgDy5{_  
xl"HotsX-x  
8)kLV_+%  
7},)]da>,'  
w=|GJ0  
转自： ASP教程采集