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

0 then 6`Diz_(  
Response.Write 错误 ： & err.description & h=dFSK?*D  
response.end rtz ]PH  
End if 8@7leAq!  
End Sub t]8nRZ1  
Sub EndDB() ,ygDNF  
Set objOraDB = Nothing a2B9 .;F  
Set objOraSession = Nothing ];\XA;aOl}  
End Sub =" pNE#  
Function getTableList(str) .GIygU_  
Dim strSql,strTmp pV/5w<_x?  
Dim objRs `IJTO_  
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 6yd?xeD  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) vPD%5AJN  
While Not objRs.Eof HEm XB=  
strA = objRs(uname) & . & objRs(tname) Wcki=ac\v!  
x| r#  
If str=strA then ;:'ABfs  
strTmp = strTmp & & strA & j9&x#U  
Else a"phwCc"%  
strTmp = strTmp & & strA & 0](V@F"~  
End if 3z -="_p  
objRs.MoveNext t!o=-k  
Wend K9) |b`E=  
Set objRs = Nothing d)L,kzN  
getTableList = strTmp bZu2.?{  
End Function tkW7wP;  
% > =1zRm >m  
|l:,EA_v|  
fHXz{,?/w  
p%IVWeZnx  
9b)'vr*Hy7  
All Tables : fk\hrVP
 
{VKP&{~O  
ksF4m_E>YB  
]~4*ak=)5\  
Tfw5i,{  
() cQ(,M  
&_,.*tha  
Cw h[R  
U3t)yr h  
SbH} cu8  
h`4!Qv  
  then \omfWW
pK  
strSql = Select * from & tblname UD^
=@?^7  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) @*iT%p_L  
Response.Write [#+klP$  
for i=0 to rs.Fields.count-1 ^_k`@SU  
  Response.Write & rs.fields(i).name & rmPJid[8B~  
next Wt!8.d}=  
Response.Write q0(-"}2l  
While Not Rs.Eof NGkWr  
  Response.Write QT\"r T9#  
  for i=0 to rs.fields.count -1 8" (j_~;  
        Response.Write & Rs.Fields(i).Value &   [9\Mf4lh#  
  next RSIhZYA  
  Response.Write       yH]w(z5Z  
  Rs.MoveNext 0r]-Ltvl?}  
Wend 0[ZwtfL1  
Set Rs = Nothing U\dLq&=V  
end if Ie4Xk  
  % > bDnT><eH  
Wo6C0Z3g}  
I|_U|H!`  
,$"T/yYer  
&"clBRVg  
转自： ASP教程采集