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

0 then E $@W~).!  
Response.Write 错误 ： & err.description & HGDrH   
response.end l
90mM'[  
End if :]^e-p!z  
End Sub Ej(Jj\  
Sub EndDB() :HkBP90o  
Set objOraDB = Nothing +&Ld`d!n  
Set objOraSession = Nothing tgK I
 
End Sub '$K E=Jy  
Function getTableList(str) jVj5; }  
Dim strSql,strTmp XIeLu"TSL  
Dim objRs ~Iu!B Y  
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 RK>Pe3<  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) K7+yU3  
While Not objRs.Eof WSkGVQu  
strA = objRs(uname) & . & objRs(tname) h+f>#O+:  
0B NLTRv  
If str=strA then > VG  
strTmp = strTmp & & strA & H",B[ YK  
Else _'u]{X\k{J  
strTmp = strTmp & & strA & a|aVc'j  
End if bLgH3[{  
objRs.MoveNext kNEEu!G  
Wend Lsmcj{1d  
Set objRs = Nothing C|
(A/b  
getTableList = strTmp nV;'UpQw  
End Function RgE`Hr  
% > \oQ]=dDCd%  
DDg\oGLp  
@ D+ft
b/  
'Wonz<{'  
UkV?,P@l  
All Tables : a^|DD#5  
dhl[=Y` Q  
g*|j+<:7  
%\As  
7io["zW  
() yzA05npTl  
@=Kq99=\U  
}{aGh I~<  
Lpchla$
 
pJpapA2l*6  
qtGJJ#^,  
  then .1x04Np!  
strSql = Select * from & tblname ^
rkKE dd  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) [uq>b|`RG  
Response.Write pMc6p0  
for i=0 to rs.Fields.count-1 THA9OXP  
  Response.Write & rs.fields(i).name & hG
Rj  
next 90}{4&C.^  
Response.Write QFyL2Xes/  
While Not Rs.Eof mCtS_"W  
  Response.Write 8s%/5v"  
  for i=0 to rs.fields.count -1 ^S9y7b^;r  
        Response.Write & Rs.Fields(i).Value &   R`?l.0  
  next 4JSPD#%f  
  Response.Write       ));#oQol9  
  Rs.MoveNext 5sD,gZ7  
Wend ]|;+2@kDR  
Set Rs = Nothing (}"D x3K
 
end if ,w }Po  
  % > 0P^h6Vat  
R;& >PFmq  
.=_p6_G  
cpY{o^  
Hh<H~s [  
转自： ASP教程采集