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

0 then f>W-  
Response.Write 错误 ： & err.description & ^c&L,!_)H  
response.end 4<%*E{`  
End if lEhk'/~  
End Sub R $&o*K`?  
Sub EndDB() *Eo?k<:zPm  
Set objOraDB = Nothing Pb?$t  
Set objOraSession = Nothing oJ4AIQjB  
End Sub @&1ZB6OCb:  
Function getTableList(str) "br,/Dk>MX  
Dim strSql,strTmp pL{U `5S  
Dim objRs |962G1.  
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 ]`kmjn  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) !Cr(Pe]  
While Not objRs.Eof $4/yZaVb  
strA = objRs(uname) & . & objRs(tname) MhR:c7,  
*.!Np9l,V  
If str=strA then Fxm$9(Y  
strTmp = strTmp & & strA & 1UE6 4Kl:S  
Else dYL"h.x  
strTmp = strTmp & & strA & (+B5|_xQu  
End if 4"(<X  
objRs.MoveNext S"xKL{5  
Wend R:#k%}W  
Set objRs = Nothing +R|z{M)*  
getTableList = strTmp ; mZW{j  
End Function !4^C #{$  
% > m^bNuo  
VzY8rI  
K?BOvDW"`  
B]uc<`f  
`[W[H(AjQ  
All Tables : P*I}yPeb  
EL(nDv  
1IZ3=6  
MBqt&_?K  
JwAYG5W  
() f}x.jxY?  
H^s<{E0<  
n p\TlUc  
paKSr|O  
k} |   
#MRMNL@   
  then )pq;*~IBI  
strSql = Select * from & tblname f' 3q(a<p  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) SV2M+5#;  
Response.Write Of4^?` ^  
for i=0 to rs.Fields.count-1 "x
3lQ  
  Response.Write & rs.fields(i).name & )XYv}U  
next fSs4ZXC  
Response.Write yF"1#{*y  
While Not Rs.Eof =y0C1LD+  
  Response.Write B2C$N0R#  
  for i=0 to rs.fields.count -1 JV]^zW  
        Response.Write & Rs.Fields(i).Value &   OH">b6>\  
  next ?XA
2&  
  Response.Write       /f|X(docI  
  Rs.MoveNext [3{W^WSOz  
Wend ]Bjyi[#bg  
Set Rs = Nothing XpBj%e:  
end if PfC!lI BU  
  % > I?ae\X@M
  
%Ti}CwI`  
m^GJuPLW
 
Si6al78  
LIZRoG8  
转自： ASP教程采集