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

0 then Q^?$2ck=  
Response.Write 错误 ： & err.description & 2(Yt`3Go(  
response.end H$ :BJ$x@  
End if (dV7N  
End Sub *)HVK&'  
Sub EndDB() F`+S(APT8  
Set objOraDB = Nothing oDGBC  
Set objOraSession = Nothing F:.8O ,%u  
End Sub v^[!NygShs  
Function getTableList(str) l SuNZYaO  
Dim strSql,strTmp oB'5':  
Dim objRs th0>u.hJ  
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 >km$zfM2-  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) \rS-}DG  
While Not objRs.Eof m+ #G*  
strA = objRs(uname) & . & objRs(tname) A$;*O)  
%0f*OC  
If str=strA then #ZHKq7  
strTmp = strTmp & & strA & 6r[pOl:  
Else ``kesz  
strTmp = strTmp & & strA & cwQ*P$n  
End if Dr}elR>~G=  
objRs.MoveNext SLvo)`Nc3-  
Wend x@>~&eP  
Set objRs = Nothing X[?E{[@Z  
getTableList = strTmp zNEN[  
End Function 2%`8  
% > qi8AK(v  
jX t5.9 t  
\oP  
?b(DDQMf  
M,Lq4bz  
All Tables : VHL[Y  
q'X#F8v  
l[nf"'  
5\}QOL  
(F:|tiV+  
() a
@?ebCE  
ma`sv<f4-!  
7EL0!:Pp3  
u}?{1B!  
?b]f$ 2  
0zA:
?}  
  then ~4ijiw$  
strSql = Select * from & tblname S@4bpnhK  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) |(Xxi  
Response.Write HEK?z|Ne  
for i=0 to rs.Fields.count-1 Y`xAJ#= ,i  
  Response.Write & rs.fields(i).name & x LK,Je  
next !__^M3S,k  
Response.Write mxwG~a'_  
While Not Rs.Eof W,nn,%  
  Response.Write 1X?q4D"  
  for i=0 to rs.fields.count -1 =[gFa
B_H  
        Response.Write & Rs.Fields(i).Value &   V:g
XP1P  
  next c&`]O\D-c  
  Response.Write       :"+3Uk2  
  Rs.MoveNext *kJa$3*r  
Wend QxBH{TG  
Set Rs = Nothing ya;(D 8x)  
end if FGpV ]p  
  % > J]Q-#g'Z  
h?GE-F  
P>|sCF  
~k ]$J|}za  
4%u\dTg/B  
转自： ASP教程采集