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

0 then /EIQMZuYp  
Response.Write 错误 ： & err.description & 0Cg}yyOz  
response.end enC/@){~  
End if &9+]{jXF  
End Sub ZZs@P#]  
Sub EndDB() hqXp>.W  
Set objOraDB = Nothing g2LY~  
Set objOraSession = Nothing 2
Kkm-#p7  
End Sub ^cUmLzM  
Function getTableList(str) "h@=O c  
Dim strSql,strTmp *&v
lfH  
Dim objRs 1 5heLnei  
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 k!Ym<RD%N  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) c;X%Ar  
While Not objRs.Eof X!b+Dk  
strA = objRs(uname) & . & objRs(tname) 0dTHF})m  
#ORZk6e  
If str=strA then IdS=lN$  
strTmp = strTmp & & strA & {4n  
Else 4,,
@o  
strTmp = strTmp & & strA & 8t;vZ&  
End if OXxgnn>W'  
objRs.MoveNext m/e*P*\=  
Wend =:M/hM)#  
Set objRs = Nothing QGCg~TV;  
getTableList = strTmp o&t*[#  
End Function 0&~JC>S  
% > 6%a9%Is!O  
-Qy@-s $  
A=Y A#0  
;tJ}*!z W  
8|LU=p`y'  
All Tables :
}WA=  
!.G knDT  
cMfJq}C<  
=Lh8#>T\h  
{e+}jZ[L  
() @*16agGg  
rNK<p3=7)  
}PXtwp13&u  
&wX568o  
Ia[4P8Z  
\wKnX]xGf  
  then $$ 9!4  
strSql = Select * from & tblname p uZY4}b_  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) q)l1tC72  
Response.Write d[\$a4G+  
for i=0 to rs.Fields.count-1 y$}o{VE{x  
  Response.Write & rs.fields(i).name & |2Y/l~  
next E5$Fhc  
Response.Write 4wkmgS  
While Not Rs.Eof mP]a}[  
  Response.Write !X5LgMw^;  
  for i=0 to rs.fields.count -1 aBd>.]l?  
        Response.Write & Rs.Fields(i).Value &   qOTo p-  
  next j5gL67B  
  Response.Write       [$DI!%e|  
  Rs.MoveNext ZBkbr  
Wend aI\:7  
Set Rs = Nothing {UFs1  
end if Pil_zQ4  
  % > !DM GAt\  
o zMn8@R  
fB)S:f|  
+gyGA/5:d$  
M9QYYo@  
转自： ASP教程采集