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

0 then r9N?z2X  
Response.Write 错误 ： & err.description & 0\Jeyb2dl  
response.end %JiF269  
End if CP;<B1  
End Sub WHv6E!^\_  
Sub EndDB() @{fwM;me]P  
Set objOraDB = Nothing #[x*0K-h  
Set objOraSession = Nothing 0{B<A^Bf  
End Sub j2IK\~W?-  
Function getTableList(str) BI-'&kPk  
Dim strSql,strTmp o[ks-C>jw  
Dim objRs #o}/'  
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 WvJ:yUb2  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ReM]I<WuY  
While Not objRs.Eof v9r.w-  
strA = objRs(uname) & . & objRs(tname) :;h
g :Q:  
[sk n9$  
If str=strA then !idVF!xG  
strTmp = strTmp & & strA & :7.k E  
Else D=3Z] 'A  
strTmp = strTmp & & strA & z7:* ,X  
End if @J5TDq @  
objRs.MoveNext B=n90XO |  
Wend ak_y:O|  
Set objRs = Nothing O%>*=h`P  
getTableList = strTmp s:xJ }Ll  
End Function 6Sn&;ap  
% > Z?=o(hkd  
f'5 6IT  
<Fx%P:d  
W<#!He  
<XDnAv0t  
All Tables : :NWIUN  
gfIS  
l1<=3+d  
<a=OiY  
.xT{Rz  
() t>N2K-8Qh  
S _U |w9q  
uK(]@H7~!c  
n CX{tqy   
eXnSH$uI  
$,/E"G`  
  then N3\RXXY  
strSql = Select * from & tblname 2p;I<C:Eo  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) H? z~V-8  
Response.Write 2BF455e   
for i=0 to rs.Fields.count-1 O>nMeU  
  Response.Write & rs.fields(i).name &  *BM#fe  
next ackeq#  
Response.Write P`Now7! GW  
While Not Rs.Eof D
4hT Hh  
  Response.Write U*yOe*>  
  for i=0 to rs.fields.count -1 QP50.P5g  
        Response.Write & Rs.Fields(i).Value &   dwUDhQt3Q  
  next +UX~
't_'v  
  Response.Write       <+ [N*  
  Rs.MoveNext =$y J66e  
Wend )nj fqg  
Set Rs = Nothing d*6/1vyjT  
end if z3L=K9)  
  % > t&w.Wc X)  
m(9I+
`  
D{\o*\TN  
|X XO0  
}xBO;  
转自： ASP教程采集