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

0 then 'DsfKR^s  
Response.Write 错误 ： & err.description & z1!ya#,$  
response.end &g,K5at  
End if cv:nlq)  
End Sub O~d!*A  
Sub EndDB() DWJ%r"aN  
Set objOraDB = Nothing ~'fa,XZ<  
Set objOraSession = Nothing _1y|#o  
End Sub S,AZrgh,"X  
Function getTableList(str) ] >ipC,v  
Dim strSql,strTmp avO+1<`4B  
Dim objRs i )3Y\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 f;u;hQxs  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) y(.WK8  
While Not objRs.Eof 0x^$q? \A  
strA = objRs(uname) & . & objRs(tname) {KwLcSn  
nS?HH6H  
If str=strA then g/z9bOgIX  
strTmp = strTmp & & strA & (]1le|+  
Else AG}' W  
strTmp = strTmp & & strA & .NjdkHYR  
End if }J`{g/  
objRs.MoveNext |nry^zb  
Wend 0 {{7"  
Set objRs = Nothing .U5+PQN  
getTableList = strTmp 6El%T]^  
End Function e@]cI/j  
% > ' 1P_*  
jn}6yXB  
9U}EVpD  
8"8{Nf-"  
:Yz.Bfli  
All Tables : ]v_xEH}T  
}f&7<E  
<S$y=>.9  
)STt3.  
L$jyeFB5  
() /u:Sn=SPd  
y_$^Po  
Bl`e+&b  
;;nmF#  
dJ24J+9}]j  
?!~au0  
  then 0l 3RwWj  
strSql = Select * from & tblname >^InNJd  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) %< j=&  
Response.Write Q ;k_q3  
for i=0 to rs.Fields.count-1 MeplM$9  
  Response.Write & rs.fields(i).name & (/*-M]>  
next ,+'f unH  
Response.Write M$&>"%Oi  
While Not Rs.Eof cQ+,F2  
  Response.Write Be]o2N;J  
  for i=0 to rs.fields.count -1 f4tia.  
        Response.Write & Rs.Fields(i).Value &   aO<d`DTyJ  
  next ;( 2uQ#Y  
  Response.Write       _R-#I  
  Rs.MoveNext $(CHwG-  
Wend uwQ4RYz  
Set Rs = Nothing fZ %ZV  
end if czZ-C +}%  
  % > Q o=  
W}=2?vHV=  
hR`dRbBi%  
IS=)J( 0  
n--`zx-['  
转自： ASP教程采集