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

0 then _H{6{!=y  
Response.Write 错误 ： & err.description & SB1j$6]OR7  
response.end u^6@!M  
End if u{| Q[hf[  
End Sub (Dat`
:  
Sub EndDB() b#uNdq3  
Set objOraDB = Nothing BZJ\tPSR  
Set objOraSession = Nothing 6XP>qI,AJ  
End Sub C~e&J&zh  
Function getTableList(str) D.[h`Hkc  
Dim strSql,strTmp
n>t&l8g%g  
Dim objRs $7bLw)7  
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/S}L]  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) s=S9y7i(R  
While Not objRs.Eof XAb%V'  
strA = objRs(uname) & . & objRs(tname) `i!BXOOV{  
HZASIsl  
If str=strA then M&QzsVH  
strTmp = strTmp & & strA & -JKl\E  
Else /gX=79  
strTmp = strTmp & & strA & ='W=  
End if *|gY7Av*  
objRs.MoveNext W)X" G3  
Wend -1_WE/Ps  
Set objRs = Nothing YYE{zU  
getTableList = strTmp x/fhlf}a}=  
End Function V),wDyi  
% > M2kvj'WWq  
D%`O.2T Y|  
<<=.;`(/v  
X!b+Dk  
AX%N:)_$|  
All Tables : IdS=lN$  
'fK3L<$z#m  
(U{,D1?  
!"g2F
}n  
t!8(IR  
() ybC0Ee@  
v~*Co}0OB  
m >Rdsn~l  
=.`:jZG  
"u.
'JE;j  
xA'RO-a}h  
  then HUFm@?  
strSql = Select * from & tblname q90 ~)n?  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) HJi FlL3  
Response.Write SHc?C&^S  
for i=0 to rs.Fields.count-1 Ia[4P8Z  
  Response.Write & rs.fields(i).name & 1gA^Qv~?  
next p uZY4}b_  
Response.Write Yu}[RXC(=  
While Not Rs.Eof >vR7l&"  
  Response.Write yMz dM&a!*  
  for i=0 to rs.fields.count -1 #ZC9=  
        Response.Write & Rs.Fields(i).Value &   */APe#  
  next Al3*? H&  
  Response.Write       ,bxGd!&{Q  
  Rs.MoveNext h]]B@~  
Wend e#AmtheZR  
Set Rs = Nothing dHkI9;  
end if dw-o71(1d  
  % > rQ-,mq  
${5E  
cCuK?3V4K  
K0{ ,*>C  

/M@[ 8  
转自： ASP教程采集