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

0 then 98XlcI#  
Response.Write 错误 ： & err.description & w7Ij=!)  
response.end 11?d,6Jl  
End if #oJ%i+V  
End Sub =[LUOOR*]  
Sub EndDB() 8 `}I]  
Set objOraDB = Nothing _~bG[lX!  
Set objOraSession = Nothing m
r>dZ)  
End Sub ffR<G&"n~b  
Function getTableList(str) z!aU85y  
Dim strSql,strTmp YK>?;U+|  
Dim objRs }///k]_Sh  
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 ){4!  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) X+QoO=02LR  
While Not objRs.Eof %+@<T<>J<k  
strA = objRs(uname) & . & objRs(tname) EIF"{,m  
6cXZ3;a  
If str=strA then "f:_(np,  
strTmp = strTmp & & strA & Ou{VDE  
Else wL[{6wL  
strTmp = strTmp & & strA & m1Xc3=Y  
End if -{ES 36  
objRs.MoveNext FD/=uIXH2  
Wend @ \*Zq  
Set objRs = Nothing IlZ$Jd  
getTableList = strTmp !md1~g$rN  
End Function 6#kmV  
% > "'~&D/7  
[:8+ +#KD  
),XDY_9K  
uZa)N-=b2  
ht2J, 1t  
All Tables : }aL&3[>>  
0t%`jY~%  
upiYo(sN.  
3;F up4!4}  
C(n_*8{  
() BG/RNem  
-nqq;|%  
K"8!  
#N'bhs  
t'[`"pp=  
~z'Y(qG  
  then H` h]y  
strSql = Select * from & tblname h/]));p  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Q2"K!u]  
Response.Write S3^(L   
for i=0 to rs.Fields.count-1 |LirjC4  
  Response.Write & rs.fields(i).name & H3+P;2{  
next 465?,EpS  
Response.Write :@~mN7O*  
While Not Rs.Eof byPqPSY  
  Response.Write \?vn0;R
4  
  for i=0 to rs.fields.count -1 P52qtN<  
        Response.Write & Rs.Fields(i).Value &   #9t3<H[  
  next FiKGB\_]  
  Response.Write       XA\wZV |{  
  Rs.MoveNext ?u>A2Vc!  
Wend %*OQH?pyx}  
Set Rs = Nothing Q-KBQc  
end if fvRqt)Ks  
  % > ]v l?
J  
e17]{6y  
NmTo/5s  
''}2JJU{  
vG~JK[  
转自： ASP教程采集