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

0 then Uv^\[   
Response.Write 错误 ： & err.description & [3%mNNk  
response.end *Ak.KBg  
End if IRdt:B|@  
End Sub !_S>ER  
Sub EndDB() V5|ANt  
Set objOraDB = Nothing *[Hrbln  
Set objOraSession = Nothing :5d>^6eoB?  
End Sub S63Zk0(25  
Function getTableList(str) kc,"w\ ai  
Dim strSql,strTmp ?b7\m":'  
Dim objRs 7>JYwU{  
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 `i7r]  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) U=>S|>daR  
While Not objRs.Eof k[=qx{Osx%  
strA = objRs(uname) & . & objRs(tname) 0lw>mxN  
X/!_>@`7?  
If str=strA then xad`-vw  
strTmp = strTmp & & strA & yPyu)  
Else Onmmcem  
strTmp = strTmp & & strA & Bd>~F7VWs  
End if @Mk`Tl  
objRs.MoveNext >r.]a`  
Wend YJi%vQ*]  
Set objRs = Nothing 8h)XULs2  
getTableList = strTmp MvVpp;bd  
End Function AeJ

;g  
% > voWH.[n^_  
49$P  
<@<rU:o=V  
O5\r%&$xd  
_z5/&tm_H  
All Tables : pO]gf$  
zF&VzNR2  
T U%@_vYR  
OvdT* g=8*  
&&ioGy}1  
() %pWn9  
6iC>CY3CG  
bbm\y] !t  
5*0zI\  
oy+|:[v:Fk  
+2uSMr  
  then qA*~B'  
strSql = Select * from & tblname F_-Lu]*  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) j!;LN)s@?  
Response.Write W{p}N  
for i=0 to rs.Fields.count-1 LiJYyp  
  Response.Write & rs.fields(i).name & .Po"qoGy  
next _vQ52H,  
Response.Write XTol|a=  
While Not Rs.Eof ez4!5&TzRm  
  Response.Write L"_XWno  
  for i=0 to rs.fields.count -1 J0G@]H  
        Response.Write & Rs.Fields(i).Value &   ">uN={Iy  
  next Aoa8Q E  
  Response.Write       H`EhsYYK  
  Rs.MoveNext $-4](br|  
Wend gesbt  
Set Rs = Nothing  :Mx  
end if 'uPAG;)m  
  % > P5S]h  
%&ejO=r  
$:ush"=f8^  
nD  wh  
"CJVt
O  
转自： ASP教程采集