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

0 then /_VRO9R\V  
Response.Write 错误 ： & err.description & 'wB H
uq  
response.end K9I,Q$&xX  
End if pw<q?q%  
End Sub ^pQo`T6  
Sub EndDB() k+q6U[ce  
Set objOraDB = Nothing OnPy8mC  
Set objOraSession = Nothing C)KtM YA,  
End Sub e??{&[  
Function getTableList(str) /|u]Y/ *  
Dim strSql,strTmp }x#P<d(  
Dim objRs  wc+N  
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 T956L'.+G  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 49J+&G?)j  
While Not objRs.Eof mBpsgm:g^  
strA = objRs(uname) & . & objRs(tname) WRcFE<  
`6BS-AVO7  
If str=strA then FbCZV3Y  
strTmp = strTmp & & strA & |B{$URu  
Else ,5A>:2 zs  
strTmp = strTmp & & strA & "{ QHWZ  
End if Nh\8+v*+{  
objRs.MoveNext N>}K+M>  
Wend {OhkuON  
Set objRs = Nothing H-cBXp5z  
getTableList = strTmp R !%m5Q?5  
End Function ?k:])^G5  
% > Er/5 ,  
Tm:#"h\F  
(E1>}  
Q@ )rw0$  
-g[*wN8  
All Tables : )[M<72  
*liPJ29C[  
AINFua4A  
MMA@J  
$m: a-.I  
() HsgTHe  
w)m0Z4*  
9-E>n)  
UQf>5g  
QV H'06"{  
s-N?Tzi  
  then 9;v"bcQ  
strSql = Select * from & tblname V+a%,sI  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 2E;%=e  
Response.Write ,^IZ[D>u)  
for i=0 to rs.Fields.count-1 @H# kvYWmn  
  Response.Write & rs.fields(i).name & 4Ig{#}<  
next @xF8' [<  
Response.Write dYqDL<se/I  
While Not Rs.Eof -R$FJbId  
  Response.Write ah Xq{>  
  for i=0 to rs.fields.count -1 3D09P5$W  
        Response.Write & Rs.Fields(i).Value &   Ah>krE0t  
  next 4^NHf|UJH  
  Response.Write       "0 PN  
  Rs.MoveNext W &wDH  
Wend 7}1Kafs  
Set Rs = Nothing zl#&Qm4Ot  
end if sV'.Bomq  
  % > ' bw,K*  
CG>2,pP,  
&N7:k+E
 
3F'dT[;  
?a0}^:6  
转自： ASP教程采集