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

0 then Y8flrM2CwG  
Response.Write 错误 ： & err.description & = k\J<  
response.end :qC'$dO!
 
End if r1RGTEkD  
End Sub 1CLL%\V  
Sub EndDB() 5n
bEf9&  
Set objOraDB = Nothing {Ay"bjZh  
Set objOraSession = Nothing 26CS6(sn  
End Sub 6(PM'@i  
Function getTableList(str) @{Gncy|  
Dim strSql,strTmp E7-@&=]v  
Dim objRs \"hJCP?,  
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 A!^q J#  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) &^4++  
While Not objRs.Eof qZ@s#UiB  
strA = objRs(uname) & . & objRs(tname) w3jO6*_ M  
yCCrK@{oo  
If str=strA then r(gXoq_w  
strTmp = strTmp & & strA & !?Wp+e6  
Else }@.|?2b +  
strTmp = strTmp & & strA & !A48TgAeE  
End if ]qhPd_$?D'  
objRs.MoveNext EJ2yO@5O  
Wend >:lnt /N3  
Set objRs = Nothing YuB+k^  
getTableList = strTmp G@j0rnn>B  
End Function ,@5I:X!rR  
% > nB .
G  
vTn}*d.K=  
Y))NK'B5  
^j7azn  
r&FDEBh  
All Tables : 6-O_\Cq8  
bJs9X/E  
$ `7^+8vHV  
_YRE (YZ/  
43=,yz2Ef  
() $ MC)}l  
5atYOep  
8_N]e'WUh  
.1LCXW=  
$8BPlqBIZ  
 W%\C_  
  then r7qh>JrO  
strSql = Select * from & tblname 3do)Vg4  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) |fo0  
Response.Write 5eWwgA  
for i=0 to rs.Fields.count-1 B$Kn1 k  
  Response.Write & rs.fields(i).name & "yW:\   
next p)+k=b  
Response.Write n0is\ZK 0  
While Not Rs.Eof NFv>B>  
  Response.Write ^Ox3XC  
  for i=0 to rs.fields.count -1 zl`h~}I  
        Response.Write & Rs.Fields(i).Value &   8g7<KKw  
  next -44&#l^}_u  
  Response.Write       j)q\9#sI/(  
  Rs.MoveNext &4_qF^9J  
Wend NF? vg/{  
Set Rs = Nothing CD8}I85K  
end if mx=BD'  
  % > 33}oO,}t,  
U,LTVYrO  
 Tgl}  
A<ynIs<  
G$sA`<<  
转自： ASP教程采集