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

0 then Kh$"5dy  
Response.Write 错误 ： & err.description & #c@&mus  
response.end 13#ff  
End if nD*iSb*  
End Sub qovsM
M  
Sub EndDB() 65~E<)UJ  
Set objOraDB = Nothing l|gi2~ %Y  
Set objOraSession = Nothing >;c);|'}q  
End Sub \M\7k5$  
Function getTableList(str) ={P`Tve  
Dim strSql,strTmp Ei
@  
Dim objRs j%nN*ms  
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 TxG@#" ^g}  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) [//i "Nm  
While Not objRs.Eof r4*H96l  
strA = objRs(uname) & . & objRs(tname) Ju47}t%HB  
63u%=-T%a  
If str=strA then B0Wf$ s^7t  
strTmp = strTmp & & strA & raPOF6-_rH  
Else lF}@@e)N  
strTmp = strTmp & & strA & diJpbR^JP  
End if ;(`bP  
objRs.MoveNext \]Ah=`  
Wend E! NtD).=S  
Set objRs = Nothing `X@\Zv=}  
getTableList = strTmp jC>ZMy8U)4  
End Function %[*-aA  
% > $"/l*H\h  
(?1$  
wCLniCt  
M+ %O-B  
Zwc&4:5%  
All Tables : #2_FM!e  
.-rz30xT  
N+c|0  
iptA#<Yj  
X.4WVI  
() M,H8ZO:R  
>]~581fYf  
,nteIR'??  
*b) (-#w3  
<pb  
VX.LL 5  
  then .2@T|WD!Ah  
strSql = Select * from & tblname ^;PjO|mD Z  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) |(%<FY$  
Response.Write n>.@@  
for i=0 to rs.Fields.count-1 o!UB x<4  
  Response.Write & rs.fields(i).name & Hu<]*(lK%  
next ivo><"Y(r  
Response.Write .Bl:hk\  
While Not Rs.Eof j67a?0<C2U  
  Response.Write aYa`ex  
  for i=0 to rs.fields.count -1 GW>F:<p  
        Response.Write & Rs.Fields(i).Value &   5CK\Z'c~!  
  next d {U%q d  
  Response.Write       /W,hO
v  
  Rs.MoveNext
*$0*5d7  
Wend 8wkhbD|;  
Set Rs = Nothing n^[a}DX0  
end if Lld45Bayb  
  % > Y[7p
rjd  
6t;;Fz  
}cMkh  
Iz+%wAZ|B6  
)Q`Ycz-  
转自： ASP教程采集