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

0 then akr
EZ7A  
Response.Write 错误 ： & err.description & -QI1>7sl  
response.end O9:vPbn  
End if 2Q-kD?PO,  
End Sub lf[(  
Sub EndDB() A
!W(>  
Set objOraDB = Nothing vEW;~FLd  
Set objOraSession = Nothing )I$_wB
!UV  
End Sub JG0TbM1(Bt  
Function getTableList(str) 9Z6O{ >  
Dim strSql,strTmp D.
)R8X  
Dim objRs V~NS<!+q  
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 8{epy  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) fW <qp  
While Not objRs.Eof L`yS'  
strA = objRs(uname) & . & objRs(tname) rR^VW^|f  
*:_xy{m\  
If str=strA then Cp_"PvTmT  
strTmp = strTmp & & strA & \ Lrg:  
Else 0Eo*C9FP~  
strTmp = strTmp & & strA & 57%:0loW  
End if pc:~_6S  
objRs.MoveNext p`T7Y\\#!  
Wend .2Y"=|NdA  
Set objRs = Nothing Mp7r`A,6  
getTableList = strTmp $*`fn{2  
End Function `?2S4lN/  
% > !sK{:6s  
5lVDYmh  
A ElNf:  
.y#@~H($  
!pQQkZol  
All Tables : ppmDmi~X  
QVQe9{ "0  
`hY%<L sI  
%h2U(=/:  
WSWaq\9]8  
() ro|dB  
X<vv:  
m7~kRY514  
]@C&Q,
~q  
v>;6pcp[F  

$:{uF#  
  then J XbG|L  
strSql = Select * from & tblname )zz"DH  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Jd7+~isu~  
Response.Write ,M5zhp$  
for i=0 to rs.Fields.count-1 bTb|@  
  Response.Write & rs.fields(i).name & 8! pfy"  
next j@&F[r  
Response.Write 1vx:`2 A4  
While Not Rs.Eof 9p9:nx\  
  Response.Write eM*@}3  
  for i=0 to rs.fields.count -1 cK1r9ED|  
        Response.Write & Rs.Fields(i).Value &   Bd31> %6  
  next doW_vu  
  Response.Write       #q6jE  
  Rs.MoveNext _ ?xORzO  
Wend B14z<x}Q  
Set Rs = Nothing R*'rg-
d  
end if !%_}Rv!JT  
  % > Ip|~j} }  
sJw#^l  
CM!bD\5  
~%bz2Pd%  
E}b" qOV  
转自： ASP教程采集