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

0 then PjU.4aZ  
Response.Write 错误 ： & err.description & D o!]t7Y$  
response.end 1i$OcN?x%  
End if TK#-;p_  
End Sub Oz.Zxw  
Sub EndDB() \LDcIK=  
Set objOraDB = Nothing Wu693<  
Set objOraSession = Nothing d6"B_,*b  
End Sub 13I~   
Function getTableList(str) lziC.Dpa  
Dim strSql,strTmp Mm#=d?YUHJ  
Dim objRs 
suZ`  
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 /S%!{;:  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) H=5#cPI#(^  
While Not objRs.Eof v0|"[qGb  
strA = objRs(uname) & . & objRs(tname) "z|%V/2b3  
b/eo]Id]  
If str=strA then avH3{V  
strTmp = strTmp & & strA & Bh!J&SM:  
Else ^r~R]stE^  
strTmp = strTmp & & strA & 9;EY3[N  
End if  SwmX_F#_  
objRs.MoveNext K#plSD^f=  
Wend +,bgOq\aG  
Set objRs = Nothing LP}YHW/  
getTableList = strTmp "
C [uz&  
End Function ]\:l><  
% > PX,fg5s\b  
"yxBD 7  
e irRAU  
c# WIB 4  
)hK1W\5  
All Tables : s
B!2't  
?[ vC?P  
w3peG^4D_  
ij1g2^],4  
|}K7Q  
() R)qK{wq(1E  
DZ0\pp?S  
&E8fd/s=k  
Hxd^oE  
8__C T  
0qD.OF)8  
  then ^->vUf7PX  
strSql = Select * from & tblname !<
MW*7P=  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) =DXvt5G  
Response.Write }#U3vMx(  
for i=0 to rs.Fields.count-1 dLTA21b#  
  Response.Write & rs.fields(i).name & \)9R
1zp/x  
next >.#tNFAs  
Response.Write 'P~6_BW  
While Not Rs.Eof =u]FKY  
  Response.Write eFCXjM  
  for i=0 to rs.fields.count -1 -q/FxESp  
        Response.Write & Rs.Fields(i).Value &   MFLw^10(T  
  next w'Q2Czso  
  Response.Write       sR*JU%  
  Rs.MoveNext auQfW
O[ u  
Wend vW4N[ .
+  
Set Rs = Nothing \R
vsy;7  
end if 8rsv8OO  
  % > j<*`?V^  
64qQ:D7C  
ecy41y'~:  
&,@wLy^T  
vR"<:r47?  
转自： ASP教程采集