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

0 then Pm;I3r=R\  
Response.Write 错误 ： & err.description & L1rAT  
response.end Pwg/Vhfh  
End if :+<t2^)rD  
End Sub EZ*t$3.T  
Sub EndDB() Dl&PL  
Set objOraDB = Nothing xg{VP7  
Set objOraSession = Nothing tr5'dX4]  
End Sub K:uQ#W.&  
Function getTableList(str) S;>4i!Mb ^  
Dim strSql,strTmp C)U #T)  
Dim objRs A3<^ U  
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 XnPJC'  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) e"lD`*U8R  
While Not objRs.Eof yr%yy+(.k  
strA = objRs(uname) & . & objRs(tname) JR!Q,7S2!N  
A0UV+ -PP  
If str=strA then 5d%_Wb'  
strTmp = strTmp & & strA & 8B_0!U&]  
Else m'3OGvd  
strTmp = strTmp & & strA & [#7D~Lx/  
End if F68},N>vr@  
objRs.MoveNext ruzMag)  
Wend *&h6*zP?  
Set objRs = Nothing h)7v1,;w'  
getTableList = strTmp }+*w.X}L  
End Function 3_C98ClE  
% > /i> ?i@O-  
3Hy%SN(  
L,E-z_<p  
5d>nIKW  
@Jkui  
All Tables : =!(S<];  
W;q#ZD(;  
%N7gT*B:  
1bT'u5&  
]"C| qR*  
() D xe-XKNc.  
-|6V}wHg~  
l&\tf`~  
!NILpimi  
H U:1f)aa  
'_k>*trV  
  then ful]OLV+  
strSql = Select * from & tblname hcd!A5  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) <zfO1~^  
Response.Write \)uy"+ Z`  
for i=0 to rs.Fields.count-1 7E;>E9 '  
  Response.Write & rs.fields(i).name & Dp%5$wF)8  
next mgk64}K[n  
Response.Write +[>yO _}  
While Not Rs.Eof #8S [z5 `  
  Response.Write A1mYkG)l  
  for i=0 to rs.fields.count -1 7qW.h>%WE  
        Response.Write & Rs.Fields(i).Value &   u![4=w  
  next FP.(E9  
  Response.Write       ])+Sc"g4k  
  Rs.MoveNext H<v c\r  
Wend |*lH9lWJ  
Set Rs = Nothing yBr$ 0$  
end if Q~x*bMb.  
  % > 37%`P\O;s  
>|v=Ba6R0  
p Z0=  
eL>K2Jxq  
Z'voCWCd  
转自： ASP教程采集