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

0 then (Zn3-t*  
Response.Write 错误 ： & err.description & ilcy/  
response.end V'f5-E0  
End if Qn)[1v  
End Sub 1fhK{9#  
Sub EndDB() \Bc
JDdL  
Set objOraDB = Nothing ]AA*f_!  
Set objOraSession = Nothing r]EZ)qp^@  
End Sub X:-bAu}D  
Function getTableList(str) PSqtZN  
Dim strSql,strTmp ~uZLe\>K  
Dim objRs VfC[U)w*vm  
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 .y_bV=  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) \3(|c#c  
While Not objRs.Eof UH,4b`b  
strA = objRs(uname) & . & objRs(tname)
+fCyR  
!na0Y  
If str=strA then hOLy*%  
strTmp = strTmp & & strA & >`?+FDOJ,  
Else VmH_0IM^6  
strTmp = strTmp & & strA & V<NsmC=g  
End if iLd"
tn'  
objRs.MoveNext f+aS2k(e>  
Wend Ta\8>\6  
Set objRs = Nothing HD8"=7zJk  
getTableList = strTmp grfdvN  
End Function VDu .L8  
% > aU]O$Pg{  
p9 ,\{Is  
bb0McEQy  
A"<)(M+kG  
Iam-'S5  
All Tables : ny_ kr`$42  
{p*hNi)0  
nK%/tdq  

n.Eoi4jV'  
vb.Y8[  
() CbH T #  
$h]Y<&('G  
uZ`d&CEh  
xBE RCO^  
UFIAgNKl  
D7_Hu'y<o  
  then Jn@Mbl  
strSql = Select * from & tblname cM<hG:4%wX  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 0@e}hv;  
Response.Write {Fp`l\,  
for i=0 to rs.Fields.count-1 s8yTK2v2\  
  Response.Write & rs.fields(i).name & PxVI{:Uz  
next CMxjX  
Response.Write qfP"UAc{/  
While Not Rs.Eof .";tnC!e  
  Response.Write E ^SM`  
  for i=0 to rs.fields.count -1 xX&>5 "  
        Response.Write & Rs.Fields(i).Value &   ,ORG"]_F  
  next zr;Y1Xt4  
  Response.Write       rb}wv16?  
  Rs.MoveNext 23\j1?  
Wend 77&^$JpM  
Set Rs = Nothing NtA|#"^  
end if ZG\
I1  
  % > Z>w^j.(  
vrm{Ql&  
.1z$ A  
J.e8UQ@=5  
D@rn@N  
转自： ASP教程采集