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

0 then `X`|]mWj  
Response.Write 错误 ： & err.description & UB%;P-RD  
response.end `WQpGBS_z_  
End if P|aSbsk:I<  
End Sub FOcDBCrOe  
Sub EndDB() ;:
Kc{B.s  
Set objOraDB = Nothing q93V'[)F  
Set objOraSession = Nothing i{J[;rV9  
End Sub >>=v`}  
Function getTableList(str) z_z'3d.r7  
Dim strSql,strTmp a1weTn*  
Dim objRs R
Zj06|r8  
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 <)
@^TRS  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) _&xkj8O  
While Not objRs.Eof fAvB!e  
strA = objRs(uname) & . & objRs(tname) HlX7A1i/  
VAa;XVmB  
If str=strA then "M]`>eixL  
strTmp = strTmp & & strA & qv/chD`C  
Else x/92],.Mz  
strTmp = strTmp & & strA & 9AQ2FD  
End if Aq/wa6^%  
objRs.MoveNext WS$~o*Z8  
Wend m(WVxVB  
Set objRs = Nothing Y XxWu8  
getTableList = strTmp Zt4 r_7  
End Function HL!"U(_  
% > I]ol[ X0S  
;Y(~'KF  
8@I.\u)0  
+ V-&?E(  
yXc@i)9w3  
All Tables : 6K9-n
}z  
)v.\4Q4  
]JI A\|b6  
0j{K
Z
y  
h3A|nd>\  
() j;*= ^s  
aK9zw  
sY'd
N_F  
;WL0  
5d82Ms  
P99s  
  then m3_)UIJZ  
strSql = Select * from & tblname #DHeEE  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) niM(0p  
Response.Write t]pJt  
for i=0 to rs.Fields.count-1 :SpPT  
  Response.Write & rs.fields(i).name & !myF_cv}'  
next >Q^*h}IdW  
Response.Write \Ng[lN  
While Not Rs.Eof q
k(u5Z  
  Response.Write *(<3 oIRS  
  for i=0 to rs.fields.count -1 dtq]_HvTJ  
        Response.Write & Rs.Fields(i).Value &   lnntb3q  
  next ~


9+\  
  Response.Write       k+cHx799  
  Rs.MoveNext aeF^&F0  
Wend 7kidPAhY  
Set Rs = Nothing W-ECmw(
 
end if Bk~M^AK@~  
  % > .'N#qs_  
{eo?vA8SE  
G{oM2`c'#8  
p&;,$KDA  

cY*lsBo  
转自： ASP教程采集