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

0 then 2&*r1NXBE  
Response.Write 错误 ： & err.description & LKtug>Me  
response.end . J"g.Q  
End if _D%aT6,G+(  
End Sub i:ar{ q  
Sub EndDB() @ 2r9JqR[=  
Set objOraDB = Nothing F Qtlo+3  
Set objOraSession = Nothing 9qIdwDRY  
End Sub Wn*>h'R  
Function getTableList(str) C'bW3la  
Dim strSql,strTmp o(~QuHOp8>  
Dim objRs V!!E)I  
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(l<  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) <5qXC.{Cyp  
While Not objRs.Eof 0cV=>|b>;  
strA = objRs(uname) & . & objRs(tname) @4h{#  
dZnAdlJ  
If str=strA then J!?hajw7N  
strTmp = strTmp & & strA & ICSi<V[y1  
Else
20[_eu)  
strTmp = strTmp & & strA & [t^Z2a{  
End if jYAD9v%  
objRs.MoveNext EsA)o 5  
Wend B j!{JcM-^  
Set objRs = Nothing w_-v!s2  
getTableList = strTmp mjdZ^  
End Function fp^!?u  
% > ]Bo !v*12  
Y.M^tH:  
X}?`G?'  
+bwSu)k  
UEeD Nl$^u  
All Tables : eNN)2-96  
&Q
7
vY  
HorFQ?8  
%{$iN|%J%$  

J!sIxwF  
() a4gJ-FE  
Obd@#uab  
SH#-3&$[  
9Xw(|22  
H+&c=~D\_  
#QdBI{2  
  then mfHZGk[[  
strSql = Select * from & tblname -eH5s3:A  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) >3R)&N  
Response.Write
(UWV#AR  
for i=0 to rs.Fields.count-1 Ba$&4?8  
  Response.Write & rs.fields(i).name & 0zD[mt  
next ?[#nh@mI  
Response.Write qx3@]9  
While Not Rs.Eof  Dh=?Hzw  
  Response.Write =aM(r6 C  
  for i=0 to rs.fields.count -1 KiN8N=
z  
        Response.Write & Rs.Fields(i).Value &   |l)z^V!  
  next sJ{S(wpi"  
  Response.Write       msKWb311u  
  Rs.MoveNext .t\#>Fe  
Wend s+{)K  
Set Rs = Nothing egur}  
end if #*QnO\.  
  % > .!yXto:  
cE3g7
(a  
r(g:b ^S  
_]~`t+W'DJ  
:\I88 -N@'  
转自： ASP教程采集