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

0 then muO;g&  
Response.Write 错误 ： & err.description & p$<){,R  
response.end {_ZbPPh;M"  
End if nFwdW@E9  
End Sub !k#N] 9D3  
Sub EndDB() |@hyGu-H+  
Set objOraDB = Nothing @Y#TWt#  
Set objOraSession = Nothing X"%eRW&qu/  
End Sub ^b*ub(5Ot  
Function getTableList(str) am/D$
(l1  
Dim strSql,strTmp 2SKtdiY  
Dim objRs eGo$F2C6E  
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 4ZB]n,pfT  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) NU[Wj uLG  
While Not objRs.Eof >uE<-klv  
strA = objRs(uname) & . & objRs(tname) ~L.5;8a3Pe  
ZQmg;L&7  
If str=strA then 7*4i0{]  
strTmp = strTmp & & strA & 5,R<9FjW  
Else x(rl|o  
strTmp = strTmp & & strA & x_= 3!)  
End if A64c,Uv  
objRs.MoveNext |xpOU*k  
Wend ,u14R]  
Set objRs = Nothing uC2 5pH"  
getTableList = strTmp s*vtCdrE.  
End Function .C1g Dry]  
% > ")w~pZE&+  
AS lmW@/9v  
~)5k%?.  
q2M%AvR  
N]G`]  
All Tables : OO;I^`Yn  
|2I p*  
kZ!&3G9>-  
}mS+%w"j  
d/E0opv  
() )7WLbj!M  
cN)noGkp  
7s;*vd>  
$-
gRD|oY  
V
C^QCuSq  
RMAbu*D0  
  then )(yKm/50  
strSql = Select * from & tblname z@2nre  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) v&`n}lS  
Response.Write r6kQMFA  
for i=0 to rs.Fields.count-1 &p=(0$0&-  
  Response.Write & rs.fields(i).name & +lJD7=%K]Z  
next DMT2~mh  
Response.Write 5gwEr170  
While Not Rs.Eof ShOB"
J-  
  Response.Write %i&\X[
 
  for i=0 to rs.fields.count -1 P}-S[[b73s  
        Response.Write & Rs.Fields(i).Value &   :Y)G-:S+  
  next T"E%;'(cp)  
  Response.Write       3.%jet1  
  Rs.MoveNext PH!rWR  
Wend wT:mfS09N  
Set Rs = Nothing yI's=Iu`  
end if l+?sR<e?!  
  % > 6Q`7>l.|?  
9A}n
Z1Y  
kFi=^#J{  
8+~'T|  
['I5(M@  
转自： ASP教程采集