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

0 then z.W1Za  
Response.Write 错误 ： & err.description & vIFx'S~D  
response.end 3ep L'My$  
End if z]sQ3"cmX  
End Sub tAb3ejCo?  
Sub EndDB() O>ZJOKe  
Set objOraDB = Nothing th=45y"C  
Set objOraSession = Nothing hG3RZN#ejq  
End Sub <4;f?
eu  
Function getTableList(str) `U
;V-  
Dim strSql,strTmp ik0w\*  
Dim objRs "H{#ib_c_  
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 $-)y59w"  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) qt%/0  
While Not objRs.Eof [{J1b  
strA = objRs(uname) & . & objRs(tname) UL" <V  
T{T> S%17~  
If str=strA then 1'5!")r  
strTmp = strTmp & & strA & * =O@D2g0  
Else +7K]5p;!~  
strTmp = strTmp & & strA & l_x>.'a  
End if h#8{fr)6  
objRs.MoveNext hy:K) _   
Wend bre6SP@  
Set objRs = Nothing U7G|4(  
getTableList = strTmp !" : arK  
End Function 1xwq:vFC.  
% > &J=x[{R  
S*rcXG6Q^  
YGLR%PYv"  
gOk^("@  
n6*; ~h5  
All Tables : -ANq!$E  
/h@rLJ)o>  
@HXX
hYH  
%$!EjyH9  
yNQ 9~P2  
() N?Ss/by8Sg  
Pq( )2B  
{K2F(kz?T  
"2@Ys*e  
n]btazM{   
POQ1K O  
  then LZu_-I  
strSql = Select * from & tblname 1x|/z,
 
Set Rs = objOraDb.DbCreateDynaset(strSql,0) c>Ljv('bj  
Response.Write M~!LjJg;  
for i=0 to rs.Fields.count-1 B?_ujH80m  
  Response.Write & rs.fields(i).name & ;Y16I#?;Kh  
next t,;b*ZR  
Response.Write jdVdz,Y  
While Not Rs.Eof *$>$O%  
  Response.Write s[@@INU  
  for i=0 to rs.fields.count -1 Iyvl6  
        Response.Write & Rs.Fields(i).Value &   SHPZXJ{  
  next ?r~](l   
  Response.Write       ]9pcDZB  
  Rs.MoveNext 0 .p $q  
Wend ;d
>  
Set Rs = Nothing 3!B
3C(g  
end if e3>k"  
  % > YuDNm}r[  
ts0K"xmY\c  
RbNRBK!{  
gM3gc;  
LvS3c9|Aj  
转自： ASP教程采集