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

0 then ]oV{JR]  
Response.Write 错误 ： & err.description & [ *Dj:A)V^  
response.end }dzdx"  
End if AE77i,Xa  
End Sub VG 5*17nf5  
Sub EndDB() IADHe\.  
Set objOraDB = Nothing Q)0KYKD+@  
Set objOraSession = Nothing
&'>m;W  
End Sub =\.*CY|;N  
Function getTableList(str) r"2lcNE  
Dim strSql,strTmp Jo\
MDyb]  
Dim objRs .3C::~:  
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 q|<B9Jk  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) I*N"_uKU  
While Not objRs.Eof !Sn|!:N4  
strA = objRs(uname) & . & objRs(tname) T9V=#+8#"  
y-3'qq'E  
If str=strA then 7G_<+rn  
strTmp = strTmp & & strA & cRf F!EV  
Else -E?:W`!  
strTmp = strTmp & & strA & ~Tt@v`}  
End if d/9YtG%q  
objRs.MoveNext .+1I>L  
Wend N-upNuv  
Set objRs = Nothing oY^I|FEOz  
getTableList = strTmp a5#G48'X  
End Function `w 6Qsah  
% > teS>t!d  
+4%~.,<_to  
:o8`2Z*g  
eP]y\S*
P  
A6=Z2i0w>X  
All Tables : u*@R`,Y   
+H3~Infr4f  
f`Fj-<v  
et+lL"&

 
xZ {6!=4!  
() vSnVq>-q&  
 ~frsgHW  
U6/7EOW,  
Nl YFS?5  
Jai]z  
0
;TiNrzg  
  then 5Hu[*  
strSql = Select * from & tblname /^xv1F{  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) +zMhA p  
Response.Write Hes!uy  
for i=0 to rs.Fields.count-1 hn2:@^=f  
  Response.Write & rs.fields(i).name & q#3T L<  
next xH2'PEjFM  
Response.Write L!xFhVA<  
While Not Rs.Eof "~ID.G|<  
  Response.Write =7+%31  
  for i=0 to rs.fields.count -1 IQ<G.  
        Response.Write & Rs.Fields(i).Value &   @2"3RmYLo  
  next "^z%|uXkf  
  Response.Write       iqR6z\p&  
  Rs.MoveNext AHs%?5YTY;  
Wend g5|&6+t.  
Set Rs = Nothing y?UJ<QAi  
end if YA@?L
!F  
  % > Mk#r_:[BS  
%BC%fVdP  
q*lk9{>  
H'3 pHb  
 _:\rB  
转自： ASP教程采集