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

0 then c|k(_#\B  
Response.Write 错误 ： & err.description & S {+Z.P  
response.end el2<W=^M  
End if k#/cdK!K  
End Sub /m^G 99N  
Sub EndDB() HvZSkq^
  
Set objOraDB = Nothing |-cXb.M[  
Set objOraSession = Nothing 1IT(5Ml
eb  
End Sub 7j#Ix$Ur  
Function getTableList(str) bkpN`+c  
Dim strSql,strTmp <{YzmN\Z  
Dim objRs 23'{{@30  
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 %z.d;[Hs  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) DqmKDU  
While Not objRs.Eof P{J9#.Zq&s  
strA = objRs(uname) & . & objRs(tname) 6V6Mo}QF s  
+o0yx U 7t  
If str=strA then V_ntS&2o  
strTmp = strTmp & & strA & =@h
Cc  
Else PJ<qqA`!  
strTmp = strTmp & & strA & }1CvbB%,A  
End if 1M55!b  
objRs.MoveNext |(,{&\  
Wend  =Uo*-EH  
Set objRs = Nothing d{B0a1P  
getTableList = strTmp bcxR7<T,"9  
End Function ,I]]52+?4  
% > {%&04yq+  

S<i.O  
2#/sIu-L  
4+p1`  
Yn?Xo_Y  
All Tables : U.I7p  
376z~  
B|M@o^Tf  
0~DsA Ua  
[T/S/@IT  
() 0=40}n&`  
pbwOma2  
7*WO9R/  
&h7 n>q  
b+
f '  
q& KNK
 
  then W?ghG  
strSql = Select * from & tblname O9ro{ k  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Pj BBXI1i  
Response.Write m0^~VK|  
for i=0 to rs.Fields.count-1 C58B(Ndo  
  Response.Write & rs.fields(i).name & 9U )9u["DH  
next T@zp'6\H  
Response.Write )!G
10  
While Not Rs.Eof z?UEn#E2
 
  Response.Write Q{miI N  
  for i=0 to rs.fields.count -1 \.P#QVuQ  
        Response.Write & Rs.Fields(i).Value &   :w4N*lV-  
  next uI9+@oV  
  Response.Write       hew"p(`  
  Rs.MoveNext z

fy(j  
Wend 9d=\BBNZ  
Set Rs = Nothing G_ ~qk/7mF  
end if ~u[1Vz4#3  
  % > j|p=JrCJ  
['iEw!  
x[+bLlb  
i2[8^o`_  
,&* BhUC  
转自： ASP教程采集