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

0 then MOyQ4<_  
Response.Write 错误 ： & err.description & 77OH.E|$  
response.end 16o3ER  
End if A1p;Ye
>o~  
End Sub 5-}4jwk  
Sub EndDB() "}|n;:r  
Set objOraDB = Nothing Fk>
/  
Set objOraSession = Nothing rZZueYuXO  
End Sub jj#K[@u  
Function getTableList(str) dKw*L|5  
Dim strSql,strTmp '1=t{Rw
 
Dim objRs &?*M+q34  
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[l},nw  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) KLs%{'[7:  
While Not objRs.Eof JcZs\ fl9  
strA = objRs(uname) & . & objRs(tname) }7vX4{Yn  
lx~!FLn  
If str=strA then u Y/Q]NT  
strTmp = strTmp & & strA & 'uBW1,  
Else F`U%xn,  
strTmp = strTmp & & strA & 4_`+&  
End if Z*nC ;5Kd  
objRs.MoveNext DVRE;+Jt  
Wend C2,,+* v  
Set objRs = Nothing waW2$9O  
getTableList = strTmp %?_pSH}$!  
End Function AU$W=Z*  
% > gec<5Ewg  
_;{n+i[  
{Os$Uui37\  
d> `9!)  
3*3WO
,9  
All Tables : v'S}&zmF]  
@P4fR7  
1/3Go97/qV  
<n>Kc}
c  
H6x~mZu_:T  
() ^:\|6`{n  
g` 6Xrf  
2md1GWyP  
G{i}z^n  
jhUab],  
6?Rm>+2>v  
  then d /jO~+jP  
strSql = Select * from & tblname MSoLx' <  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ,+KZn}>  
Response.Write pRD8/7@(B{  
for i=0 to rs.Fields.count-1 *]p]mzc  
  Response.Write & rs.fields(i).name & qXkc~{W_  
next !!b5vzyve  
Response.Write Z[yQKy  
While Not Rs.Eof ^vLHs=<  
  Response.Write "?EA G  
  for i=0 to rs.fields.count -1 dOqn0Z  
        Response.Write & Rs.Fields(i).Value &   :z56!qU  
  next `)&-;CMY  
  Response.Write       PtCwr)B,  
  Rs.MoveNext mZDrvTI'  
Wend jmmm0,#D  
Set Rs = Nothing n@mW
BUM  
end if } '.l'%  
  % > [2gK^o&t  
[iwn"e  
=da_zy  
 Y5$5qQ  
7@$Hua,GY  
转自： ASP教程采集