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

0 then A#Q0{z@H  
Response.Write 错误 ： & err.description & SaR}\Up  
response.end @)OnIQN~  
End if =`]|/<=9'U  
End Sub W>}Qer4  
Sub EndDB() .K
|P&  
Set objOraDB = Nothing dysX  
Set objOraSession = Nothing H5AK n*'7  
End Sub a9D gy_!Y  
Function getTableList(str) d s|8lz,  
Dim strSql,strTmp C(F1VS  
Dim objRs FX|0R#4vm  
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 FG>;P]mvp  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) C3 gZ6m  
While Not objRs.Eof #$rf-E5g-K  
strA = objRs(uname) & . & objRs(tname) eW%L$I  
_&; ZmNNhc  
If str=strA then r~Y>+ln.  
strTmp = strTmp & & strA & 0NL :z1N-h  
Else hi;WFyJTu  
strTmp = strTmp & & strA & A$9q!Ui#d  
End if TnN^2:cU  
objRs.MoveNext (j8GiJ]{L,  
Wend )3]83:lD2  
Set objRs = Nothing lSn5=^]q  
getTableList = strTmp ]PR|d\O  
End Function jo,6Aog|u  
% > tXf}jU}  
YH<$ +U  
_L*f8e8  
^H5w41  
/Y;+PAy  
All Tables : C+/Eqq^(  
U/.w;DI
 
*oEv,I_  
Q?* nuE  
u{g]gA8s  
() -]Q3/"Q  
{[Uti^)m%  
`xISkW4%  
vn|TiZ  
'is,^q:@  
|f"-|6  
  then #C"7 l6'a  
strSql = Select * from & tblname E=;BI">.  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) >lA7*nn  
Response.Write nHI(V-E2:H  
for i=0 to rs.Fields.count-1 tegOT]|  
  Response.Write & rs.fields(i).name & @kwLBAK}@  
next bHO7*E  
Response.Write hX0RET  
While Not Rs.Eof D8k*0ei&  
  Response.Write Vn)%C_-]A  
  for i=0 to rs.fields.count -1 d>YmKTk"  
        Response.Write & Rs.Fields(i).Value &   q|n97.vD  
  next !IO&&\5  
  Response.Write       btUq  
  Rs.MoveNext BD hLz  
Wend k|^vCZ<(x  
Set Rs = Nothing ;JAK[o8i  
end if |$M@09,F"  
  % > /r>IV`n{  
kXigX
-  
6e,Apj 0  
nARxn#<+  
'n>K^rA  
转自： ASP教程采集