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

0 then 0c4H2RW  
Response.Write 错误 ： & err.description & )s6pOxWx  
response.end c>~"Z-VtX  
End if WjxOM\?#  
End Sub l~,5)*T  
Sub EndDB() $LLkYOwI  
Set objOraDB = Nothing 0 ;$[  
Set objOraSession = Nothing <6`_Xr7)  
End Sub ?yfk d:WD  
Function getTableList(str) &g R+D  
Dim strSql,strTmp DVxW2J  
Dim objRs (tV/.x*G  
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 q3\ YL?  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) <Q'J=;vV  
While Not objRs.Eof S[rz=[7{  
strA = objRs(uname) & . & objRs(tname) NF <|3|  
8 /1 sy.
R  
If str=strA then Zr,:i MPZ  
strTmp = strTmp & & strA & Al="ss&2  
Else x@3Ix,b'  
strTmp = strTmp & & strA & ec/1Z8}p  
End if =$6z1] ;3  
objRs.MoveNext \Tf845  
Wend @K; 4
'b~  
Set objRs = Nothing &*\wr}a!  
getTableList = strTmp p\66`\\l  
End Function sf4NKe2*  
% > ftB-gItV  
gT$`a  
F@Qz
h  
RnV )*  
VdpwZ  
All Tables : (K"U#Zn  
~G.'pyW  
ohqi4Y!j/~  
m.ev~Vv~  
a#t:+iw  
() ].=&^0cg  
s86Ij>VLf  
&U%AVD
[  
?s[ kUv+=  
?zW4|0  
Vo^ i7  
  then _oK*1#Rm8  
strSql = Select * from & tblname /?<o?IR~6  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) H'E(gc)>)  
Response.Write $s-/![ 6  
for i=0 to rs.Fields.count-1 Coz\fL
 
  Response.Write & rs.fields(i).name & ) -x0xY  
next f0+)%gO{  
Response.Write 7M*&^P\}es  
While Not Rs.Eof "w.gP8`  
  Response.Write 5s3!{zT{  
  for i=0 to rs.fields.count -1 Q$!dPwDg  
        Response.Write & Rs.Fields(i).Value &   a"gZw9m@  
  next H1iewsfzH  
  Response.Write       'E FP/(2J  
  Rs.MoveNext >5Y%4++(  
Wend k@MAi*  
Set Rs = Nothing C&Rv$<qc  
end if T$[50~  
  % > Nv!If$d  
t]LOBy-Kv  
!5lb+%7  
gE$D#PZ
a  
xi|T7,\X  
转自： ASP教程采集