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

0 then ~O 6~',KD  
Response.Write 错误 ： & err.description & _&![s]  
response.end 6k3l/~R  
End if ;<X3AhF  
End Sub '}YXpB  
Sub EndDB() K :q-[\G  
Set objOraDB = Nothing 2RXGY  
Set objOraSession = Nothing K((Kd&E  
End Sub quUJ%F  
Function getTableList(str) ti#sh{t  
Dim strSql,strTmp ;^8^L'7cr  
Dim objRs SCH![Amq  
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 =,]J"n8|v  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) h5l Lb+  
While Not objRs.Eof 1W!n"3#  
strA = objRs(uname) & . & objRs(tname) 0De M  

EIEq[`h  
If str=strA then E;d 5$  
strTmp = strTmp & & strA & CC-:dN
b  
Else uN(~JPAw5  
strTmp = strTmp & & strA & v!U#C[a^  
End if |8`;55G  
objRs.MoveNext TgB;R5  
Wend PrKlwhi#  
Set objRs = Nothing /#se>4]  
getTableList = strTmp /[IQ:':^  
End Function l{a&Zy)  
% > \
mu9ikZ<  
,]{NZ9  
EXFxiw  
rYS D-Kq  
,"VQ0Z1  
All Tables : q |^O  
0amz#VIB<u  
@YB\PVhW  
+e:ZN tr9  
2!3&Ub#FO  
() q5W'P>  
l>(G3lIw  
bv4cw#5z$9  
zB$6e!fc  
7Mv$.Z(  
.nH /=  
  then 6qJB"_.  
strSql = Select * from & tblname )IhY&?jk?  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) GDB>!ukg  
Response.Write U44H/5/  
for i=0 to rs.Fields.count-1 +=k|(8Js#  
  Response.Write & rs.fields(i).name & l.W:6",w  
next oX4uRc7wR  
Response.Write GKtQ>39B  
While Not Rs.Eof 5#o,]tP  
  Response.Write (*x"6)`  
  for i=0 to rs.fields.count -1 k0IU~y%  
        Response.Write & Rs.Fields(i).Value &   `~]ReJ!X%  
  next fx-*')  
  Response.Write       bC{8yV=)  
  Rs.MoveNext  :Y
3?,  
Wend m'B6qy!}6  
Set Rs = Nothing MX0B$yc$  
end if T!a[@,)_  
  % > RGLA}|  
RHbp:Mlk  
R*0F)M  
6v#G'M#r  
*]6dV'  
转自： ASP教程采集