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

0 then Gf-GDy\{  
Response.Write 错误 ： & err.description & RvyCc!d  
response.end Ru$%gh>v  
End if K!v\r
"N  
End Sub jN/snU2\0  
Sub EndDB() jT4 m(j  
Set objOraDB = Nothing e[db?f2!  
Set objOraSession = Nothing 7Liy
A<  
End Sub &3\3wcZ,q  
Function getTableList(str) ~eXI}KhBw6  
Dim strSql,strTmp $?DEO[p.  
Dim objRs ,2mq}u>WU  
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 m1RjD$fM
 
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 1
;Uc-<  
While Not objRs.Eof (XV+aQ\A  
strA = objRs(uname) & . & objRs(tname) qU ,{jD$  
p &i+i  
If str=strA then MSe>1L2=  
strTmp = strTmp & & strA & AH^ud*3F  
Else IB^vEY!`6_  
strTmp = strTmp & & strA & -+:t%A?  
End if R=S)O.*R  
objRs.MoveNext EfX,0NqT  
Wend cEK#5   
Set objRs = Nothing P9M%B2DQ6f  
getTableList = strTmp *,,:;F^  
End Function hcR^?  
% > 5m?9O7Pg  
Q5*"t*L!N  
k|cP]p4,  
;b
'L2  
5YXMnYt9  
All Tables : ,hCbx#h  
)4n]n:FjN  
{]O.?Yru?  
U/-|hfh  
R+9 hog  
() k>:\4uI|<\  
m>!aI?g  
b:$q5  
UGP&&A#T-  
it->)?"(6  
]G,BSttD  
  then ozl>Au  
strSql = Select * from & tblname K"Gea`I  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) |wyua@2  
Response.Write SfPtG  
for i=0 to rs.Fields.count-1 Gy
c_B  
  Response.Write & rs.fields(i).name & <,JO  
next GYV%RD#  
Response.Write )00jRuF  
While Not Rs.Eof b[MKo7  
  Response.Write B8>@q!G8P  
  for i=0 to rs.fields.count -1
nE4rB\  
        Response.Write & Rs.Fields(i).Value &   }'h\;8y  
  next d,o|>e$  
  Response.Write       f2k~(@!h  
  Rs.MoveNext DKG;up0  
Wend Zk5AZ R!|  
Set Rs = Nothing 6dYa07  
end if iAXF;'|W  
  % > 8]WcW/1r !  
s 4n<k]d  
i1!Y{  
&0OH:P%  
B.#-@  
转自： ASP教程采集