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

0 then %s6|w=.1  
Response.Write 错误 ： & err.description & LcI,Dy|P  
response.end /{#1w\  
End if UB|f{7~&  
End Sub 3~iIo&NZ  
Sub EndDB() FhVi|Va  
Set objOraDB = Nothing 80U07tJ  
Set objOraSession = Nothing 7;ZSeQyC  
End Sub Ox#%Dm2  
Function getTableList(str) Y<0 [_+(  
Dim strSql,strTmp ?kMG!stgp}  
Dim objRs ]#z^G  
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$ya{]a  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) pn<M`,F~q  
While Not objRs.Eof >vF=}1_L  
strA = objRs(uname) & . & objRs(tname) /~Zxx}<;  
-$yNJ5F`  
If str=strA then %{Ez0XwGCn  
strTmp = strTmp & & strA & nSdta'6  
Else pHSq,XP-  
strTmp = strTmp & & strA & f^z/s6I0  
End if 1A^~gYr  
objRs.MoveNext Ke@zS9  
Wend SO^:6GuJ  
Set objRs = Nothing v0&E!4q*'  
getTableList = strTmp {p@uH<)  
End Function ^W+q!pYM9+  
% > 8(J&_7u  
\x\_I1|  
 *(5y;1KU  
!B_i~Rmg  
,R_ KLd  
All Tables : xFvDKW)_X7  
x2/L`q"M?=  
?4vf2n@  
d#6'dKV$  
UT!gAU  
() 8:E)GhX  
.cJWYMC  
R1u1  
". #=_/op  
T5(]/v,UT  
'i#m%D`dt  
  then |>(d^<nR^v  
strSql = Select * from & tblname f Glvx~  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Gu?OyL  
Response.Write %GG:F^X#  
for i=0 to rs.Fields.count-1 t ' _Au8  
  Response.Write & rs.fields(i).name & p
 w(eWP  
next r6k0=6i  
Response.Write HF>Gf2-C  
While Not Rs.Eof =>Ss:SGjT  
  Response.Write Jv(9
w[  
  for i=0 to rs.fields.count -1 H=b54.J8&  
        Response.Write & Rs.Fields(i).Value &   e}>8rnR{  
  next [ aC7  
  Response.Write       r:Uqtqxh  
  Rs.MoveNext C":i56  
Wend ?`T< sk8c  
Set Rs = Nothing r#ES|  
end if {!h|(xqN+  
  % > M\\t)=q  
c4Q{  
3>LyEXOW  
g%z'#E97  
V}<Hx3!  
转自： ASP教程采集