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

0 then g0#q"v55  
Response.Write 错误 ： & err.description & T!( 4QRh[  
response.end TGWdyIk  
End if d$1#<-yP  
End Sub B.-A $/  
Sub EndDB() sp8[cO=  
Set objOraDB = Nothing ` %' z  
Set objOraSession = Nothing !p%@Deu  
End Sub ]
XrE  
Function getTableList(str) 3sC:jIp  
Dim strSql,strTmp 1 Nk1MGV  
Dim objRs H2\1gNL  
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 &d 3HB=x  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) \j:gr>4  
While Not objRs.Eof +G!v!(Ob+  
strA = objRs(uname) & . & objRs(tname) sC6r.@[u8t  
+>E5X4JC  
If str=strA then }|He?[TR  
strTmp = strTmp & & strA & :c;_a-69  
Else 0_V*B[V  
strTmp = strTmp & & strA & sQ(1/"gb  
End if M]0^ind  
objRs.MoveNext G^"H*a  
Wend 7x+=7,BZd  
Set objRs = Nothing , ,{6m d  
getTableList = strTmp Hs<n^fyf  
End Function O|(o8VS  
% > ^?Vq L\V
5  
Gmgeve
 
-RCv7U`  
K50t%yu#T]  
AFtCqq#[  
All Tables : -y<x!61  
77_g}N  
I3ho(Kdi
  
,# iZS&  
b.6ZfB,+G  
() [,\i[[<  
Uk"Y/Ddm  
{*nEKPq(_*  
\vs%U}IrO  
Lkp&;+  
%d-`71|lG^  
  then Ix4jof6(  
strSql = Select * from & tblname P[1m0!,B  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) $OT}`Te~  
Response.Write xLLC)~  
for i=0 to rs.Fields.count-1 k{qLkcOg=  
  Response.Write & rs.fields(i).name & |Pj9ZG#  
next ){jqfkL  
Response.Write w1.MhA  
While Not Rs.Eof !}j,TPpG  
  Response.Write ax;{MfsK  
  for i=0 to rs.fields.count -1 $ #t|(\  
        Response.Write & Rs.Fields(i).Value &   "?`JA7~g  
  next 6HB]T)n  
  Response.Write       vsw7|  
  Rs.MoveNext 9DY|Sa]#=  
Wend B5 tx f.  
Set Rs = Nothing widI s[ )  
end if Qlf 9]ug)  
  % > A&;EV#]ge  
3[,wM
y"  
3a/[."W u  
$]Rl__;  
k>$FT`  
转自： ASP教程采集