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

0 then .Oh$sma1  
Response.Write 错误 ： & err.description & h+@t8Q;gGw  
response.end U+ =q_ <  
End if a\E]ueVD2j  
End Sub ]du~V?N   
Sub EndDB() Qafg/JU  
Set objOraDB = Nothing owhht98y(  
Set objOraSession = Nothing >0oc=9H8  
End Sub ZT#G
:a  
Function getTableList(str) 1S:H!h3  
Dim strSql,strTmp `( Gk_VAa  
Dim objRs yK^k*)2N  
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 z16++LKmM  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) [f}1w
Z*  
While Not objRs.Eof
04t_  
strA = objRs(uname) & . & objRs(tname) [&:oS35O  
S\m]ze  
If str=strA then D=Y HJ>-wB  
strTmp = strTmp & & strA & jBbc$|O4SY  
Else \ PqV|
 
strTmp = strTmp & & strA & B?'ti{p A9  
End if RJSgts "F  
objRs.MoveNext #Uu"olX7  
Wend @gOgs  
Set objRs = Nothing ;r']"JmF,  
getTableList = strTmp [>86i  
End Function {w++)N2sh  
% > RP9||PFS~~  
|IvX7%*]~  
F/Xhm91^  
&Is%I<'o  
vI@8DWs  
All Tables : we9AB_y  
JiR|+6"7  
l?;S>s*\?  
rIb{=';  
:.,I4>b2  
() ghl9gFFj  
.^23qCs  
AdNsY/Y(  
@[Th{HTc.G  
<PxEl4  
QZfnoKz  
  then h! <8=V(  
strSql = Select * from & tblname <#-ERQw  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) )j]RFt  
Response.Write Lnzhs;7L  
for i=0 to rs.Fields.count-1 ;Mz]uk  
  Response.Write & rs.fields(i).name & 7Fp2=j  
next ,J
~dER\%  
Response.Write .\ZxwD|  
While Not Rs.Eof :lAR;[WFS  
  Response.Write (hoqLL\}k  
  for i=0 to rs.fields.count -1 xjYFTb}!  
        Response.Write & Rs.Fields(i).Value &   ;z68`P-  
  next =3'wHl  
  Response.Write       _u0dt) $  
  Rs.MoveNext 7o<RvM  
Wend ;/
.ZYTD  
Set Rs = Nothing ~U|te_l  
end if @WmB0cc_  
  % > JpDkf$kM  
! [X<
>  
X {$gdz8S9  
1X5\VY>S`h  
cQny)2k*x  
转自： ASP教程采集