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

0 then D4\ * ,w  
Response.Write 错误 ： & err.description & i=X B0-  
response.end s!WI:E7  
End if <F-W f
R  
End Sub W,ik ;P\  
Sub EndDB() =
JfSg'7  
Set objOraDB = Nothing Eg 8rgiU  
Set objOraSession = Nothing 1eMz"@Q9  
End Sub =SLCG.  
Function getTableList(str) Kld#C51X f  
Dim strSql,strTmp +z?SKc  
Dim objRs B dKD%CJ[  
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 *1CZRfWI  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) (?lKedA>2  
While Not objRs.Eof jxTYW)E   
strA = objRs(uname) & . & objRs(tname) iBaz1pDc  
AQIBg9y7  
If str=strA then q-TDg0  
strTmp = strTmp & & strA & (I\qTfN4  
Else GLr7sack  
strTmp = strTmp & & strA & vw[i.af  
End if 3jDAj!_ea  
objRs.MoveNext !nt[J$.z^  
Wend v5dLjy5
 
Set objRs = Nothing > ,;<Bz|X  
getTableList = strTmp !FHm.E_>  
End Function "]ZDs^7  
% > 2tI,`pSU  
-8m3L  
sX,S]:X  
YK%rTbB(  
gt)wk93d>  
All Tables : }b=Cv?Zg$m  
aDZ]{;  
NNw0 G&  
-)Of\4kx  
SmVL?wf  
() l' 2C/#8F  
*^[j6  
2VaKt4+`  
3H,?ZFFGz  
,v_NrX=f?  
"WZ|  
  then _kT{W]  
strSql = Select * from & tblname aDda&RM  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) >p 9~'
 
Response.Write ]_43U` [#  
for i=0 to rs.Fields.count-1 d
;.H9Ne  
  Response.Write & rs.fields(i).name & 6|Xe ],u  
next r1/9BTPKdJ  
Response.Write ~}RfepM  
While Not Rs.Eof 'wni.E&  
  Response.Write fi 
[4F  
  for i=0 to rs.fields.count -1 -;*lcY*  
        Response.Write & Rs.Fields(i).Value &   UX%J?;g  
  next _BZ6Ws$C2  
  Response.Write       XeX`h
_  
  Rs.MoveNext _ o.j({S  
Wend AK(x;4  
Set Rs = Nothing Go(Td++HS  
end if lRR A2Kql  
  % > v?0F  
||4
T*B06  
(D0\uld9  
%rJ'DPs  
vUhgM'  
转自： ASP教程采集