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

0 then n@hf{hA[a  
Response.Write 错误 ： & err.description & Ca&p;K9FR  
response.end S%+$  
End if YTQom!O  
End Sub 1X5*V!u  
Sub EndDB() l> Mth+,b  
Set objOraDB = Nothing (Wj2%*NT  
Set objOraSession = Nothing m]Sv>|  
End Sub R5y+bMZ  
Function getTableList(str) qrWeV8u
r+  
Dim strSql,strTmp 4f}:)M$5  
Dim objRs d )}@0Q  
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 *=6,}rX"I  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) /7bIE!Cn  
While Not objRs.Eof fP6]zy^*  
strA = objRs(uname) & . & objRs(tname) &oA p[]  
,>DaS(  
If str=strA then SM<kR1bo  
strTmp = strTmp & & strA & qtx5N)J6  
Else C< :F<[H  
strTmp = strTmp & & strA & U%Igj:%?;`  
End if k:+Bex$g  
objRs.MoveNext #ny&bJj  
Wend np>RxiB^  
Set objRs = Nothing 5i 6*$#OM_  
getTableList = strTmp K*ZH<@o4  
End Function LX i?FQnLu  
% > )2U#<v^
 
@iW^OVpp<8  
EmaVd+Sw  
;+) M~2 =  
4. &t  
All Tables : c:a5pd7T  
{29x5J  
Xv`c@n)  
!PaDq+fB  
2EHe
Q|#  
() oic
}Go  
p|W <xFk  
D92#&,KD  
L4)@lmd3  
5
]Wkk~a  
+2}aCoL\  
  then 2MNAY%iT  
strSql = Select * from & tblname 0(uNFyIG  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) xk1pZQ8c  
Response.Write DwQaj"1<%  
for i=0 to rs.Fields.count-1 vd4}b>  
  Response.Write & rs.fields(i).name & "S">#.L  
next J!%c
HqR  
Response.Write v{R:F  
While Not Rs.Eof jh3LD6|s}  
  Response.Write 0@ -
3U{Q  
  for i=0 to rs.fields.count -1 p'`SYEY@Z  
        Response.Write & Rs.Fields(i).Value &   P5:X7[  
  next `OY_v=}  
  Response.Write       hb6UyN  
  Rs.MoveNext H
xC_nh  
Wend Vd8BQB,Q  
Set Rs = Nothing 8a\ Pjk  
end if 8:BPXdiK  
  % > VW7 ?{EL7  
)/'y'd<r  
e[3r
z%'Q  
(Ea)`'/  
s}~'o!}W  
转自： ASP教程采集