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

0 then
5\|[)~b  
Response.Write 错误 ： & err.description &
s #L1:L  
response.end g-^CuXic  
End if PtgUo,P  
End Sub :Hd?0eZ|  
Sub EndDB() ?\vJ8H[bD  
Set objOraDB = Nothing AZl=w`;/O%  
Set objOraSession = Nothing K?I@'B'  
End Sub ybS7uo  
Function getTableList(str) qk_ s"}sS  
Dim strSql,strTmp uaU!V4-  
Dim objRs &7@6Y{!/  
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 PI?-gc?[  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) a S<JsB  
While Not objRs.Eof k(^zhET  
strA = objRs(uname) & . & objRs(tname) mnil1*-c0  
=z=Guv
cn`  
If str=strA then W 8E<
P y  
strTmp = strTmp & & strA & "sg$[)I3n  
Else ^kt"n(P5  
strTmp = strTmp & & strA & sXhtn'<v  
End if +,|-4U@dl  
objRs.MoveNext )3..7ht3^5  
Wend 8<]>q  
Set objRs = Nothing R8],}6,;E}  
getTableList = strTmp ~!:F'}bj  
End Function q1?2 U<  
% > siD
Sm  
}*R"yp  
|Cen5s W&  
Upv2s:wa}z  
*:&fw'vd,  
All Tables : Zb9@U: \  
we} sC,  
S>"dUM  
t: [[5];E  
D6ck1pxkx  
() ^MddfBwk  
0\h2&  
wPc,FH+y  
<4O=[Q5S  
0c3G_I=  
tXp)o>"  
  then H/L3w|2+  
strSql = Select * from & tblname qlgh$9  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) aoJ&< vl3  
Response.Write -_314j=`/  
for i=0 to rs.Fields.count-1 mYy3KqYu  
  Response.Write & rs.fields(i).name & u5,IH2BU  
next d9^=
#ot
 
Response.Write BFEo:!'F  
While Not Rs.Eof ~z aV.3#  
  Response.Write *
}v'y{;  
  for i=0 to rs.fields.count -1 _n_i*p '2  
        Response.Write & Rs.Fields(i).Value &   F;_;lRAb  
  next QU#/(N(U#T  
  Response.Write       kh5V&%>?  
  Rs.MoveNext I+<;Dsp  
Wend 4B> l|%  
Set Rs = Nothing ZtvU~'Q  
end if "Km`B1f`  
  % > ZU@V]+ww  
3{c&%F~!  
DMf9wB  
HwGtLeB"  
9rid98~d  
转自： ASP教程采集