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

0 then l*l*5hA  
Response.Write 错误 ： & err.description & Qu|CXUk  
response.end =F+v+zP7P  
End if UF+Qx/4h0  
End Sub 2>o[  
Sub EndDB() ZDW9H6ux  
Set objOraDB = Nothing i<Z%  
Set objOraSession = Nothing ?Bf>G]zx  
End Sub Yc[umn^K  
Function getTableList(str) `w!XO$"]Z  
Dim strSql,strTmp AR[m+E  
Dim objRs u`'"=Y_E  
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 E0ED[d,  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ^8 VW$}  
While Not objRs.Eof KW:N 6w  
strA = objRs(uname) & . & objRs(tname) B%tF|KKj  
$7q3[skH  
If str=strA then 4aHogheg  
strTmp = strTmp & & strA & neFwxS?  
Else oxxuw Dcl  
strTmp = strTmp & & strA & bv4umL /  
End if ^L%_kL_7  
objRs.MoveNext t\,Y<9{w  
Wend n{gEIUo
#  
Set objRs = Nothing q%sZV>  
getTableList = strTmp lE
k@I"  
End Function -P
pcFLZ|  
% > :;_
khno  
:9hGL  
(4FVemgy  
%axr@o[  
x_Ev2 c'4  
All Tables : Ja6KO2}p  
>+{WiZ`  
t'eaR-  
Wk[a|>  
BgXZr,?  
() 6l\5J6x  
rg^\gE6_  
Z!g6uV+.5  
bB$f=W!m%  
l|.}>SfL^u  
UyRy
>:n  
  then lsax.uG5x  
strSql = Select * from & tblname CzBYH
 
Set Rs = objOraDb.DbCreateDynaset(strSql,0)  ;+~5XLk  
Response.Write .`IhxE~mN  
for i=0 to rs.Fields.count-1 Em!- W5*s  
  Response.Write & rs.fields(i).name & E&8Nh J  
next i)x0]XF  
Response.Write ov+{<0Q  
While Not Rs.Eof GxhE5f;  
  Response.Write v6 5C j2ec  
  for i=0 to rs.fields.count -1 v.]{b8RR  
        Response.Write & Rs.Fields(i).Value &   $5XAS  
  next Cfi4~&  
  Response.Write       BdD]HXB|_  
  Rs.MoveNext %r|sb=(yT  
Wend YYT;a$GTo  
Set Rs = Nothing M86"J:\u]  
end if p)SW(pS  
  % > mOJdx-q?r  
BeUyt  
] hT\"5&6  
5M>h[Q"R  
j-9)Sijj{  
转自： ASP教程采集