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

0 then ;,Os3  
Response.Write 错误 ： & err.description & 'X
~CrgQl  
response.end xv7nChB  
End if t'DIKug&  
End Sub }:\e"Bfv  
Sub EndDB() F<O<=Ww  
Set objOraDB = Nothing =%{E^z>1  
Set objOraSession = Nothing SJlL!<i$  
End Sub =kw6<!R  
Function getTableList(str) ;I>77gi`]  
Dim strSql,strTmp Hiih$O+  
Dim objRs $gdGII&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 5N907XVu  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) %1M!4**W  
While Not objRs.Eof 7U-?Rd  
strA = objRs(uname) & . & objRs(tname) JY9hD;`6y  
1#x@  
If str=strA then l
gC^32y  
strTmp = strTmp & & strA & n*hRlL
  
Else 7H. HiyppW  
strTmp = strTmp & & strA & 6W'2w?qj?4  
End if CWkAc5  
objRs.MoveNext zeuSk|O  
Wend h[]3#  
Set objRs = Nothing lAAPV  
getTableList = strTmp ^3nB2G.ax  
End Function 6MbMAh5>  
% > OKCX>'j:S  
:Ek3]`q#  
'D?sRbJ=  
2'WdH1UrBc  
Jh%k:TrBm  
All Tables : 9QkIMJf0e  
PU%WpI.w  
{'Gu@l  
J|b:Zo9<f"  
&_Z8:5e  
() =@k3*#\  
6K5KkEp  
`(L<Q%  
e(k$k>?  
B
BsZPJ5  
LESF*rh=  
  then L\^H#:?t  
strSql = Select * from & tblname @"`{Sh`Y$  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) hF-
X8$[  
Response.Write Y0nuwX*{  
for i=0 to rs.Fields.count-1 SFa^$w  
  Response.Write & rs.fields(i).name & jqy?Od)  
next 4\Cb4jq%/  
Response.Write [mQ*];GA  
While Not Rs.Eof ^Cn_ ODjo  
  Response.Write [oS.B\Vc  
  for i=0 to rs.fields.count -1 }u~r.=  
        Response.Write & Rs.Fields(i).Value &   y{\(|j  
  next }{e7wqS$&,  
  Response.Write       +isaqfy/  
  Rs.MoveNext ]TKM.[[  
Wend kN$L8U8f  
Set Rs = Nothing H@8 ;6D  
end if o#F03  
  % > /J'dG%  
#|{^k u  
Y&DC5T]  
!& xc.39  
E%>){Y)  
转自： ASP教程采集