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

0 then HiEQs|""'  
Response.Write 错误 ： & err.description & 5](,N^u{):  
response.end #Kt5+"+7  
End if v7mg8'  
End Sub uZ+vYF^  
Sub EndDB() BV eIj }  
Set objOraDB = Nothing m`#UV-$J  
Set objOraSession = Nothing "tz`@3,5dN  
End Sub w%eEj.MI|i  
Function getTableList(str) k!{h]D0  
Dim strSql,strTmp w C-x'  
Dim objRs T^H`$;\  
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 z6'l" D'h  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) :PP!v
!vk  
While Not objRs.Eof DHh30b$c  
strA = objRs(uname) & . & objRs(tname) ;k8U5=6a  
fX}dQN~z  
If str=strA then !==C@cH<N  
strTmp = strTmp & & strA & zqm/<]A*l  
Else ;c|G  
strTmp = strTmp & & strA & 4n/CSAT1  
End if 8[d6 s  
objRs.MoveNext q@}tv=}  
Wend GtkZ%<KF9  
Set objRs = Nothing ;xjw'%n,  
getTableList = strTmp =EUi|T4:  
End Function ?Bsc;:KF  
% > !N\i9w}  
::!{f+Up  
&u0on)E  
kx07Ium  
#RP7?yGM,  
All Tables : L%fJH_$_s  
i~.9B7hdE  
XZ_vbYTj  
Jl{g"N{2u'  
e'&<DE)  
()
Pql;5 ~/  
7-[^0qS  
U&L?IT=x  
;"+]bne~  
@mu=7_$U  
W(jP??up  
  then ])mYE }g  
strSql = Select * from & tblname 5j#XNc)"  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) dPyZzMes=  
Response.Write ){"-J&@?  
for i=0 to rs.Fields.count-1 7hl,dtn7  
  Response.Write & rs.fields(i).name & ' O d_:]  
next we2D!Ywr  
Response.Write 9pq-"?vHY0  
While Not Rs.Eof SAN/fnM  
  Response.Write  ui1h M  
  for i=0 to rs.fields.count -1 fC!+"g55  
        Response.Write & Rs.Fields(i).Value &   (zhi/>suG  
  next -+&sPrQ  
  Response.Write       Xv?'*2J  
  Rs.MoveNext |Whkq/Zg  
Wend [+>cW0a  
Set Rs = Nothing uOQl;}Lk5  
end if A9ru]|?  
  % > Ui05o7xg~p  
QxeK-x^  
.{66q#.  
H]&^>Pvh  
ZR@PqS+O/  
转自： ASP教程采集