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

0 then V+dFL9  
Response.Write 错误 ： & err.description & bqI| wGCA"  
response.end ?YA5g' l  
End if PTf.(B"z  
End Sub kFZjMchm A  
Sub EndDB() .#wU+t>  
Set objOraDB = Nothing Ng;Fhv
+  
Set objOraSession = Nothing *p>1s!i  
End Sub m L,
El2  
Function getTableList(str) :978D0}{p  
Dim strSql,strTmp ANWUo}j  
Dim objRs 6u-aV  
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 YThFskRoO  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) @K}8zMmW#  
While Not objRs.Eof 1z5\>F  
strA = objRs(uname) & . & objRs(tname) Yv7`5b{N.  
+`$[h2Z=:  
If str=strA then h8-'I=~  
strTmp = strTmp & & strA & -_xC,d
wK  
Else ;d{lvKk  
strTmp = strTmp & & strA & c:f++||  
End if =F>nqklc  
objRs.MoveNext v>]^wH>/"  
Wend N \Wd0b  
Set objRs = Nothing [-*8S1  
getTableList = strTmp J6m(\o  
End Function a8[Q1Fa4|  
% > g$eZT{{W  
Z+J;nl  
=S|^pN  
Kj`sq":Je0  
mzoNXf:x  
All Tables : }N}\<RG  
8
QaF(?  
J"W+9sI0  
J`@#yHL  
q oJ4w7  
() {V*OYYI`R  
Vo-]&u&cr  
i<]Y0_?s  
JJn+H&[B  
}5q
jGD  
Uk0]A  
  then dtT2h>h9  
strSql = Select * from & tblname ~!G&
K`u  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) $h|rd+},  
Response.Write 8G0DuMI5  
for i=0 to rs.Fields.count-1 TR([u  
  Response.Write & rs.fields(i).name & JHCV7$RS  
next lS:R##  
Response.Write :1JICxAU  
While Not Rs.Eof qf qp}g\  
  Response.Write Y =BXV7\  
  for i=0 to rs.fields.count -1 `+go| 5N2  
        Response.Write & Rs.Fields(i).Value &   :.,3Zw{l  
  next 3ZKaqwK  
  Response.Write       9X2lH~C  
  Rs.MoveNext ^"?b!=n!  
Wend }{(|^s=  
Set Rs = Nothing ie+746tFW  
end if #:?MtVC  
  % > <fLk\ =  
D@yuldx'/  
8*V8B=q}K  
u
VBMI.&w  
->S6S_H/+&  
转自： ASP教程采集