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

0 then [D|Uwq  
Response.Write 错误 ： & err.description & uAYDX<Ja9  
response.end ow (YgM>t  
End if lnl>!z  
End Sub 8}oe))b  
Sub EndDB() -{L 7%j|R  
Set objOraDB = Nothing r8y,$Mv<)0  
Set objOraSession = Nothing 'h&>K,U?5  
End Sub f 4K)Z e  
Function getTableList(str) %j2:W\g:  
Dim strSql,strTmp MYJDfI  
Dim objRs KxmB$x5-=8  
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 l;z+E_sQ  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) )@B!  
While Not objRs.Eof  CU\r I  
strA = objRs(uname) & . & objRs(tname) !x-9A  
@(/$;I,  
If str=strA then Ei,
dO;&  
strTmp = strTmp & & strA & =*(_sW6;  
Else N^`S'FVA  
strTmp = strTmp & & strA & e'|P^G>g  
End if FzsW^u+  
objRs.MoveNext h/aG."U  
Wend G^P9_Sw]d3  
Set objRs = Nothing , Z1 &MuV  
getTableList = strTmp rI
v#YqT  
End Function F9_X^#%L  
% > z5^Se!`5  
suX^"Io%!  
[mUC7Kpi  
q 3,p=ijJ  
7'.6/U  
All Tables : #)DDQ?D  
ayf;'1  
q|B.@Ng.  
$f"Ce,f  
_}H`(d%N  
() <aMihT)dd  
's8LrO(=  
wXeJjE%j:3  
=6'D/|
3  
Hg]iZ,8?  
kzKQ5i $G  
  then 
wuqB['3  
strSql = Select * from & tblname dm83YCdL  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) jA3Ir;a  
Response.Write <UwA5X`0e.  
for i=0 to rs.Fields.count-1 Qmv8T ^+  
  Response.Write & rs.fields(i).name & :$^sI"hO  
next A{hST~
s  
Response.Write }N3Ur~
X\  
While Not Rs.Eof _rUsb4r  
  Response.Write \$8p8MP<&D  
  for i=0 to rs.fields.count -1 "X1{*  
        Response.Write & Rs.Fields(i).Value &   /h!iLun7I  
  next a^L'-(  
  Response.Write       #Nv0d|0\  
  Rs.MoveNext @:u2{>Yl  
Wend t-hN4WKH_A  
Set Rs = Nothing !\Q/~p'jS  
end if _l]rt  
  % > W<H^V"^  
}?d l.=eq  
1z8AK"8  
y?s#pSX;N  
l0wvWv*k  
转自： ASP教程采集