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

0 then Z6zV 9hn  
Response.Write 错误 ： & err.description & tLy:F*1i  
response.end ^xa, r#N:V  
End if O6hzOyNX@  
End Sub /xk7Z q  
Sub EndDB() RE;A0E_3  
Set objOraDB = Nothing "#iJ/vy  
Set objOraSession = Nothing _p*9LsN$L  
End Sub I1fpX |  
Function getTableList(str) j+_fHADq  
Dim strSql,strTmp BX?DI-o^h  
Dim objRs _iJ~O1qx,w  
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 8z1z<\  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) j9NF|  
While Not objRs.Eof b)I-do+  
strA = objRs(uname) & . & objRs(tname) 5*$yY-A  
O=2|'L'h!  
If str=strA then I_<VGUk  
strTmp = strTmp & & strA & 6j(/uF4!#  
Else vUpAW[[  
strTmp = strTmp & & strA & g0grfGo2p  
End if m;dwt1'Zw  
objRs.MoveNext >R F|Q  
Wend 2$Mnwxfk  
Set objRs = Nothing
.gJ2P?  
getTableList = strTmp oN1D&*  
End Function Wi&v?nm  
% > XR+ SjCA  
E@SFK=`  
=K`.$R  
\1<'XVS  
L0wT:x*  
All Tables : ^o3,YH  
eq6O6-  
DC8#b`j  
~*iF`T6  
e#Cv*i_<  
() zgAU5cw  
(GmBv  
^j\LB23  
}emUpju<C  
7_\sx7h{3  
z)3TB&;  
  then 1q7&WG  
strSql = Select * from & tblname 9[.HWe,  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) { ptdOrN  
Response.Write 1b9S";ct0  
for i=0 to rs.Fields.count-1 ^+m`mcsE  
  Response.Write & rs.fields(i).name & LE8<JMB  
next *kLFs|U  
Response.Write /L^g. ~  
While Not Rs.Eof +Ryj82;59z  
  Response.Write G WIsT\J  
  for i=0 to rs.fields.count -1 ;b{#$#`=  
        Response.Write & Rs.Fields(i).Value &   ]pR?/3  
  next arL>{mj  
  Response.Write       7H3v[ f^Q  
  Rs.MoveNext 59Pc:Gg;  
Wend R0-0  
Set Rs = Nothing bB_LL  
end if
Jp=qPG|  
  % > ?J:w,,4m  
<[db)r~c  
vywB{%p  
ZexC3LD"  
s/"bH3Ob9v  
转自： ASP教程采集