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

0 then s7}46\/U  
Response.Write 错误 ： & err.description & Vpsv@\@J>  
response.end pt+[BF6P  
End if "8h7"WR  
End Sub 8m;tgMFO  
Sub EndDB() kZ3w2=x3v  
Set objOraDB = Nothing b{wj4  
Set objOraSession = Nothing Ff@Cs0R  
End Sub and)>$)|  
Function getTableList(str) L.) 0!1  
Dim strSql,strTmp BV01&.<|  
Dim objRs QL_9a,R'r  
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 ',P E25Z  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) GV T[)jS  
While Not objRs.Eof PK<+tIm\  
strA = objRs(uname) & . & objRs(tname) p!xCNZ(m  
+nT(>RJR  
If str=strA then _}(ej&'f  
strTmp = strTmp & & strA & E/_I$<,_y  
Else XUp'wP  
strTmp = strTmp & & strA & P85@G 2  
End if BNe6q[ )W~  
objRs.MoveNext {*J{1)2  
Wend X,"(G}KUA  
Set objRs = Nothing mIX[HDy:V$  
getTableList = strTmp Xv'5%o^i*  
End Function 8e3I@mv  
% > -r!sY+Z>  
8Cw+<A*  
R:t>PFwo  
}{.0mu9  
oyeJ"E2  
All Tables : 4]18=?r>  
EFNi# D8s  
I?_YL*  
fNnemn@>  
@XL5$k[Y  
() d`+@ _)ea  
n^2p jTkl  
M$0-!$RY  
_#]/d3*Z}  
%}=:gF  

X|w[:[P  
  then mWPA]g(  
strSql = Select * from & tblname Lradyo44u\  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) .sOEqwO}>  
Response.Write ?]]d 
s]  
for i=0 to rs.Fields.count-1 )IH|S5mG?  
  Response.Write & rs.fields(i).name & FELDz7DYya  
next 3</gK$f2  
Response.Write H${5pY_M  
While Not Rs.Eof Ghb Jty`  
  Response.Write Z>si%Npm\  
  for i=0 to rs.fields.count -1 O<o>/HH$  
        Response.Write & Rs.Fields(i).Value &   %2jRJ  
  next M)JKe!0ad1  
  Response.Write       ,s9gGCA  
  Rs.MoveNext :|tWKA  
Wend yHk}'YP  
Set Rs = Nothing \6)]!$F6:  
end if hvO  
  % > lEWF~L5=:  
NB|yLkoDyI  
88l\8k4r  
RMvq\J}w!  
2`;&Uwt  
转自： ASP教程采集