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

0 then j9xXKa5  
Response.Write 错误 ： & err.description & ;3UvkN  
response.end 3;y_mg  
End if Wc;+2Hl[@  
End Sub Cef7+fa  
Sub EndDB() NI\H \#bJ  
Set objOraDB = Nothing h{/ve`F>@  
Set objOraSession = Nothing x,1=D~L}  
End Sub A&l7d0Z^j5  
Function getTableList(str) \n0gTwiO%  
Dim strSql,strTmp B01^oYM}  
Dim objRs d_T<5Hin  
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 f)^t')  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) "Ot{^_e  
While Not objRs.Eof MPvWCPB  
strA = objRs(uname) & . & objRs(tname)
qGa<@
b  
KjYDFrR4  
If str=strA then ,?y7,nb  
strTmp = strTmp & & strA & &<h?''nCy  
Else R3G@G  
strTmp = strTmp & & strA & {^wdJZ~QLK  
End if rfTe  
objRs.MoveNext IJIQ" s  
Wend S'@=3)  
Set objRs = Nothing ND*]gM  
getTableList = strTmp BD'NuI  
End Function *w 21U!  
% > !KDr`CV&  
BWEv1' v  
sVoR?peQ  
:;
T
YL[  
]xrD<  
All Tables : " $=qGHA~  
SG`)PW?  
#eLN1q&Z  
OPiaG!3<  
M.[wKGX(  
() K;C_Z/<%  
P;c0L;/  
(H-cDsh;c  
{]["6V6W  
*(nJX.7  
5H!%0LrJg=  
  then WRM$DA  
strSql = Select * from & tblname \n(
ROf^'  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ai^t
= s  
Response.Write B^m!t7/,  
for i=0 to rs.Fields.count-1 M[z3 f  
  Response.Write & rs.fields(i).name & xgs@gw7!n0  
next yjd(UWE  
Response.Write DZP*x  
While Not Rs.Eof 1RA }aX  
  Response.Write <Wf0QO,  
  for i=0 to rs.fields.count -1 )JX$/- RD-  
        Response.Write & Rs.Fields(i).Value &   hr1$1&p  
  next .qinR6=  
  Response.Write       9A<0zt  
  Rs.MoveNext mt^`1ekoY  
Wend \!4|tBKVY  
Set Rs = Nothing ;q&0,B  
end if @T/qd>T o  
  % > GEfY^!F+  
U2UyN9:6F  
:iEAUM  
9'X@@6b*'  
_XWnS9  
转自： ASP教程采集