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

0 then dX3>j{_  
Response.Write 错误 ： & err.description & ]V]o%onW  
response.end XF$C)id2p  
End if nW%c95E  
End Sub BPOWo8TqD^  
Sub EndDB() &]c9}Ic  
Set objOraDB = Nothing dCyQCA[  
Set objOraSession = Nothing wb9
zJAsc  
End Sub }w@nZG ^&  
Function getTableList(str) (6+0U1[Iz  
Dim strSql,strTmp tE>:kx0*3  
Dim objRs RGKJO_*J2  
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 +[7u>RJ  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) K^vMIoh  
While Not objRs.Eof =f p(hX"  
strA = objRs(uname) & . & objRs(tname) tw')2UGg  
DpR%s",Q  
If str=strA then Zj0&/S  
strTmp = strTmp & & strA & fjJIF%  
Else ,J#5Y.  
strTmp = strTmp & & strA & x[kdQj2[&  
End if 7I
 
objRs.MoveNext 8vP)qy8  
Wend /L8=8  
Set objRs = Nothing vT~a}  
getTableList = strTmp >y@w-,1he  
End Function 2gv(`NKYE  
% > vtT:c.~d  
&Gt9a-ne  
*\>2DUu\`  
, $=V  
,5*4%*n\  
All Tables : j?(QieBH  
\#}%E h b  
),Rj@52l  
*dl@)~i  
,O+7nByi[V  
() ] ge-b\  
`F@yZ4L3S  
\3/9lE|gh  
Pg36'aTe%j  
/P%:u0fX,  
xVPGl
U  
  then I|:j~EY  
strSql = Select * from & tblname aU!
UY(  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) @mazwr{B  
Response.Write -wt2ydzos  
for i=0 to rs.Fields.count-1 V]2z5u_q  
  Response.Write & rs.fields(i).name & kShniN  
next ublY!
Af
 
Response.Write YGO@X(ej,  
While Not Rs.Eof 5W48z%MN  
  Response.Write fYi!Z/Ck2  
  for i=0 to rs.fields.count -1 )qIK7;  
        Response.Write & Rs.Fields(i).Value &   hdB[H8Q  
  next #Grm-W9E  
  Response.Write       ]gW J,  
  Rs.MoveNext S7vE[VF5  
Wend one>vi`=  
Set Rs = Nothing GwULtRa/  
end if yiq#p"Hs  
  % > :KLD~k7yA(  
I
Y&a!  
;z>YwRV  
"gz;Q  
;~J~
g
#  
转自： ASP教程采集