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

0 then qp/1tC`  
Response.Write 错误 ： & err.description & Yh!=mW!OY  
response.end MmfBFt*  
End if &M@c50&%  
End Sub 'R
hS%l  
Sub EndDB() Jwfb%Xge~  
Set objOraDB = Nothing %8h=_(X\7  
Set objOraSession = Nothing 
<7SE|  
End Sub I.G[|[. Do  
Function getTableList(str) T/2k2r4PD  
Dim strSql,strTmp ]jC{o,?s  
Dim objRs h#KSKKNW  
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 bmK  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 1#%H!GKvTU  
While Not objRs.Eof ot[ZFF\  
strA = objRs(uname) & . & objRs(tname) '|Bk}pl7  
6i~|<vcSP  
If str=strA then (,jsZ!sl  
strTmp = strTmp & & strA & n6.Z{Q'b  
Else ZSwuEX  
strTmp = strTmp & & strA & {9-9!jN{"  
End if A%?c1`ZxF  
objRs.MoveNext cTzR<Yr  
Wend ?upd  
Set objRs = Nothing t-o,iaPG3  
getTableList = strTmp t&EizH$  
End Function 4H%#Sn#L^!  
% > f<iK%  
)[J!{$&y  
~tyqvHC  
9#:fQ!3`  
c0o Z7)*}  
All Tables : "igA^^?X1N  
R9 Ab.t  
]Idwy|eG  
T4Vp0i  
{U$XHG  
() R]e&JoY  
Z37Dv;&ZD  
- _8-i1?  
*?d\Zcj85[  
q~ ZUtF  
A{J?I:  
  then ^)Awjj9  
strSql = Select * from & tblname Yl>Y.SO  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ;tVd+[8  
Response.Write r7g@(K  
for i=0 to rs.Fields.count-1 "yh2+97l  
  Response.Write & rs.fields(i).name & /g!
ZU2&l  
next xvl
{o  
Response.Write #n{4f1TZ  
While Not Rs.Eof @s cn ?t  
  Response.Write k{#k:  
  for i=0 to rs.fields.count -1 )Z1&`rv  
        Response.Write & Rs.Fields(i).Value &   9aLd!PuTN  
  next _AX,}9
 
  Response.Write       3N- '{c6]U  
  Rs.MoveNext _s#]WyU1g  
Wend )Sb-e(sl  
Set Rs = Nothing <mlN\BcX;  
end if l
+>Y
  
  % > !;h&@LXG(  
2 G2+oS ?  
h)ZqZ'k$  
B }euIQB  
F nXm;k,9*  
转自： ASP教程采集