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

0 then 8NxUx+]  
Response.Write 错误 ： & err.description & Y'2-yB  
response.end kHGeCJe\{  
End if O(WEgz  
End Sub mn(/E/  
Sub EndDB() FLK"|*A  
Set objOraDB = Nothing vNPfUEnA  
Set objOraSession = Nothing 4+-5,t7  
End Sub v*smI7aH  
Function getTableList(str) "IOC[#&G  
Dim strSql,strTmp 8?A@/  
Dim objRs o@Scz!"g  
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 U
.Pa7tn  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) D xe-XKNc.  
While Not objRs.Eof -|6V}wHg~  
strA = objRs(uname) & . & objRs(tname) KBd7|,j  
0&.LBv8  
If str=strA then zoR,RBU6  
strTmp = strTmp & & strA & $xLEA\s  
Else e',hC0&S  
strTmp = strTmp & & strA & F19;RaP+  
End if (6e!09P&  
objRs.MoveNext 9qnuR'BDu  
Wend Tavtr9L0XY  
Set objRs = Nothing TlM'g6SQS  
getTableList = strTmp &"sX^6t  
End Function dko[  
% > ZYrKG+fkl  
XCW+ pUX  
( P  
Gs^(YG
tU  
6{cybD`Ef&  
All Tables : Bjurmo  
X@i+&Nv"<  
rat=)n)"t  
[[#xES21F  
GTT5<diw  
() m};~JMo]  
s.<olxXRW  
I/u
'bDq  
#Y/97_2 xa  
2qt=jz\s  
qPp1:a"   
  then 0Ei\VVK>  
strSql = Select * from & tblname 7yo|ie@S  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 1-4   
Response.Write e_YW~z=6t  
for i=0 to rs.Fields.count-1 ]R97n|s_  
  Response.Write & rs.fields(i).name & =~,$V<+c  
next bv.EM  
Response.Write Rh!L'?C  
While Not Rs.Eof emGV]A%nss  
  Response.Write ;:v]NZtc  
  for i=0 to rs.fields.count -1 Q,[rrG;?@  
        Response.Write & Rs.Fields(i).Value &   }~7H2d);-  
  next R tXF  
  Response.Write       .q AQPL  
  Rs.MoveNext >:3xi{  
Wend e-nWD  
Set Rs = Nothing Rh wt<  
end if d)`nxnbMeM  
  % > \9dz&H  
trID#DT~  
n,CD4Nv  
l=Lm
r  
-0=}|$H.  
转自： ASP教程采集