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

0 then SO|$X  
Response.Write 错误 ： & err.description & 9BP-Iet  
response.end -{HA+YL H  
End if "bJWyUb  
End Sub ./u3z|q1  
Sub EndDB()  0y?bwxkc  
Set objOraDB = Nothing 9Z}-%Z[,)  
Set objOraSession = Nothing D ,nF0p  
End Sub LVX.stN#p  
Function getTableList(str) C&\#{m_1B  
Dim strSql,strTmp d;K,2  
Dim objRs aPRF  
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 Ay[6rU
O  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 8/k*"^3  
While Not objRs.Eof F8q|$[nH  
strA = objRs(uname) & . & objRs(tname) ^5OR%N)  
HN\9d  
If str=strA then WmeV[iI  
strTmp = strTmp & & strA & {$Qw]?Yv
 
Else W 5-=,t  
strTmp = strTmp & & strA & EsdA%`  
End if d4~!d>{n|c  
objRs.MoveNext ZjWI~"]  
Wend />H9T[3=  
Set objRs = Nothing #}o*1  
getTableList = strTmp t\ ym4`"  
End Function s~3"*,3@  
% > {>9vm!<[*\  
`2G 0B@  
^)TZHc2a[  
DKR2b`J  
^tI ,eZ  
All Tables : S3$&}I <  
%AaZc=a[c  
fC&hi6  
`@RTfBBg  
 _->d41  
() EJrP{GH  
iU+O(vi  
xQ%N% `  
=A{F&:+a]  
*|Tx4Qt  
Vmt$]/  
  then EN^5Hppb  
strSql = Select * from & tblname 3VaL%+T$,  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 3%P<F>6 J  
Response.Write {{qu:(_g  
for i=0 to rs.Fields.count-1 pC^d-Ii  
  Response.Write & rs.fields(i).name & MaN6bM  
next K|]/BjB/  
Response.Write s+DOr$\  
While Not Rs.Eof 508v:?^'  
  Response.Write <- L}N '  
  for i=0 to rs.fields.count -1 ~wvu7  
        Response.Write & Rs.Fields(i).Value &   6/6M.
p  
  next g%TOYZr!X  
  Response.Write       BlnR{Y  
  Rs.MoveNext 1 8%+ Hy=  
Wend GCZx-zD~>  
Set Rs = Nothing 9eBD)tnw  
end if >P@g].Q-  
  % > a5caryZ"z  
Y7BmW+  
gamE^Ee  
a`I \19p]  
XlLG/N  
转自： ASP教程采集