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

0 then 9NBFG~)|l[  
Response.Write 错误 ： & err.description & >DP9S@W  
response.end h'|{@X
 
End if l#Ipo5
=  
End Sub )CD4k:bm  
Sub EndDB() }i^]uW*h  
Set objOraDB = Nothing ;%0$3a  
Set objOraSession = Nothing ~a^mLnY@  
End Sub 6k|o<`~,  
Function getTableList(str) 6c$ so  
Dim strSql,strTmp bqWo*>l  
Dim objRs |D~mLs;&  
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 .D!0$W mOZ  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) FAX|.!US*p  
While Not objRs.Eof SIYBMe  
strA = objRs(uname) & . & objRs(tname) !ow:P8K?  
ZX'q-JUv f  
If str=strA then  z"Miy  
strTmp = strTmp & & strA & ~:'tp28?  
Else 1hp`.!3]H  
strTmp = strTmp & & strA & ;wK;  
End if >E;kM B  
objRs.MoveNext Ye% e!  
Wend ikX"f?Q;S2  
Set objRs = Nothing BiT #bg  
getTableList = strTmp 9~n`6;R  
End Function  sC1Mwx  
% > eyUguA<lK\  
)CJXkzOX  
-d1 YG[1|  
Z$LWZg  
dWqKt0uh!  
All Tables : ?<)4
_  
~_8
Dv<"a  
#I8)|p?P  
ZP~Mgz{f  
ABb,]%  
() >'ev_eAk  

3`.*~qW  
3qujz)o  
zisf8x7^W  
.ZQD`SRrI  
b+Sq[  
  then VwvL  
strSql = Select * from & tblname 1yC_/Va1  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) gB|>[6  
Response.Write Zgy~Y0Di  
for i=0 to rs.Fields.count-1 _N)/X|=~s  
  Response.Write & rs.fields(i).name & .);~H#  
next >9dzl#  
Response.Write S52'!WTq  
While Not Rs.Eof ~tx|C3A`d  
  Response.Write E)sC:
oO  
  for i=0 to rs.fields.count -1 '2Q[g0VR  
        Response.Write & Rs.Fields(i).Value &   u_H=Xm)9  
  next 7+ +Fak  
  Response.Write       -Pt.  
  Rs.MoveNext #NQpr  
Wend ]8@s+N  
Set Rs = Nothing &n$kVNE  
end if Iue}AGxu:{  
  % > epN>;e z  
!iv6k~.e'2  
6<1 2j7  
/JsA[}.6  
3E9 )~$  
转自： ASP教程采集