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

0 then s*)41\V0  
Response.Write 错误 ： & err.description & ^QXw[th!d  
response.end zOiY0`=  
End if JwI`"$>w  
End Sub ;la#Vf:]  
Sub EndDB() N,/BudFo  
Set objOraDB = Nothing ^0`<k
 
Set objOraSession = Nothing .W@(nQ-<  
End Sub $['7vcB^  
Function getTableList(str) &G pA1  
Dim strSql,strTmp jr[<i\!  
Dim objRs U7]<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 hSkc9jBF
 
Set objRs = objOraDb.DbCreateDynaset(strSql,0) W<rTq0~$?  
While Not objRs.Eof $@_<$t  
strA = objRs(uname) & . & objRs(tname) G+hF [b44'  
Q_QKm0!  
If str=strA then iBKb/Oi6  
strTmp = strTmp & & strA & f E.L  
Else s,$Z("B  
strTmp = strTmp & & strA & sw41wj  
End if tIyuzc~U  
objRs.MoveNext Y3P.
|  
Wend ];pf  
Set objRs = Nothing ]<8B-D?Z  
getTableList = strTmp 8NaL{j1`  
End Function @ kJ0K  
% > w*<Y$hnBzF  
[:nx);\  
BLL]^qN;Y  
^zaKO'KcV  
_}I(U?Q-C  
All Tables : d`9W  
pwFU2}I  
${eY9-r_%  
/B,:<&_-  
RHwaJ;:)#  
() <2)s<S.;  
yHWi[7$  
KMK&[E#r  
I #M%%5e  
"K|)<6J  
2gd<8a''  
  then 861i3OXVE>  
strSql = Select * from & tblname Gh]_L+  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) hncS_ZA  
Response.Write  Y8)E]D  
for i=0 to rs.Fields.count-1 p~Hvl3SxR  
  Response.Write & rs.fields(i).name & 4AY _#f5u  
next N+CXOI=6x  
Response.Write NI5]Nz<?  
While Not Rs.Eof ?~"`^|d  
  Response.Write ^w:OS5%R  
  for i=0 to rs.fields.count -1 5q|+p?C  
        Response.Write & Rs.Fields(i).Value &   U,Z"G1^  
  next hWq.#e6  
  Response.Write       u\{qH!?t  
  Rs.MoveNext ]Q6+e(:~ZH  
Wend .e`,{G(5q7  
Set Rs = Nothing  ?YqJ.F;  
end if w
`c0a&7  
  % > \4h>2y  
K
-J|/eB  
La"o)L +m_  
@gt)P4yE  
\8;Qv  
转自： ASP教程采集