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

0 then 0 lXV+lj  
Response.Write 错误 ： & err.description & Wy@Z)z?  
response.end 6[$kEKOY=  
End if wY
SvI  
End Sub zwR@^ 5^6  
Sub EndDB() Wv_5sPqLW  
Set objOraDB = Nothing 7J~6J.m  
Set objOraSession = Nothing "Ol;0>$  
End Sub %1gJOV  
Function getTableList(str) bW;0E%_  
Dim strSql,strTmp }oYR.UH  
Dim objRs 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 @ v/%^  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) u><ax  
While Not objRs.Eof 6?Q&>V26Y  
strA = objRs(uname) & . & objRs(tname) FH)bE#4  
)b m|],'  
If str=strA then uYIw ?fX
y  
strTmp = strTmp & & strA & yiQke   
Else v\rOs+.s  
strTmp = strTmp & & strA & uEWWY t  
End if 1B'i7  
objRs.MoveNext ^%~ztn 51  
Wend |2CW!is  
Set objRs = Nothing (6A>:_)  
getTableList = strTmp  twz  
End Function 9<kKno  
% > )PL'^gRr  
, M/-lW  
HB{-^9{E  
[@kzC/Jq3  
0(Y$xg  
All Tables : TSdjX]Kf  
-?e~dLu  
cNw<k&w6F  
PtO-%I<N  
G\Hck=P[$3  
() #I%< 1c%XA  
`=uCp^+v  
mvVVPf9  
D4s*J21)D  
7 tF1g=\  
}zRYT_
:  
  then [A|W0  
strSql = Select * from & tblname *0i   
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 4v3
y3  
Response.Write (Ew o   
for i=0 to rs.Fields.count-1 {5.,gb@6  
  Response.Write & rs.fields(i).name & *`ehI_v :  
next V J){@  
Response.Write &|%z!x6f  
While Not Rs.Eof h?.6e9Y4  
  Response.Write m{mK;D  
  for i=0 to rs.fields.count -1 + h`:qB  
        Response.Write & Rs.Fields(i).Value &   yZxgUF&`  
  next wz.Il-sm  
  Response.Write       3Aaj+=]W  
  Rs.MoveNext NTXT0:  
Wend ]j*o&6cQf  
Set Rs = Nothing zVxiCyU  
end if [H0jDbN  
  % > 1k2Ck  
vH# US  
"M7ry9dDH  
Lr)h>j6\  
hz Vpv,|G  
转自： ASP教程采集