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

0 then =A!@6Nw  
Response.Write 错误 ： & err.description & OeS\7  
response.end bqnNLs<N  
End if "hzB9*"t  
End Sub #w\~&
0  
Sub EndDB() t\%HX.8[;%  
Set objOraDB = Nothing S'_-G;g.  
Set objOraSession = Nothing 7:)n$,31FW  
End Sub s3R(vd  
Function getTableList(str) p%*%n3bw  
Dim strSql,strTmp A<qTg`gA  
Dim objRs xK6n0] A  
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 I~Zh@d%  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) w6{TE(]zp  
While Not objRs.Eof Y[$!`);Ye  
strA = objRs(uname) & . & objRs(tname) \8?Tdx=  
a6WI170^1  
If str=strA then /iJ4{p  
strTmp = strTmp & & strA & Nz],IG.  
Else RWgNo#<  
strTmp = strTmp & & strA & JQ6zVS2SSS  
End if )`A3M)  
objRs.MoveNext :=/>Vbd: )  
Wend T QSzx%i2  
Set objRs = Nothing [ji#U s:h  
getTableList = strTmp o8-^cP1  
End Function LS88.w\=S@  
% > Zy(W^~NT  
fv
9V7  
Te}8!_ohyC  
fDvl/|62{  
EodQ*{l  
All Tables : '{V0M<O  
?Vf o+a,  
N=QfP  
Y!gCMLL  
glF; eT  
() 8F&=a,ps[  
qIIv6''5@  
'4|-9M3f  
}9W4"e2)  
?l^1 *Q,  
zN"J}r:  
  then P)MDPI+~  
strSql = Select * from & tblname (KF=On;=Y  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) twlk-2yT!  
Response.Write ;o0&`b?  
for i=0 to rs.Fields.count-1 oWC@w  
  Response.Write & rs.fields(i).name & D(H>R
&b!  
next &qr;IL7'  
Response.Write ML8<4o  
While Not Rs.Eof H s"HID  
  Response.Write )>`G  
  for i=0 to rs.fields.count -1 kMt 8/E`  
        Response.Write & Rs.Fields(i).Value &   bj"J'  
  next :kf`?u  
  Response.Write       `R=HKtr?  
  Rs.MoveNext |]ZYa.+:  
Wend R5 9S@MsuD  
Set Rs = Nothing 30.@g[~  
end if By9*1H2R  
  % > -QmO1U  
Q&eQQ6b^Ih  
FWHNj.r  
A3S<..g2  
~;&m*2 |V  
转自： ASP教程采集