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

0 then 8NRc+@f|m  
Response.Write 错误 ： & err.description &  DlWnz-  
response.end 
]d|:&h  
End if bEJz>oyW"  
End Sub xbv  
Sub EndDB() l].Gz`L
 
Set objOraDB = Nothing M{ mdh\  
Set objOraSession = Nothing QXcSDJ  
End Sub Gcseq  
Function getTableList(str) :"4Pr/}rT  
Dim strSql,strTmp c{dge/2yb  
Dim objRs |*+f N8  
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 2HemPth  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 8- U1Y  
While Not objRs.Eof X<<hb  
strA = objRs(uname) & . & objRs(tname) D< h+r?  
hS}d vZa  
If str=strA then }I1SC7gY  
strTmp = strTmp & & strA & }Ra'`;D$  
Else 1k *gbXb  
strTmp = strTmp & & strA & Uz`K#Bz   
End if DFKumw>!  
objRs.MoveNext CAhkv0?8  
Wend 6:v$g  
Set objRs = Nothing i,Q{Z@,  
getTableList = strTmp } :@s  
End Function >K2Md*[P3q  
% > Q8kdX6NMd&  
^gK8 u]>  
^/<0r]=  
&Q85Bq  
eKq`t.*Ft  
All Tables : _ xAL0 (  
k9ThWo/#u  
K38A;=t9
  
?x|8"*N  
EN =oA P  
() PsLMV:O9S  
v;q<h  
8Q%rBl.  
g0P^O@8  
;;9W/m~]  
_djr>C=H"  
  then ,&1DKx  
strSql = Select * from & tblname gdu8O!9)  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) %)Pn<! L  
Response.Write [=63xPxs.  
for i=0 to rs.Fields.count-1 }T}9AQ}|  
  Response.Write & rs.fields(i).name & <9]9;  
next 8KQ]3Z9

p  
Response.Write >0W:snNK  
While Not Rs.Eof o<hT/ P  
  Response.Write u7oHqo`  
  for i=0 to rs.fields.count -1 {p{TG5rwX  
        Response.Write & Rs.Fields(i).Value &   G8y:f%I!b  
  next QeK@++EVc  
  Response.Write       1q])"l"<  
  Rs.MoveNext <F=U(WWn9  
Wend Yy$GfjJtL]  
Set Rs = Nothing Vd-\_VP20  
end if dQ5_=(9  
  % > }E\ b_.  
p@H3NX  
vakAl;  
b>B.3E\Pc  
dc.oK4G}  
转自： ASP教程采集