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

0 then #IH7WaN  
Response.Write 错误 ： & err.description & r2,AZ+4FP  
response.end (W.euQy  
End if 'J*)o<%  
End Sub Q5R7se_  
Sub EndDB() /y2upu*!  
Set objOraDB = Nothing qSj$0Hq5XI  
Set objOraSession = Nothing 8'c_&\kdv  
End Sub NUB3L  
Function getTableList(str) 9n][#I)a3  
Dim strSql,strTmp VeT\I.K[  
Dim objRs N[G<&f9  
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 N"d*pi#h  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) @r.u8e)l  
While Not objRs.Eof E2f9J{Ki=  
strA = objRs(uname) & . & objRs(tname) 'k2Z$+  
b.jxkx\nt  
If str=strA then \W73W_P&g  
strTmp = strTmp & & strA & JvFU7`4@  
Else O{" A3f  
strTmp = strTmp & & strA & /W !A^  
End if ;dq AmBG{8  
objRs.MoveNext )KvQaC  
Wend Epm'u[w
V  
Set objRs = Nothing +*OY%;dQ7@  
getTableList = strTmp gHS;RF9  
End Function <{\U
E~  
% > ]sz3:p=5  
HRF4 Ro  
E%L]ifA9!  
L|DSEth  
7 R1;'/;  
All Tables : ?&Y3Fr)%  
sePOW#|  
@Bfwb?&  
w}Q|*!?_  
.^s%Nh2jM  
() 4i'2~w{/  
7. y L>  
Q}!U4!{i|p  
h~$Q\WCm#  
J[<3Je=>$  
>M7e'}0;  
  then JnX@eBNV  
strSql = Select * from & tblname rn1FCJ<;H  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) "HR &Rf k  
Response.Write wL 5p0Xl  
for i=0 to rs.Fields.count-1 'Mjbvh4  
  Response.Write & rs.fields(i).name & `
nMHuv  
next 1 sCF -r  
Response.Write LQYT/  
While Not Rs.Eof g5TX
s^g  
  Response.Write zk]6|i$!I  
  for i=0 to rs.fields.count -1 n }la
v  
        Response.Write & Rs.Fields(i).Value &   n?@o:c5,r  
  next .a:Oj3=0  
  Response.Write       <wTkPErUG  
  Rs.MoveNext fw^m
jD  
Wend 1p,G8v+B  
Set Rs = Nothing v F L{j  
end if z$p+l]  
  % > ,<zZKR_  
f9u["e  
C78d29  
9a)D
8  
\`x'r$CV  
转自： ASP教程采集