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

0 then AvxP0@.`  
Response.Write 错误 ： & err.description & d ~`_;.z  
response.end ]JUb;B;Z  
End if [/Figr]  
End Sub .bT+#x  
Sub EndDB() YM(`E9{h  
Set objOraDB = Nothing _Cd_i[K[  
Set objOraSession = Nothing 5IsRIz[`TK  
End Sub N)&(&2  
Function getTableList(str) ,;)1|-^nu  
Dim strSql,strTmp r{Stsha(  
Dim objRs *GMs>"C  
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 V.f'Cw  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) i]L4kh5
 
While Not objRs.Eof G9_M~N%a  
strA = objRs(uname) & . & objRs(tname) &E{i#r)'T  

TX%W-J_  
If str=strA then >@T(^=Q  
strTmp = strTmp & & strA & uQYBq)p|  
Else xwm-)~L4T  
strTmp = strTmp & & strA & HfN:oww  
End if "\:ZH[j  
objRs.MoveNext )RFE< Qcj  
Wend -T
5$l  
Set objRs = Nothing rP=!!fC1;  
getTableList = strTmp #SR"Q`P  
End Function |}O9'fyU8  
% > $:aKb#l)  
,M)NC%0X  
bns([F  
#;#r4sJwU  
L+b"d3!G&%  
All Tables : &M6cCT]&M  
RwR.*?#  
R\+O.vX  
_s&sA2r<  
c[DC  
() ju@5D h  
G|"`kAa  
[p%OIqC`pB  
lZq`,E_L  
>h+G$&8[y  
02EbmP  
  then T5jZd@VT,  
strSql = Select * from & tblname +EnJyli  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ,XZ[L? >  
Response.Write BUozpqN}  
for i=0 to rs.Fields.count-1 | gou#zi  
  Response.Write & rs.fields(i).name & 7T)J{:+0!|  
next pKM5<1J  
Response.Write w,CZ*/^  
While Not Rs.Eof g3i !>  
  Response.Write luEP5l2&  
  for i=0 to rs.fields.count -1 1 ^k#g,  
        Response.Write & Rs.Fields(i).Value &   ;h }^f-  
  next
dF-d  
  Response.Write       wW1E 'Vy{  
  Rs.MoveNext z+J4XpX0,  
Wend 7r_Y.  
Set Rs = Nothing
ke(LjRS  
end if 
j(8I+||  
  % > g[W`
4  
&;)6G1X1  
W9$mgs=S`E  
wkp|V{k  
fR4O^6c:  
转自： ASP教程采集