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

0 then ,6t0w|@-k  
Response.Write 错误 ： & err.description & #S<>+,Lk  
response.end _9n.ir5YX  
End if u x:,io
 
End Sub :Hd?0eZ|  
Sub EndDB() CWBsiL f  
Set objOraDB = Nothing ,}{E+e5jh7  
Set objOraSession = Nothing ?'T>/<(  
End Sub $Fr2oSTT)  
Function getTableList(str) M8juab%y  
Dim strSql,strTmp rcI(6P<*  
Dim objRs ;uoH+`pf  
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 Eq.c;3  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 1Za\T?V  
While Not objRs.Eof I">z#@CT  
strA = objRs(uname) & . & objRs(tname) AO']Kmm  
5yA^n6  
If str=strA then
#{h4lte  
strTmp = strTmp & & strA & EiJSLL  
Else !]kn=7  
strTmp = strTmp & & strA & 6bb=;  
End if VKN^gz  
objRs.MoveNext K03
a@:  
Wend ~]"}s(J;  
Set objRs = Nothing Q;5\(
0w5  
getTableList = strTmp HwU \[f  
End Function *39sh[*}  
% > t4gD*j6J3  
(5yg\3Jvp  
%{}Jr`
 
3tr?-l[N\  
$ng\qJ"HF  
All Tables : #h r!7Kc;N  
U Ciq'^,  
1]hMA\x  
'|FM|0~-J  
c7iu[vE'+  
() J=\Y4- "  
E0)v;yRcw  

;OdUH  
'kh%^_FH7  
8|d[45*q  
4yBe(&N-d  
  then Qy6Avw/$  
strSql = Select * from & tblname ,%KB\;1mn'  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) (j-(fS
 
Response.Write >Mvt;'c  
for i=0 to rs.Fields.count-1 tS!~>X  
  Response.Write & rs.fields(i).name & gcv,]v8  
next N}dJ)<(2~  
Response.Write pg>P]a{  
While Not Rs.Eof "V9!srIC  
  Response.Write RisrU  
  for i=0 to rs.fields.count -1 !o.g2  
        Response.Write & Rs.Fields(i).Value &   Tl=vgs1  
  next 2}}~\C}o+  
  Response.Write       U3za}3  
  Rs.MoveNext RsV<*s  
Wend t8P>s})[4  
Set Rs = Nothing 55!9U:{  
end if ^MddfBwk  
  % > @8CD@SDv  
;<MaCtDt  
(O<lVz@8  
ikxSWO_Y=  
hG ]jm  
转自： ASP教程采集