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

0 then &5 7c!)  
Response.Write 错误 ： & err.description & @Y0
ZW't  
response.end AA\)BNM
 
End if &l6@C3N$  
End Sub $Sc_E:`]  
Sub EndDB() 1
dvP
2E  
Set objOraDB = Nothing ?N4FB*x  
Set objOraSession = Nothing wx-\@{E  
End Sub _2KIe(,;  
Function getTableList(str) L|1,/h 8p  
Dim strSql,strTmp j_C"O,WS  
Dim objRs e&sH<hWR  
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 1zRYd`IPoq  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) !B`z|#  
While Not objRs.Eof =A!oLe$%  
strA = objRs(uname) & . & objRs(tname) T]wC?gQG  
cB&_':F  
If str=strA then y)zZ:lyIq  
strTmp = strTmp & & strA & ;*?>w|t}w  
Else HMVP71  
strTmp = strTmp & & strA & KHx2$*E_  
End if B}[CU='P*  
objRs.MoveNext 2]kGDeSr  
Wend ?|,:;^2l1  
Set objRs = Nothing eipg,EI  
getTableList = strTmp %NQ mV_1  
End Function "{8j!+]4i  
% > VL)<u"d4  
f?d5Ltg  
}etdXO_^  
_Q:z -si  
F]M-r{  
All Tables : 4AN8Sx(  
{|>'(iqH"w  
yF\yxdUX#  
JDf>Qg{  
)l9KDObis  
() Jqb~RP~  
\k5"&]I3  
7c"Csq/]I  
u7mPp3ZYK  
Iuz_u2"C  
_cvX$(Sg  
  then uGz)Vz&3  
strSql = Select * from & tblname mt+i0PIfj  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) m"rht:v5  
Response.Write XA<h,ONE?  
for i=0 to rs.Fields.count-1 $ (;:4  
  Response.Write & rs.fields(i).name & )T"Aji-hy  
next ~bkO8tn  
Response.Write FBwG3x  
While Not Rs.Eof 1q(Qr h  
  Response.Write N `:MF 9  
  for i=0 to rs.fields.count -1 \}4Y]xjV2  
        Response.Write & Rs.Fields(i).Value &   .O"a:^i  
  next >=97~a+
.  
  Response.Write       vD@|]@gq  
  Rs.MoveNext KO=$Hr?f;  
Wend Uk]jy>7;!  
Set Rs = Nothing Awa| (]  
end if n4!RGq.}  
  % > 4_5f4%S  
Ik^^8@z  
5@+?{Cl  
ViiJDYT>E<  
rl7up  
转自： ASP教程采集