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

0 then q'82qY  
Response.Write 错误 ： & err.description & !C:$?oU  
response.end |
$b}L7_  
End if ekCC5P!  
End Sub #;nYg?d=  
Sub EndDB() [cp+i^f  
Set objOraDB = Nothing XpJ7o=?W3  
Set objOraSession = Nothing n?Nt6U  
End Sub aw42oLk  
Function getTableList(str) }`~+]9<  
Dim strSql,strTmp ^J;bso`  
Dim objRs }pu27F)&  
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 ?5 7Sk+  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) %bfQ$a:  
While Not objRs.Eof D d</`iUq  
strA = objRs(uname) & . & objRs(tname) 9q[oa5INd  
uW36;3[f#1  
If str=strA then w+CA1q<  
strTmp = strTmp & & strA & lU8`F(Mn  
Else /I0%Z+`=  
strTmp = strTmp & & strA & :6\qpex  
End if :20W\P<O!A  
objRs.MoveNext CizX<Cr}  
Wend B&uz;L3  
Set objRs = Nothing s-T\r"d=j  
getTableList = strTmp 0:Ol7  
End Function 3'
u-'  
% > [u*5z.^  
6,{$J  
ZzT9j~  
/s}}&u/  
G<v&4/\p`M  
All Tables : ~M4;  
,nDaqQ-C!!  
yO~Ig `w  
O@C@eW#  
B_m8{44zM  
() >I&5j/&}+  
ikiypWq  
V33T+P~j  
j#q-^
h3H  
.ctw2x5W  
[3|P7?W/  
  then q5)O%l!  
strSql = Select * from & tblname ut7zVp<"  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) [K0(RDV)%  
Response.Write K(,F~.<  
for i=0 to rs.Fields.count-1 [E juUElr  
  Response.Write & rs.fields(i).name & I4i>+:_J  
next HCC#j9UN6  
Response.Write @r/nF5  
While Not Rs.Eof v #j$;  
  Response.Write &FN.:_E  
  for i=0 to rs.fields.count -1 ckE-",G  
        Response.Write & Rs.Fields(i).Value &   2a Q[zK  
  next 8c^TT&  
  Response.Write       rCdu0 gYT  
  Rs.MoveNext b2&0Hx  
Wend vnZC,J `  
Set Rs = Nothing U|Ta4W`k\  
end if ZX./P0  
  % > `&ckZiq  
]|PiF+  
.jWC$SVR  
zue~ce73J  
^sLdAC  
转自： ASP教程采集