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

0 then cL;%2TMk  
Response.Write 错误 ： & err.description & 1EC;t1.7  
response.end HuU$x;~  
End if z\" .(fIV  
End Sub tY!l}:E[  
Sub EndDB() ']+!i a  
Set objOraDB = Nothing J[hmY=,  
Set objOraSession = Nothing >P\eHR,{-  
End Sub c_M[>#`  
Function getTableList(str) jWi~Q o+  
Dim strSql,strTmp BmccSC;o4  
Dim objRs : xg
go  
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 &']  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) F'|e:h  
While Not objRs.Eof ?CC.xE  
strA = objRs(uname) & . & objRs(tname) T6=|)UTe1  
j2u'5kJ G  
If str=strA then 5y\35kT'  
strTmp = strTmp & & strA & 7Hgn/b[?b  
Else <*dcl2xS  
strTmp = strTmp & & strA & 6-TYOUm  
End if 1IS1P)4_0  
objRs.MoveNext Dykh|"  
Wend f5b|,JJ  
Set objRs = Nothing 3!fR'L/
i  
getTableList = strTmp F --b,,  
End Function j%-Ems*H  
% > ~ho,bwJM[T  
F8{gJaP x  
{Bk` Zlki  
3\ Mt+!1{  
t!6uz  
All Tables : a=A12<  
pI8z.JD  
Tj_K5uccU}  
UXdc'i g  
Qj_)^3`e  
() zuW4gJ  
HR8YPU5  
I *sT*;U  
8Q<Nl=g>'  
R%\3
[  
<PuY"-`/Oc  
  then Q<;EQb#  
strSql = Select * from & tblname U:n~S  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) CLVT5pj='  
Response.Write _|0#  
for i=0 to rs.Fields.count-1 &dmIv[LU  
  Response.Write & rs.fields(i).name & :.]EM*p?GV  
next %7aJSuQN%  
Response.Write *GBV[D[G,  
While Not Rs.Eof (@xC-
*  
  Response.Write ?hc=w2Ci  
  for i=0 to rs.fields.count -1 vfv?QjR  
        Response.Write & Rs.Fields(i).Value &   ~/-SKGzo-  
  next ;nW;M 4{  
  Response.Write       R3lZ|rxv:  
  Rs.MoveNext ecz-jZ! `  
Wend Y,Z$U| U  
Set Rs = Nothing stUv!   
end if xW5`.^5  
  % > [m h>N$  
`^hA&/1  
:.XlAQR~b  
 ~,&8)1  
f>C+l(  
转自： ASP教程采集