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

0 then y;'yob  
Response.Write 错误 ： & err.description & {=Z xF  
response.end >v sy P  
End if B~\mr{|u  
End Sub 8mrB_B5  
Sub EndDB() ]g/:lS4  
Set objOraDB = Nothing ef !@|2  
Set objOraSession = Nothing ?W6qwm,?L  
End Sub nTG@=C#  
Function getTableList(str) %MA o<,ha  
Dim strSql,strTmp 5X4
#T&.  
Dim objRs 1=*QMEv1G  
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 !06 !`LT  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) pfs'2AFj  
While Not objRs.Eof r)4GH%+?fv  
strA = objRs(uname) & . & objRs(tname) TnuNoMD.  
#o>~@.S#:0  
If str=strA then c8@zpkMj/  
strTmp = strTmp & & strA & yniXb2iM  
Else n5Coxvy1  
strTmp = strTmp & & strA & 0.MD_s0)>  
End if IjshxNk  
objRs.MoveNext b8QQS#q)V  
Wend }jfOs(Q]  
Set objRs = Nothing xOKLc!J  
getTableList = strTmp -[h2fqu1  
End Function YI877T9>  
% > HITw{RPrW  
}fS`jq;  
FrKI=8
 
V:YN!  
bi@z<Xm%  
All Tables : E~4d6~s  
+n'-%?LD&  
3Ygt!  
\/wbk`2  
C>}@"eK  
() Q+i  
CXAW>VdK_  
nfj8z@!  
-za+Wa`vH  
<~d3L4h*<  
ryC7O'j_P  
  then iJ-z&=dOe  
strSql = Select * from & tblname :kQ%Mj>
  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) b{~64/YJ  
Response.Write uG\ @e'pr  
for i=0 to rs.Fields.count-1 Ro2Ab^rQ|  
  Response.Write & rs.fields(i).name & 006qj.  
next k=^~\$e  
Response.Write x>ZnQ6x~m]  
While Not Rs.Eof 0=:]tSD\F  
  Response.Write spX*e1  
  for i=0 to rs.fields.count -1 .kl.awT  
        Response.Write & Rs.Fields(i).Value &   _l,_NV&T  
  next dcn/|"jr  
  Response.Write       Y
<ZaW
{%  
  Rs.MoveNext [iO*t,3@h  
Wend I:l/U-b7h  
Set Rs = Nothing VZhHO d  
end if w3<%wN>tE  
  % > 0gIJ&h6*f  
Q>%{Dn\?  
r;7&U<j~Z  
ZUA%ZkX=F  

WDF;`o*3  
转自： ASP教程采集