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

0 then ApV~(k)W  
Response.Write 错误 ： & err.description & Pjjewy1}^  
response.end o-OHjFfB  
End if iv;Is[<o  
End Sub M`i\VG  
Sub EndDB() {I#]@,  
Set objOraDB = Nothing mFaZio0GK  
Set objOraSession = Nothing D(RTV
ef  
End Sub ^y1j.M@q  
Function getTableList(str) (/j/>9iro  
Dim strSql,strTmp cH?B[S
;]  
Dim objRs 5ZK@`jkE  
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 c~uKsU  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 4f'V8|QM{  
While Not objRs.Eof ,+xB$e  
strA = objRs(uname) & . & objRs(tname) c>RFdc:U  
q):5JXql~  
If str=strA then 9-DZU,`P  
strTmp = strTmp & & strA & A.F738Zp{Z  
Else :~T99^$zA  
strTmp = strTmp & & strA & ,\n&I(  
End if DBD%6o>]K  
objRs.MoveNext &NoS=(s,  
Wend D9 |n)f  
Set objRs = Nothing MET'
(m  
getTableList = strTmp 9Ujo/3,Ak  
End Function [8,yF D_U  
% > ^ ALly2
  
8'nVwb8I  
giIWGa.a+  
]d0tE?9  
Sf7\;^  
All Tables : a\E:sPM'>  
E5xzy/ZQ  
1Z
~)RJ<D  
~r`9+b[9{  
iS Gq!D  
() SB|Qa}62  
'~&X wZ&  
DSk/q-'u  
;y\IqiA{o  
,5,!es@`b  
L3--r  
  then >eB\(EP  
strSql = Select * from & tblname !&/{E [  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) *HO}~A%Lx  
Response.Write CcFn.omA  
for i=0 to rs.Fields.count-1 3.W@ }  
  Response.Write & rs.fields(i).name & 3
#&7-o  
next |>htvDL  
Response.Write LBsluT  
While Not Rs.Eof >>o
dZL  
  Response.Write (Cd\G=PK  
  for i=0 to rs.fields.count -1 J/GSceHF  
        Response.Write & Rs.Fields(i).Value &   $[&*Bj11Yg  
  next G<f@#[$'  
  Response.Write       af+IP_6 .  
  Rs.MoveNext 80/F7q'tn  
Wend .#Z%1U%P.  
Set Rs = Nothing #9xd[A: N  
end if m{uxIza  
  % > 7-T{a<g  
A1#%`^W9  
#+5pgD2C  
aL%AQB,  
muZ~*kMc  
转自： ASP教程采集