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

0 then w~p4S+k&  
Response.Write 错误 ： & err.description & 8a?IC|~Pz  
response.end my]P_mE  
End if vyujC`61d  
End Sub g(1"GKg3K  
Sub EndDB() d0TgqO{  
Set objOraDB = Nothing k 5t{  
Set objOraSession = Nothing !%X>rGkc  
End Sub $Q=$?>4U  
Function getTableList(str) mcCB7<. e  
Dim strSql,strTmp 8cB=}XgYS  
Dim objRs eXc[3ceUr  
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 M`(;>Kp7  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ":nI_~q  
While Not objRs.Eof K[n<+e;G  
strA = objRs(uname) & . & objRs(tname) NWeV>;lh9  
=1eV   
If str=strA then $4sAnu]  
strTmp = strTmp & & strA & 1+Sg"?8  
Else N=.}h\{0  
strTmp = strTmp & & strA & Cy]"  
End if 3F;EE:  
objRs.MoveNext haN"/C^  
Wend p1C_`f N,  
Set objRs = Nothing :J<Owh@  
getTableList = strTmp .iN-4"_j1  
End Function %s]U@Ku(a  
% > u4@, *tT  
Ct-rD79l  
.vN)A *  
\A` gK\/h  
6Q?BwD+>  
All Tables : C+DG+_%V*S  
e
og\pMv  
F
ka1]|j9
 
^tQPJ  
 b$PT_!d  
() r4;^c}
 
lp?i_p/z  
v`@5enr  
P)a("XnJ`  
,xm;JXJ  
D1oaG
0  
  then IvY,9D  
strSql = Select * from & tblname 0~Um^q*'3  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) B?$S~5  }  
Response.Write Z83q-  
for i=0 to rs.Fields.count-1 &8pCHGmV)  
  Response.Write & rs.fields(i).name & cdd P T  
next =ZxW8DK  
Response.Write Pn~pej5'K  
While Not Rs.Eof xgZV0!%  
  Response.Write .CIbpV?T  
  for i=0 to rs.fields.count -1 b #o}=m  
        Response.Write & Rs.Fields(i).Value &   }IxY(`:qs  
  next aeN}hG  
  Response.Write       {JCSR2BB  
  Rs.MoveNext #j(q/ T{x  
Wend QCZ,K"y  
Set Rs = Nothing K0d-MC  
end if RTdD]pE8Q  
  % > 6ON  
.6lY*LI  
<Tj"GVZAEO  
0X] ekq  
F'$9en2I:  
转自： ASP教程采集