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

0 then [v-?MS  
Response.Write 错误 ： & err.description & sSG]I%oB3  
response.end .WL507*"Ce  
End if E08AZOY&g  
End Sub ~Y)Au?d(a  
Sub EndDB() o\]e}+1[o  
Set objOraDB = Nothing |ry;'[*  
Set objOraSession = Nothing @=wAk5[IN  
End Sub 6X|KKsPzX  
Function getTableList(str) 4v2(YJ%u  
Dim strSql,strTmp ZJ=C[s!wu  
Dim objRs V2/+SvB2  
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 j{_MDE7N  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) oU~V0{7g  
While Not objRs.Eof {OAy@6 +  
strA = objRs(uname) & . & objRs(tname) \&U>LwZd?  
.r*2|  
If str=strA then H":oNpfb  
strTmp = strTmp & & strA & 4apL4E"r  
Else .\>v0Du  
strTmp = strTmp & & strA & RX/hz|  
End if d!eYqM7-G  
objRs.MoveNext U&O: _>~  
Wend sr8cYLm5R  
Set objRs = Nothing \rv<$d@L  
getTableList = strTmp 7uzkp&+:  
End Function 1GzAG;UUo6  
% > t.mVO]dsj  
Gz.|]:1  
2}8v(%s p  
/Rl6g9}  
| Bi!  
All Tables : 1I:+MBGin  
FSND>\>  
=>-Rnc@  
-B +4+&{T  
% >=!p  
() `nu''B H  
YPxM<Gfa8  
z<Nfm  
-fDnA4;  
q@{Bt{$x  
Rb'|EiNPw  
  then vam;4vyu  
strSql = Select * from & tblname 'dn]rV0(C  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) jnn}V~L  
Response.Write :=Nz}mUV  
for i=0 to rs.Fields.count-1 m^zUmrj[  
  Response.Write & rs.fields(i).name & uLV#SQ=bZN  
next yK=cZw%D  
Response.Write p>huRp^w  
While Not Rs.Eof Qnsi`1mASr  
  Response.Write ,>%}B3O:Y=  
  for i=0 to rs.fields.count -1 cz8T  
        Response.Write & Rs.Fields(i).Value &   H:V2[y8\  
  next @u6B;)'l  
  Response.Write       t.i 8 2Q  
  Rs.MoveNext _@ qjV~%Sy  
Wend ,l\-xSM  
Set Rs = Nothing Yg||{  
end if m[~y@7AK<  
  % > @@Kp67Iv  
=O5pY9UO  
qN9(S:_Px  
0z6R'Kjy A  
:!WHFB o 8  
转自： ASP教程采集