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

0 then [0bp1S~  
Response.Write 错误 ： & err.description & uNKf!\Y  
response.end n4XEyCrD  
End if hMCf| e.UY  
End Sub #W$6[#7=I  
Sub EndDB() d+45Y,|  
Set objOraDB = Nothing 6~34L{u  
Set objOraSession = Nothing d+qeZGg^A  
End Sub \jmT#Gt`9  
Function getTableList(str) ?,}:)oA_  
Dim strSql,strTmp - +<ai  
Dim objRs h\T}$jgfWm  
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 >O]u4G!  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) !w1acmo<_  
While Not objRs.Eof >//yvkZ9
,  
strA = objRs(uname) & . & objRs(tname) M{z&h>  
u+lNcyp"MW  
If str=strA then @[LM8 @:  
strTmp = strTmp & & strA & nt:Z
O,C:R  
Else :3N6Ej  
strTmp = strTmp & & strA & VwN=AFk Oj  
End if \h>6k  
objRs.MoveNext f_|pl^  
Wend h3e %(a  
Set objRs = Nothing %OJ"@6A  
getTableList = strTmp DX0#q#  
End Function cb=ixn  
% > fJ GwT  
~@#s<a,%;  
j'x@P+A  
-!lSk?l  
g es-nG-  
All Tables : 8\F|{vt#  
i);BTwW)#]  
`3eQ#,G!  
#.<Dq8u  
-G[TlH06  
() \zh`z/=92  
:]JMsa6  
)Vz=:.D  
vs^)=  
g#Z7ReMw  
/H?) qk  
  then 4`Cgz#v {  
strSql = Select * from & tblname zr ~4@JTS  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) '/s/o]'sUd  
Response.Write 5d;(D i5z  
for i=0 to rs.Fields.count-1 L)i6UAo  
  Response.Write & rs.fields(i).name & B='(0Uxy-  
next rR4?*90vjj  
Response.Write ?7#{#sj  
While Not Rs.Eof a|5<L  
  Response.Write O]XgA0]  
  for i=0 to rs.fields.count -1 T|&u?  
        Response.Write & Rs.Fields(i).Value &   PYwGGB-  
  next R5i xG9  
  Response.Write       _'|C-j`u$  
  Rs.MoveNext *V_b/Vt  
Wend z57q|  
Set Rs = Nothing $a|>>?8  
end if 5g`J}@"k  
  % > Sc ijf 9  
gj7'43 ?W  
IL,iu
 
33ZHrZ  
Jt:)(&-t  
转自： ASP教程采集