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

0 then 60>.ul2  
Response.Write 错误 ： & err.description & 2?q(cpsN  
response.end |CFRJN-J"  
End if wq!iV |  
End Sub E%N2k|%8d_  
Sub EndDB() zZ-\a[F  
Set objOraDB = Nothing r(A.<`\   
Set objOraSession = Nothing \}0-^(9zd  
End Sub d^E [|w;  
Function getTableList(str) 4,p;Km&  
Dim strSql,strTmp V ~{fB~  
Dim objRs DGESba\2+  
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 ;q>9W,jy  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) zCaT tb|@  
While Not objRs.Eof gb|Q%LS9R  
strA = objRs(uname) & . & objRs(tname) =n(3o$r(  
WYcA8X/  
If str=strA then 5e8AmY8;  
strTmp = strTmp & & strA & nw:-J1kWR  
Else #'baPqdO  
strTmp = strTmp & & strA & 9LJZ-/Wq  
End if YX*x&5]lq  
objRs.MoveNext -V.d?A4"  
Wend !D^c3d  
Set objRs = Nothing J9~i%hzr  
getTableList = strTmp O[@q%&_  
End Function 0#o/^Ah  
% > X;F8_+Np  
I^\&y(LJF  
08bJCH  
R"v 3!P  
nk"NmIf  
All Tables : V N{NA+I  
rh*sbZ68>E  
1Tp/MV/>  
$g9**b@  
k;W@LfP  
() OHrY(I6  
x3+oAb@o/  
I?#85l{>  
Hy:V`>  
YIhm$A"z0"  
72uz<i!&$  
  then {V19Zv"j  
strSql = Select * from & tblname #SVNHpx  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) [(kB 5 a  
Response.Write CG\tQbum  
for i=0 to rs.Fields.count-1 CK+d!Eg  
  Response.Write & rs.fields(i).name & @&F@I3`{  
next {=2DqkTD  
Response.Write 2NGeC0=  
While Not Rs.Eof p/Sbt/R  
  Response.Write uQ$^;Pr  
  for i=0 to rs.fields.count -1 :'L2J  
        Response.Write & Rs.Fields(i).Value &   ? 8aaD>OR$  
  next /wShUR{  
  Response.Write       ~T7B$$  
  Rs.MoveNext WUc#)EEM)  
Wend NH<gU_s8{9  
Set Rs = Nothing ./vZe_o)j$  
end if AFvgbn8Qh  
  % > 4LcX<BU9  
RprKm'b8x`  
/'2O.d0}.  
) /vhclkb  
Dn9w@KO  
转自： ASP教程采集