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

0 then &"_5?7_N  
Response.Write 错误 ： & err.description & @.D1_A  
response.end L lNd97Z  
End if N*B
_or  
End Sub {/u}  
Sub EndDB() *_qLLJg  
Set objOraDB = Nothing mi`jY0e2  
Set objOraSession = Nothing K[j~htC{I"  
End Sub ^9jrI  
Function getTableList(str) _NwB7@ e  
Dim strSql,strTmp !e<D2><^  
Dim objRs KscugX*x  
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*%XtRio  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) l-mt{2  
While Not objRs.Eof BQOit.  
strA = objRs(uname) & . & objRs(tname) $\9M6k'  
)iU@P7W=  
If str=strA then Z<Rhn  
strTmp = strTmp & & strA & i 6DcLE  
Else <3SO1@
?  
strTmp = strTmp & & strA & ]-2Q0wTj  
End if $XZC8L#  
objRs.MoveNext W Z_yaG$U  
Wend }Dc7'GZ  
Set objRs = Nothing :(?F(Q^  
getTableList = strTmp Vw@?t(l>  
End Function wf,B/[,d  
% > uE;bNs'  
IEP^u `}  
n2p(@  
H,Y+n)5  
T {![a{  
All Tables : O8mmS!  
y~r5KB6w  
Wcf;ZX
  
wk@S+Q  
qhQeQ  
() JNx;/6'd,  
xIb"8,N  
^C|N  
@
5,Xr`]  
/>13?o#  
\Ctl(uj  
  then Z`jSpgWR  
strSql = Select * from & tblname sI OT6L^7  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) =[D '3JB  
Response.Write vIQu"J&fE  
for i=0 to rs.Fields.count-1 <l`xP)] X  
  Response.Write & rs.fields(i).name & NGs@z^&V  
next {kdS t1  
Response.Write u|T
g*B  
While Not Rs.Eof 6|@\\\l  
  Response.Write ej;\a:JL  
  for i=0 to rs.fields.count -1 [+2iwfD  
        Response.Write & Rs.Fields(i).Value &   j` 5K7~hv  
  next P:QSr8K  
  Response.Write       ?H0"*8C?Y  
  Rs.MoveNext c*N>7IF,  
Wend 0Q)m>oL.  
Set Rs = Nothing JO=kfWW  
end if :H8`z8=0f{  
  % > L Rn)  
(DTXc2)c  
C8bBOC(  
>&?k^nI}J  
n%&+yg  
转自： ASP教程采集