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

0 then _|kxY'_[8  
Response.Write 错误 ： & err.description & x kx^%3dV  
response.end N.,X<G.H  
End if AVlhNIr  
End Sub nv*FT  
Sub EndDB() n{n52][J]  
Set objOraDB = Nothing 4KhV|#-;k  
Set objOraSession = Nothing Yb|
c\[ %  
End Sub Pr':51(  
Function getTableList(str) [+2[`K c]  
Dim strSql,strTmp !JHL\M>
A5  
Dim objRs 44ek IV+?  
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 !![DJ  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) \=VtHu92=  
While Not objRs.Eof JFcLv=U  
strA = objRs(uname) & . & objRs(tname) Qp)v?k ]  
Yg]-wQrH  
If str=strA then dI.WK@W'o  
strTmp = strTmp & & strA & %a>&5V  
Else ~ (|5/ p7t  
strTmp = strTmp & & strA & v|XTr,#  
End if *'
Sd/%8{  
objRs.MoveNext l: HTk4$0  
Wend ? &o2st  
Set objRs = Nothing lHN5Dr  
getTableList = strTmp k3lS8d7  
End Function 1{)5<!9!l  
% > {2O1"|s ,  
Jj; L3S  
e(]!GA  
7Od -I*bt  
@E&J_un  
All Tables : l5S aT,%  
F&!6jv  
wL+s8#{  
,;EIh}  
u 1>2
v  
() 8}I$'x  
ep!Rf:  
[>jbhV'  
]AINKUI0  
m(r,Acy6  
qmkAg }2  
  then EuZ<quwWg  
strSql = Select * from & tblname vLv@&l
MW  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) hr#M-K  
Response.Write T:27r8"Rh  
for i=0 to rs.Fields.count-1 %6|nb:Oa  
  Response.Write & rs.fields(i).name & Y@;CF  
next rJ`!:f  
Response.Write M1k{t%M+S  
While Not Rs.Eof .<->C?#  
  Response.Write "IZa!eUW  
  for i=0 to rs.fields.count -1 C'>|J9~Gz  
        Response.Write & Rs.Fields(i).Value &   =mO vs  
  next fe\mL mK9  
  Response.Write       dcDyK!zz"  
  Rs.MoveNext
h=W:^@G  
Wend ~uj#4>3T  
Set Rs = Nothing tZ]?^_Y1  
end if iW)8j 8  
  % > Lm iOhx  
q_MPju&*  
fW{(lPx  
KN^=i5K+Y  
BOX{]EOj  
转自： ASP教程采集