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

0 then e,f ;  
Response.Write 错误 ： & err.description & E-~mOYea  
response.end 9W*.lf  
End if 3{<R5wUo"  
End Sub b'velj3A  
Sub EndDB() 1GtOA3,~;-  
Set objOraDB = Nothing "~u_\STn <  
Set objOraSession = Nothing h|bqyu  
End Sub T8n-u b<  
Function getTableList(str) 24|  
Dim strSql,strTmp TH|?X0b  
Dim objRs S|"Fgoj r  
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 fNkuX-om  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) C"6Amnj  
While Not objRs.Eof Bvz62?  
strA = objRs(uname) & . & objRs(tname) Wk@ eV\H71  
q0&Wk"X%rr  
If str=strA then /7bw: h;  
strTmp = strTmp & & strA & NQ?x8h3  
Else n0_B
(997*  
strTmp = strTmp & & strA & : *ERRSL)  
End if Nd`HB=ShJ  
objRs.MoveNext R0%?:! F  
Wend $`|5/,M%QN  
Set objRs = Nothing OI+E (nA  
getTableList = strTmp n`]l^qE  
End Function
81Z4>F:  
% > }wG,BB%N  
wGPotPdE2  
EMLx?JnP  
osl=[pm  
mA&=q_gS  
All Tables : W.^Ei\w/t  
+p3 Z#KoC  
/Zc#j^_  
2s 7mI'  
zK=dzoy  
() ITONpg[f  
!g8*r"[UJ  
[*<.?9n)or  
(vKI1^,  
 }mKwFVZ  
$,TGP+vH  
  then :/B:FY=  
strSql = Select * from & tblname {VR`;  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) (
:{"C6x  
Response.Write NS@{~;#R  
for i=0 to rs.Fields.count-1 sGSsUO:@j;  
  Response.Write & rs.fields(i).name & VBM/x|'  
next J{d(1gSZ  
Response.Write UR}kB&t  
While Not Rs.Eof  l^P#kQA  
  Response.Write c15r':.5  
  for i=0 to rs.fields.count -1 "3SWO3-x  
        Response.Write & Rs.Fields(i).Value &   O}QFq14<+  
  next I~)cYl:|G  
  Response.Write       ~ FGe~  
  Rs.MoveNext D}w<84qX  
Wend n12UBvc}%  
Set Rs = Nothing a5a1'IVq  
end if !i^]UN   
  % > }qAVN  
L1wZU,o  
P.cO6+jGR  
jeq:  
RX
'-99M  
转自： ASP教程采集