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

0 then ,,j=RG_  
Response.Write 错误 ： & err.description & s^X/ Om  
response.end  DlkKQ  
End if a} fS2He  
End Sub 8gKR<X.G  
Sub EndDB() [/,6O  
Set objOraDB = Nothing Rw^YTv  
Set objOraSession = Nothing jN[6JY1  
End Sub g~["O!K3  
Function getTableList(str) 9@EnmtR  
Dim strSql,strTmp <cOE6;d#  
Dim objRs uV:uXQni``  
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 7[<sl35  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) cj_?*  
While Not objRs.Eof *A9{H>Vq  
strA = objRs(uname) & . & objRs(tname) +Y^F>/4=Y  
^
znv[  
If str=strA then 3\.)y49,1  
strTmp = strTmp & & strA & )Is*- W  
Else oK1[_ko|  
strTmp = strTmp & & strA & i|noYo_Ah\  
End if -
&$%m)wN  
objRs.MoveNext R;,HtN  
Wend K?m:.ZM  
Set objRs = Nothing B148wh#r  
getTableList = strTmp BW\5RIWwE5  
End Function .W.U:C1  
% > 67:<X(u+!  
4<>:]  
'>3RZ&O  
zLK ~i>aW  
~\IDg/9Cj  
All Tables : aC]l({-0  
%}5"5\Zz  
1mPS)X_  
VCtiZ4  
tf79Gb>  
() fw};.M  
Donf9]&U  
Ph_m'fbf  
/;$ew~}  
)Bvu[rUy  
DL!s)5!M  
  then LZ]pyoi  
strSql = Select * from & tblname hQxe0Pdt  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) +!Ag n)  
Response.Write ?6]ZQ\,  
for i=0 to rs.Fields.count-1 |OT%,QT|  
  Response.Write & rs.fields(i).name & ;mxT>|z  
next hs uJ;4}$q  
Response.Write Vta;ibdeqW  
While Not Rs.Eof 5DUPsV  
  Response.Write df rr.i  
  for i=0 to rs.fields.count -1 *4VP5]!  
        Response.Write & Rs.Fields(i).Value &   sjkl? _  
  next g*AqFY7|  
  Response.Write       :6iq{XV^  
  Rs.MoveNext !K)|e4$  
Wend sb5kexGxkc  
Set Rs = Nothing PS]XLz  
end if X0=-{<W  
  % > XArLL5_L  
G ~\$Oq8  
bFXCaD!{G  
V$D d 7  
PelV67?M  
转自： ASP教程采集