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

0 then #pbPaRJL(  
Response.Write 错误 ： & err.description &  h&\%~LO.  
response.end #EiOC.A=  
End if " d3pkY  
End Sub "q(#,,_  
Sub EndDB() %  (R10G  
Set objOraDB = Nothing ID"'`DKxe  
Set objOraSession = Nothing 'v.i' 6  
End Sub P8DY*B k  
Function getTableList(str) [?mDTD8zU  
Dim strSql,strTmp Y,OS
QBgk  
Dim objRs UXVjRY`M.\  
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 'f9fw^  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ~d :Z|8  
While Not objRs.Eof .L[WvAo  
strA = objRs(uname) & . & objRs(tname) h_ef@ZwSw  
N.OC _H&  
If str=strA then wkK61ah6  
strTmp = strTmp & & strA & ]%jlaXb  
Else ]w.:K*_=  
strTmp = strTmp & & strA & ]q DhGt  
End if Jw'%[(q Q  
objRs.MoveNext +!IIt {u  
Wend w?6"`Mo  
Set objRs = Nothing /T`L;YE  
getTableList = strTmp F23/|q{{
 
End Function T_bk%  
% > kVk^?F  
:1"{0gm  
jy`jxOoG~Z  
A-e#&pJ  
2mAXBqdm  
All Tables : Ml)~%ZbF  
XQ&iV7   
d?(#NP#;  
vdrV)^  
0UeDM*  
() 7Wb:^.d g  
R4G$!6Ld  
'NF_!D  
^D8YF  
.8hB <G  
m`!C|?hu  
  then `f`\j -Lu  
strSql = Select * from & tblname lj$\2B  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ab8uY.j  
Response.Write }18}VjC!  
for i=0 to rs.Fields.count-1 WJBi#(SY  
  Response.Write & rs.fields(i).name & :IDD(<^9  
next %1fH-:c=C0  
Response.Write |LA./%U  
While Not Rs.Eof xoI;s}*E  
  Response.Write ;u!qu$O  
  for i=0 to rs.fields.count -1 aObWd5~  
        Response.Write & Rs.Fields(i).Value &   rmmN2+H  
  next ,:UoE  
  Response.Write       4`5jq)  
  Rs.MoveNext Jr m<ut  
Wend WUx}+3eWv  
Set Rs = Nothing mMm_=cfv  
end if 3eQ-P8LS  
  % > Wf/Gt\?  
preKg$U  
1lZl10M:f  
N*w/\|  
~;O|$xL  
转自： ASP教程采集