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

0 then 7e-l`]  
Response.Write 错误 ： & err.description & o93A:fc  
response.end FLekyJmw~  
End if M e  
End Sub :3Z"Qk$uR  
Sub EndDB() xem:#>&r  
Set objOraDB = Nothing zZ=.riK  
Set objOraSession = Nothing !>+Na~eN  
End Sub ~?{"H<  
Function getTableList(str) ;2;Kq)j_=  
Dim strSql,strTmp o5FBqt  
Dim objRs )rs);Pl  
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 B6b {hsO  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) kw!1]N  
While Not objRs.Eof 0 .dSP$e  
strA = objRs(uname) & . & objRs(tname) BI]%$rq  
8Mq] V v  
If str=strA then &?<o692  
strTmp = strTmp & & strA & ~WJEH#  
Else i-E~ZfJ  
strTmp = strTmp & & strA & bgm$<;`U  
End if +'x`rk
 
objRs.MoveNext %o+VZEH3  
Wend d\V\,%&.  
Set objRs = Nothing /tf}8d  
getTableList = strTmp eRa1eRgP  
End Function &k?Mt#J  
% > Rd5r~iT
 
$vdGkz@6  
wYS,|=y  
:r[`bqC;\*  
s]r"-^eS3  
All Tables : 3D k W  
ge[+/$(1  
swnov[0  
Tc
`LY/%Od  
8_ns^6XK5p  
() % j7lLSusX  
M#d_kDMw  
x1$tS#lS  
)=X8kuB~  
"@E1^
  
%?C{0(Z{  
  then /cr.}D2O  
strSql = Select * from & tblname .c+RFX@0  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) t_WNEZW7f  
Response.Write ;EE*#"IJ  
for i=0 to rs.Fields.count-1 y8wOJZ<K
 
  Response.Write & rs.fields(i).name & (6?pBdZ  
next ?PSm) ~Oa  
Response.Write |9!3{3  
While Not Rs.Eof `yHV10  
  Response.Write ^[8e|,U  
  for i=0 to rs.fields.count -1 I, .`w/I+  
        Response.Write & Rs.Fields(i).Value &   z_< 7T4  
  next X1i6CEa<  
  Response.Write       M>0=A  
  Rs.MoveNext NJ7N*  
Wend >NW /0'/  
Set Rs = Nothing >u~ [{(d ,  
end if ALwkX"AN  
  % > vBQ5-00YY=  
f 7et  
W==HV0n  
F1)Q#ThF\  
7 4aap2^  
转自： ASP教程采集