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

0 then QgI[#d{  
Response.Write 错误 ： & err.description & m8=n`XI  
response.end 8
qqN0"{,  
End if >.6|\{*sG  
End Sub n1JtY75#,/  
Sub EndDB() 'zM=[#!B  
Set objOraDB = Nothing 8PzGUn;\  
Set objOraSession = Nothing !b"?l"C+u  
End Sub wk ^7/B  
Function getTableList(str) +SR{FF  
Dim strSql,strTmp m`l9d4p w?  
Dim objRs Kv(R|d6Lp  
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 "(3u)o9  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) (-g*U#  
While Not objRs.Eof <^\rv42'(2  
strA = objRs(uname) & . & objRs(tname) {nbT$3=Zt  
Kp6 @?  
If str=strA then R0}1:1}$Sn  
strTmp = strTmp & & strA & 'w27Lt'V  
Else %uN<^
`JZ  
strTmp = strTmp & & strA & VJ=>2'I  
End if h7E~I J  
objRs.MoveNext JwB'B  
Wend dYwk
P^KB  
Set objRs = Nothing #n'.a1R  
getTableList = strTmp GPGE7X'  
End Function "bIb?e2h9G  
% > 8 ECX[fw  
aknIrblS\  
W;'fAohr  
!JDr58  
X58U>4a  
All Tables : `R$i|,9)  
G;3%k.{  
RkE)2q[5  
A<ds+0  
)A$"COM4  
() :YI5O/gsk?  
:Ln)j%&  
kU[hB1D5  
>`\.i,X.D  
E ?Mgbd3  
/[<F f  
  then n.&7lg^X  
strSql = Select * from & tblname  px<psR5  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 2n,z`(=  
Response.Write TKR#YJQ?K  
for i=0 to rs.Fields.count-1 z'U.}27&o  
  Response.Write & rs.fields(i).name & q< XFw-Pv  
next !+%gJiu:  
Response.Write *S ag  
While Not Rs.Eof w'K7$F51  
  Response.Write |%C2 cx  
  for i=0 to rs.fields.count -1 =&z+7Pe[  
        Response.Write & Rs.Fields(i).Value &   
-G.N  
  next :)~l3:O  
  Response.Write       5vyg-'  
  Rs.MoveNext lo
$G*LWu:  
Wend )8A.Wg4S;c  
Set Rs = Nothing p^pd7)sBr  
end if M-nRhso  
  % > e,JBz~CK*w  
VcrMlcnO  
X"!j_*&ED  
]lwf6'  
\J+a7N8m,  
转自： ASP教程采集