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

0 then */=5m]  
Response.Write 错误 ： & err.description & V=<OV]0  
response.end zYf`o0U  
End if l0cws`V  
End Sub +xqPyR  
Sub EndDB() l_ycYD$ZA  
Set objOraDB = Nothing wRgh`Hc\}  
Set objOraSession = Nothing R[eQ}7;+  
End Sub IUX~dO  
Function getTableList(str) a6K1-SR^6)  
Dim strSql,strTmp sb 3l4(8g  
Dim objRs 19)fN-0
Z  
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 nSH A,c  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Dq/ _#&S  
While Not objRs.Eof d*%-r2K  
strA = objRs(uname) & . & objRs(tname) |yE_M-Nc
 
*/gm! :Ym  
If str=strA then JpVV0x/Q/_  
strTmp = strTmp & & strA & 3nfw:.  
Else K&(}5`H0=  
strTmp = strTmp & & strA & qaBjV6loy  
End if wAHW@q9CK  
objRs.MoveNext (bfHxk
R.  
Wend v:s.V>{"S  
Set objRs = Nothing Xg*IOhF6x  
getTableList = strTmp
xNG'UbU  
End Function ;IhkGPpWP  
% > 3zJbb3e  
6&(gp(F  
=>ooB/  
ien >Ou  
9moenkL  
All Tables : lf3:Z5*&>  
'T54k  
5MJ`B:He+  
&(!Sy?tNe  
WeG
T}  
() {r2-^QHF  
XcJ'w  
jKV,i?  
J~z;sTR  
k[oU}~*U+  
\m!swYy  
  then L2>UA<@mZ  
strSql = Select * from & tblname ~ei\~;n\@  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) v'`9^3(-  
Response.Write oD,f5Ci-  
for i=0 to rs.Fields.count-1 2#Fc4RR;  
  Response.Write & rs.fields(i).name & A:3bL: ;t  
next WXj}gL`  
Response.Write O~F/pJN`  
While Not Rs.Eof X&._<2  
  Response.Write [T', ZLR|  
  for i=0 to rs.fields.count -1 iqCKVo7:M  
        Response.Write & Rs.Fields(i).Value &   E^S[8=  
  next wC@5[e$  
  Response.Write       T*>n a8W  
  Rs.MoveNext 11}fPWK  
Wend :<d\//5<9  
Set Rs = Nothing CQfrAk4mu  
end if :SG9ygq'  
  % > k(o[T),_%0  
Y+<C[Fiq  
g^8dDY[%  
MLY19;e  
Vj4 if@Z  
转自： ASP教程采集