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

0 then >qOj^WO~  
Response.Write 错误 ： & err.description & [Y?Y@x"MZ  
response.end D%LYQ  
End if Qca3{|r`  
End Sub }~NXiUe  
Sub EndDB() &cJ?mSI  
Set objOraDB = Nothing |W$|og'wC  
Set objOraSession = Nothing |Ldvfd  
End Sub 1c429&-  
Function getTableList(str) uFb 9Ic]`  
Dim strSql,strTmp OB\ZT@l  
Dim objRs hQ!59  
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 kM1N4N7  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) zUNUH^Il  
While Not objRs.Eof ij~-  
strA = objRs(uname) & . & objRs(tname) }@ktAt  
%W2U$I5  
If str=strA then P,a9B2  
strTmp = strTmp & & strA & ~Hv>^u Mh  
Else _Gaem"k|  
strTmp = strTmp & & strA & WHOX<YJs  
End if _Y/*e<bU  
objRs.MoveNext HRjbGc|[  
Wend ?G!~&  
Set objRs = Nothing -:"KFc8A  
getTableList = strTmp EY3F9h3xM|  
End Function 4\p%|G^hU  
% > m
k^,{D  
dKC*QHU  
7:Rt) EE2  
U<q`f-  
&Td)2Wt  
All Tables : c3ru
4o*K  
~e]B[>PT  
}&v-<qC^  
HwZl"!;Mry  
HC1<zW[  
() nCp_RJu  
e57R6g)4  
<|?)^;R5!  
]W4{|%@H"  
_x3=i\O,  
^);M}~  
  then %n8CK->  
strSql = Select * from & tblname 6OAEAIh  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) g6P^JW}.  
Response.Write 2kDv (".  
for i=0 to rs.Fields.count-1 o|y_j49  
  Response.Write & rs.fields(i).name & H_t0$x(\  
next vr{|ubG]d  
Response.Write $w <R".4  
While Not Rs.Eof QRrAyRf[  
  Response.Write %8%|6^,  
  for i=0 to rs.fields.count -1 %#~wFW|]x  
        Response.Write & Rs.Fields(i).Value &   CDXN%~0h  
  next T0"nzukd  
  Response.Write       >3B{sn}  
  Rs.MoveNext 7CSz  
Wend :@"o.8p   
Set Rs = Nothing Hm
!"%  
end if Q_!tn*  
  % > 2#3`[+g<n  
<H-kR\HF  
MMC$c=4"  
QA;,/iw`  
S5, u| H  
转自： ASP教程采集