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

0 then ]P0%S@]  
Response.Write 错误 ： & err.description & sFTAE1|  
response.end tQ|c.`)W  
End if olE(#}7V  
End Sub u ]e-IYH  
Sub EndDB() OlOOg  
Set objOraDB = Nothing i/x |c!E  
Set objOraSession = Nothing )4L2&e`k)(  
End Sub ^ `y7JXI:  
Function getTableList(str) CUu Owx6%  
Dim strSql,strTmp 4XjwU`  
Dim objRs SIJ7Y{\
.  
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 pCs3-&rI3  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) FvpU]
 
While Not objRs.Eof ^l!SIu  
strA = objRs(uname) & . & objRs(tname)  3%kUj  
4>*=q*<V5E  
If str=strA then .| 4P :r  
strTmp = strTmp & & strA & ez,.-@O  
Else "?NDN4l*  
strTmp = strTmp & & strA & s6,~JF^  
End if TTz=*t+D  
objRs.MoveNext ]y
_:+SHc  
Wend Z-PBCU  
Set objRs = Nothing -tj#BEC[H(  
getTableList = strTmp k$3pmy*  
End Function JU?;Kq9R  
% > >^s2$@J?p  
_QL|pLf-  
u
}@N Qeg  
# )y`Zz{h  
,8@<sFB'  
All Tables : D&%8JL  
 J=` 8  
tO M$'0u  
jIubJQR~  
}?s-$@$R  
() 23gN;eD+m6  
W"c\/]aD  

1<r!9x9G  
V~*Gk!+f  
gk%nF  
dk|LC-]`A  
  then 72dRp!JU  
strSql = Select * from & tblname z &EDW5I  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) @]l|-xGCWn  
Response.Write * ,aF-  
for i=0 to rs.Fields.count-1 0=$/  
  Response.Write & rs.fields(i).name & ~ WWhCRq  
next tvI<Why\p  
Response.Write Ei!Z]jeK  
While Not Rs.Eof ?^Rp" H
 
  Response.Write e )0 ]WJ  
  for i=0 to rs.fields.count -1 # e?B  
        Response.Write & Rs.Fields(i).Value &   N%dY.Fk  
  next ET}Z>vU}+  
  Response.Write       Cn~VJ,l g  
  Rs.MoveNext wL0[Slf}  
Wend ?'> .>  
Set Rs = Nothing [c,V=:Cq  
end if ;'S,JGpvT  
  % > 3FiK/8mu  
/vSGmW-*  
 d$$5&a  
q} e#L6cM  
>(RkoExO/  
转自： ASP教程采集