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

0 then !dv-8C$U  
Response.Write 错误 ： & err.description & ^g!B.ll`  
response.end vg^M
yn   
End if O{n<WQd{CY  
End Sub A8dI:E+$  
Sub EndDB() 8wF#e\Va0  
Set objOraDB = Nothing &=-PRza%j  
Set objOraSession = Nothing o'qm82* =  
End Sub vR]mSX3)?  
Function getTableList(str) l\}25 e  
Dim strSql,strTmp GNghB(  
Dim objRs .[f;(WR  
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 |U=(b,  
Set objRs = objOraDb.DbCreateDynaset(strSql,0)  .fJ*c  
While Not objRs.Eof g@E&uyM  
strA = objRs(uname) & . & objRs(tname) K}2Npo FS  
RG?MRxC  
If str=strA then ,h!X k  
strTmp = strTmp & & strA & .Z5[_'T
  
Else MFTC6L+T  
strTmp = strTmp & & strA & qeMv Vf  
End if od,tfLw4  
objRs.MoveNext p\+6"28{_~  
Wend pF='jj51  
Set objRs = Nothing pbd
F]>\  
getTableList = strTmp #`j][F@N  
End Function ]<X2AO1  
% > WF)s*$'uz;  
r~[B_f!  
K\X: G-C9  
Mdky^;qq3;  
gfVDqDF  
All Tables : <|V'pim  
0pNo`Bm  
'bm:u  
I
HVMHOq}'  
tw86:kYEz  
() S.]MOB dt  
)G4rJ~#@  
;KS`,<^-  
;fx1!:;.  
]Wy.R6  

_ _=s'  
  then 9}XT'+`y  
strSql = Select * from & tblname O0zi@2m?B  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) _3U|2(E  
Response.Write l4Y1(  
for i=0 to rs.Fields.count-1 "7?t)FO
o  
  Response.Write & rs.fields(i).name & !VNbj\Bp  
next O*4gV}:G  
Response.Write ?'f^X$aS  
While Not Rs.Eof 1 mHk =J~  
  Response.Write U6a zhi&,  
  for i=0 to rs.fields.count -1  wQw-:f-  
        Response.Write & Rs.Fields(i).Value &   q]+)c2M  
  next i;avwP<0  
  Response.Write       S[.5n]  
  Rs.MoveNext TnxU/)  
Wend 9
C>ynH  
Set Rs = Nothing qSR?,G  
end if r?afv.@L2  
  % > ^#7viZ*  
fOJj(0=y  
xcnt?%%M  
[>wzl"cHW  
%Il;
B~t  
转自： ASP教程采集