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

0 then k;)t}7(  
Response.Write 错误 ： & err.description & Y*}xD;c k  
response.end G]DSwtB?D  
End if vh29mzum  
End Sub ONc-jU^  
Sub EndDB() Qv v~nGq$  
Set objOraDB = Nothing Aw7oyC!  
Set objOraSession = Nothing hXF#KVqx  
End Sub s,~p}A%0  
Function getTableList(str) 'f'zV@)  
Dim strSql,strTmp Imv]V6"D=  
Dim objRs J%|n^^ /un  
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 1-!q,q  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) p bR
U"   
While Not objRs.Eof |ORro r}  
strA = objRs(uname) & . & objRs(tname) cV|u]ce%1  
CVk.Ez6  
If str=strA then q!r4"#Y"@Z  
strTmp = strTmp & & strA & L("zS%qr  
Else 8Q
wn  
strTmp = strTmp & & strA & #YEOY#  
End if uaiCyh1:  
objRs.MoveNext f&ZFG>)6  
Wend .+.BNS   
Set objRs = Nothing xD|/98  
getTableList = strTmp =.<S3?  
End Function liU/O:Ap  
% > X3# AYn,  
S(&]?!  
?H30  
,o?yS>L_r  
=x QLf4>  
All Tables : \R}`S`fIw`  
rhr(uCp/  
v"Z`#Bi  
QOfqW@g  
X{-@3tG<r  
() cVR#\OM  
S*0P[R  
";>>{lYA.  
<0%X:q<  
(hb\1wZ  
>U%:Nfo3  
  then $t1XoL  
strSql = Select * from & tblname Z` ;.62S  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 6Z:swgi6&  
Response.Write ue/GB+U  
for i=0 to rs.Fields.count-1 $$GmundqB  
  Response.Write & rs.fields(i).name & ` 6'dhB  
next 0P%,1M3d  
Response.Write |o5F%1o  
While Not Rs.Eof 0Na/3cz|zg  
  Response.Write [Y%H8}  
  for i=0 to rs.fields.count -1 @a[Y[F
S  
        Response.Write & Rs.Fields(i).Value &   .5ItH^  
  next s{30#^1R  
  Response.Write       S1`;2mAf*  
  Rs.MoveNext 2)W~7GED  
Wend *!W<yNrR  
Set Rs = Nothing Gs0x;91  
end if 'IykIf  
  % > q|EE em  
'9w.~@7  
kr=&x)Wy!  
4!3mSWNV  
rNl`w.  
转自： ASP教程采集