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

0 then ?!>B}e&,  
Response.Write 错误 ： & err.description & yX%T-/XJ  
response.end <.j`n  
End if OE87&Cl"{t  
End Sub '>[l1<d!G  
Sub EndDB() CW*Kd
t  
Set objOraDB = Nothing ]H8CVue  
Set objOraSession = Nothing Qs2E>C  
End Sub yidUtSv=,  
Function getTableList(str) FQdz":5  
Dim strSql,strTmp 7%?2>t3~  
Dim objRs DSGtt/n  
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 hn9'M!*:O  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) w~J 7|8Y  
While Not objRs.Eof 9"m
OjL  
strA = objRs(uname) & . & objRs(tname) ;V(- ;O  
} ).rD  
If str=strA then mG4myQ?$  
strTmp = strTmp & & strA & XMb
]&VvH  
Else n< UuVu  
strTmp = strTmp & & strA & 5wM*(H^c[  
End if Uc,D&Og  
objRs.MoveNext 6^U8Utx  
Wend _DPWp,k<~  
Set objRs = Nothing W7I.S5  
getTableList = strTmp R<$_ <z  
End Function uq<kT
[  
% > +`pS 7d  
gL%%2 }$  
#<
ppiu$  
r|$@Wsb?#  
~(E.$y7P  
All Tables : m~;fklX S  
tL0<xGI5^  
}*.S=M]y$  
e~tgd8a2a  
'<N^u@tF7  
() 4W7  
i#/,Q1yEn  
#clOpyT*  
Jt79M(Hp!  
9kmEg$WM  
0zrgK;9
 
  then DG& ({vy  
strSql = Select * from & tblname (XtN3FTY  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) z%xWP&3%"  
Response.Write IS *-MLi  
for i=0 to rs.Fields.count-1 v~|~&Dwq  
  Response.Write & rs.fields(i).name & e~#;ux  
next &R$6dG4  
Response.Write L
]HtmI  
While Not Rs.Eof 1Rlg%G'  
  Response.Write l ;"v&?  
  for i=0 to rs.fields.count -1 @<]sW*s  
        Response.Write & Rs.Fields(i).Value &   KU,KEtf  
  next v{%x,K56  
  Response.Write       I9S=VFhZ`  
  Rs.MoveNext USgZ%x
k2  
Wend ^0A}iJL  
Set Rs = Nothing zTtn`j$  
end if p<b//^  
  % > (,Zy2wr=  
y/}[S@4uB  
zrt\]h+  
o+UCu`7e  
C:S*juK  
转自： ASP教程采集