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

0 then d }]b  
Response.Write 错误 ： & err.description & 't>Qj7vh0  
response.end iCc\p2p  
End if *JDc1$H0  
End Sub 2/bck)p=  
Sub EndDB() ~PV>3c3l=  
Set objOraDB = Nothing }%:?s6Ler  
Set objOraSession = Nothing vWgh?h/ot  
End Sub R `'@$"  
Function getTableList(str) <fyv^e  
Dim strSql,strTmp 7'<4'BGzl]  
Dim objRs [s2%t"H-y  
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 '-*r&:  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Dg]i};
 
While Not objRs.Eof 5 Fd]3  
strA = objRs(uname) & . & objRs(tname) 3;Xs
`dk  
X~j A*kmAj  
If str=strA then 7/~"\nN:/  
strTmp = strTmp & & strA & N*z<VZ  
Else "=RB #  
strTmp = strTmp & & strA & p3Gj=G  
End if L,:U _\HQ  
objRs.MoveNext Ea3tF0{  
Wend G{s ,Y^  
Set objRs = Nothing $4?%Z>'  
getTableList = strTmp k20H|@g2  
End Function 8G@FX $$Q  
% > [6D>2b}:{[  
)XNcy" 
 
qH(2 0Z!  
HnpGPGz@F  

!O.B,  
All Tables : Q/+a{m0f  
w"Z>F]YZ  
Uligr_c?  
lmd0Q(I  
 d,H%  
() 1n5&PNu  
]-q:Z4rb  
[F>zM  
n%O`K{86  
^X?[zc GE  
;Joo!CXHO  
  then q
aQ
 
strSql = Select * from & tblname n|F`6.G  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) .3Ap+V8?  
Response.Write kBT cND|  
for i=0 to rs.Fields.count-1 j9qN!.~mM  
  Response.Write & rs.fields(i).name & b/G0EcRw+  
next s}A]lY  
Response.Write ,iHt*SZ,*  
While Not Rs.Eof N7e^XUG   
  Response.Write 'z\F-Ttq  
  for i=0 to rs.fields.count -1 fHgfI@{=j  
        Response.Write & Rs.Fields(i).Value &   v|e\o~2D`  
  next NN$`n*;l  
  Response.Write       &wjOb  
  Rs.MoveNext y3xP~]n  
Wend xq]&XlA:ug  
Set Rs = Nothing A/.cNen  
end if j9,X.?Xvx  
  % > |)lo<}{  
FX'W%_f,  
Nn^el'S'  
[;b9'7j'  
a#{a{>  
转自： ASP教程采集