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

0 then j?)`VLZ  
Response.Write 错误 ： & err.description & `%I{l  
response.end vszAr
( t  
End if *K)53QKlE  
End Sub 6]49kHgMhe  
Sub EndDB() ,/U9v~  
Set objOraDB = Nothing ri V/wN9C  
Set objOraSession = Nothing ~7lvY+k)<  
End Sub <?}g[]i  
Function getTableList(str) 0|vWwZ
q  
Dim strSql,strTmp 3YF]o9  
Dim objRs ~?+m=\  
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 =9MH
  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) m;1exa  
While Not objRs.Eof o*BI^4  
strA = objRs(uname) & . & objRs(tname) CrQ&-!Eh  
rmoEc]kt]  
If str=strA then ^Exq=oV  
strTmp = strTmp & & strA & e(N <Mf  
Else u`nn{C4D"  
strTmp = strTmp & & strA & Zul32]1r  
End if 7B :aJfxM  
objRs.MoveNext `W S  
Wend ,"R_ve  
Set objRs = Nothing 'F~SNIay  
getTableList = strTmp \{mJO>x  
End Function &<b7T$c  
% > =D$r5D/xd  
->{WO+6(  
+JVfnTd  
WF0>R^SpZ  
W5g!`
f  
All Tables : +:Zi(SuS]  
X;RI7{fW%X  
m<ruFxY  
mmK_xu~f28  
U<gw<[>f  
() Ro$XbU)  
~`fB\7M  
h:90K  
T ua @w+  
DZZt%n8J  
Z%Kj^ M  
  then 8r,%!70  
strSql = Select * from & tblname |th )Q  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) _xs
Ycw~)  
Response.Write vBXr[XoC  
for i=0 to rs.Fields.count-1 =?aB@&  
  Response.Write & rs.fields(i).name & __npX_4%S  
next #O ]IXo(5z  
Response.Write (k45k/PAP  
While Not Rs.Eof -6>rR{z  
  Response.Write r&RSQHa)  
  for i=0 to rs.fields.count -1 Yw `VL)v(y  
        Response.Write & Rs.Fields(i).Value &   @]4s&;   
  next nVD YAg'  
  Response.Write       ;& +75n  
  Rs.MoveNext -]%@,L^@  
Wend 1jVcL)szU  
Set Rs = Nothing j=4>In?x  
end if `-m7CT sA  
  % > EG6fC4rfC  
nX'.'3  
Bw[VK7  
&|eQLY #l  
HS9U.G>  
转自： ASP教程采集