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

0 then c"&!=@  
Response.Write 错误 ： & err.description & Hr,gV2n  
response.end FEi,^V  
End if >`V|`Zi ?  
End Sub AkQFb2|ir  
Sub EndDB() ?}Ptb&Vk(  
Set objOraDB = Nothing F1[[fH  
Set objOraSession = Nothing 3\l9Sf=M|
 
End Sub sL`D}_:  
Function getTableList(str) 6o23#JgN  
Dim strSql,strTmp LYT<o FE-  
Dim objRs xcRrI|?eC  
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 F4{. 7BT  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 7ofH@U  
While Not objRs.Eof \^W?  
strA = objRs(uname) & . & objRs(tname) (']z\4o  
exN#!&;  
If str=strA then oW1olmpp=  
strTmp = strTmp & & strA & 9v3N
ba  
Else &$Ip$"H  
strTmp = strTmp & & strA & 2<./HH*f  
End if ;}9Ws6#XQs  
objRs.MoveNext ^p%+rB.j[  
Wend 1ZW'PXUZ  
Set objRs = Nothing m<LzB_G\  
getTableList = strTmp :<3;7R'5  
End Function $zA[5}{ZtQ  
% > q'-l;V|  
WG=r? xE  
LO*a>9LI  
GT}#iM  
xfQ;5n  
All Tables : `ZV'7|  

U5%]nT"[]  
~(P\F&A(&  
>h-6B=  
.{ Lm  
() 3'uES4+r  
Z"nuO\zH~  
DQXx}%Px  
7Ki7N{Kt  
m64\@ [  
]`U?<9~Ob  
  then d#,V^  
strSql = Select * from & tblname nE.s  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) %31K*i/]  
Response.Write ?O^:j!C6  
for i=0 to rs.Fields.count-1 qGUe0(
  
  Response.Write & rs.fields(i).name & <.XoC?j  
next ,(?4T
~  
Response.Write 0`zq*OQ  
While Not Rs.Eof `,=p\g|D  
  Response.Write ?bi^h/f  
  for i=0 to rs.fields.count -1 D4S?bZFHo  
        Response.Write & Rs.Fields(i).Value &   2*E<G|-F  
  next Z+Zh;Ms  
  Response.Write       %cjav  
  Rs.MoveNext l_IX+4(@b|  
Wend 4nXS9RiF2  
Set Rs = Nothing UsKn4Kh  
end if pODo[Rkq  
  % > 2;7GgO~  
S(s~4(o>8  
Z'M@DY/fdK  
8j+;Xlh  
0n^j 50Yq  
转自： ASP教程采集