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

0 then d)F~)}TFM  
Response.Write 错误 ： & err.description & O_aZ\28};C  
response.end q y7
3  
End if 9X&Xc  
End Sub wjW>#DE  
Sub EndDB() so}(*E&(a  
Set objOraDB = Nothing r# MJ  
Set objOraSession = Nothing tr0P;}=  
End Sub {vh}f+2  
Function getTableList(str) FOiwB^$>  
Dim strSql,strTmp 2iHD$tw  
Dim objRs 2='gC|&s6  
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 ;n_|t/=  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ,2T&3
3m  
While Not objRs.Eof tZmo= 3+:  
strA = objRs(uname) & . & objRs(tname) <a7y]Py  
\xG>>A%  
If str=strA then LcS\#p#s]  
strTmp = strTmp & & strA & e9/:q"*)/  
Else VqqI%[!Aw  
strTmp = strTmp & & strA & (@*[^@ipV  
End if tcyami6D4  
objRs.MoveNext t%Hg8oya  
Wend xayo{l=uGv  
Set objRs = Nothing wJM})O%SQ  
getTableList = strTmp TUoEk  
End Function ,K=\Y9l3  
% > 8px@sXI*`  
,>lOmyh  
j\& `  
*4#)or  
jY'svD~  
All Tables : ;Ak<O[  
p`:hY`P  
b,"gBg  
{]1o($.u  
Yl%1e|WV  
() `>&V_^y+  
a;JB8  
(A(7?eq  
-Yx'qz@  
y<(q<V#0!S  
!gA<9h  
  then *YmR7g|k  
strSql = Select * from & tblname _7es_w}R  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 9x@( K|  
Response.Write |PR8P!'  
for i=0 to rs.Fields.count-1 ?g gl8bzA  
  Response.Write & rs.fields(i).name & GlkTpX^b  
next NrH2U Jm  
Response.Write FJo?~  
While Not Rs.Eof 8qGK"%{ ~  
  Response.Write ("-Co,4ey  
  for i=0 to rs.fields.count -1 "F?p\I)(  
        Response.Write & Rs.Fields(i).Value &   BM5+;h !  
  next <$bM*5sHF>  
  Response.Write       S}6Ty2.\  
  Rs.MoveNext ) =-$>75Z  
Wend t}L kl(  
Set Rs = Nothing D^ZG-WR  
end if ;hb;%<xqT  
  % > e;L++D
 
 h>\T1PM  
\d$fi*{  
5{nERKaPf  
|#9Nu9ak  
转自： ASP教程采集