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

0 then NdMb)l)m  
Response.Write 错误 ： & err.description & `Aw^H!  
response.end . $BUw  
End if xF;kTBRi  
End Sub cAY:AtD  
Sub EndDB() ad*m%9Y1Q  
Set objOraDB = Nothing wSa)*]%  
Set objOraSession = Nothing &dM. d!  
End Sub A#.edVj.g4  
Function getTableList(str) ,K)_OVB  
Dim strSql,strTmp w_.F' E  
Dim objRs OGK}EI  
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 ,]9P{k]O  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) pT=JP> nd^  
While Not objRs.Eof NW]Lj>0Y  
strA = objRs(uname) & . & objRs(tname) w,#>G07D  
S2HcG 1J  
If str=strA then )c8rz
[i  
strTmp = strTmp & & strA & :r{<zd>;  
Else vB.E3r=  
strTmp = strTmp & & strA & ^2Fei.?T.  
End if CyS$|E  
objRs.MoveNext &]`(v}`]  
Wend T|nDTezr  
Set objRs = Nothing z@!`:'ak  
getTableList = strTmp "W6uV!  
End Function [<n2Uz7MP  
% > (}Z@R#njH  
/rWd=~[MO  
ojcA<60 '  
8aK)#tNWN  
A P)L:7w'e  
All Tables : Bt@^+vH ~  
Q# ~Q=T'<  
&dqLP95  
B Wk/DVue  
zr-*$1eu  
() 2BQ j  
tr<Nm6!  
Y~c|hfL  
=bfJ^]R  
B^4&-z2|  
E{XH?_xo  
  then kZR8a(4D  
strSql = Select * from & tblname HVi'eNgo  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) +ieY:H[  
Response.Write
@:+8?qcP  
for i=0 to rs.Fields.count-1 6n,i0W  
  Response.Write & rs.fields(i).name & +O8%Hm  
next ff]6aR/ UQ  
Response.Write !hJ+Lp_  
While Not Rs.Eof 5eLtCsHz  
  Response.Write $Q&lSVQ  
  for i=0 to rs.fields.count -1 K'L^;z6  
        Response.Write & Rs.Fields(i).Value &   T1ut"
Zu  
  next KI)M JG:t  
  Response.Write       ) pzy  
  Rs.MoveNext Fq0i`~L~  
Wend '*K:  lx  
Set Rs = Nothing }tRm]w  
end if 2L3)#22m*  
  % > J?V?R  
``,fodA8  
r(:5kC8K  
wo4;n9@I  
A 9(

x  
转自： ASP教程采集