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

0 then fm%RNAPvc  
Response.Write 错误 ： & err.description & /w M  
response.end ~lqGnNhh7  
End if U@MP&sdL  
End Sub k-V I9H!,  
Sub EndDB() jJ!-hg4?]  
Set objOraDB = Nothing <zuE=0P~%  
Set objOraSession = Nothing ex\W]5  
End Sub H@E")@92  
Function getTableList(str) )7GLS\uf<%  
Dim strSql,strTmp WEtA4zCO  
Dim objRs 8e!DDh  
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 hG7S]\N_  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) VONAw3k7!  
While Not objRs.Eof P0e""9JOo  
strA = objRs(uname) & . & objRs(tname) !y-2#  
4;RCPC  
If str=strA then "F$o!Vk  
strTmp = strTmp & & strA & [fi'=Cb  
Else ShJK&70O  
strTmp = strTmp & & strA & cEc,e
q|  
End if Ia`JIc^e  
objRs.MoveNext XcMJ
D(!  
Wend -,VhSI  
Set objRs = Nothing _sR9   
getTableList = strTmp 1/ pA/UVO  
End Function 6@q[tN7_^  
% > oL'1Gm@X?  
neh;`7~5@K  
H:-A; f!Z  
oNB,.:  
?
[VpN2*  
All Tables : 8i;)|

z7  
^Wfgwmh  
IT`=\K/[4  
^qO=~U!{  
!UoU
#YU  
() /;&+< }
 
8a`+h#  
!I5~))E  
\c~{o+UD-  
knOnUU  
rN1U.FRe/
 
  then
- 
SS r  
strSql = Select * from & tblname ~sIGI?5f  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) B>Cs&}Y!  
Response.Write xs'kO=  
for i=0 to rs.Fields.count-1 $tCcjBK\  
  Response.Write & rs.fields(i).name & {^2W>^  
next #)0Tt>d6  
Response.Write 4r[pMJiq  
While Not Rs.Eof -,Q$  
  Response.Write b"nG-0JR  
  for i=0 to rs.fields.count -1 0<@KDlF  
        Response.Write & Rs.Fields(i).Value &   QW~5+c9JJ  
  next M6
]0Y@@>  
  Response.Write       6W;?8Z_1  
  Rs.MoveNext *SkiFEoD  
Wend B9e.-Xaf  
Set Rs = Nothing |Vwc/9`t]>  
end if )!k_Gb`#X  
  % > 8b 8\  
0^9:KZ.!  
Nxb\[  
'sRg4?PT  
3X$Q,  
转自： ASP教程采集