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

0 then ,{jF)NQaP  
Response.Write 错误 ： & err.description & *K'#$`2  
response.end +=Y$v2BZA3  
End if XEL~y  
End Sub >h
9T/J8  
Sub EndDB() <"z9(t(V\%  
Set objOraDB = Nothing hcT5>w[  
Set objOraSession = Nothing ?~9o2[  
End Sub
?58*#'r  
Function getTableList(str) iGw\A!}w\  
Dim strSql,strTmp ,opS)C$  
Dim objRs rNl%I@
G  
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 ]^6r7nfR6|  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) %%{f-\-7Ig  
While Not objRs.Eof (,j~s{  
strA = objRs(uname) & . & objRs(tname) hbSXa'
 
h @2.D|c)g  
If str=strA then [2.;gZj  
strTmp = strTmp & & strA & QR\2%}9b  
Else S#F%OIx  
strTmp = strTmp & & strA & (J5M+K\H  
End if u|sdQ  
objRs.MoveNext R/\qDY,@  
Wend ;8Ts  
Set objRs = Nothing Ewa/6=]LA  
getTableList = strTmp (r-8*)Qh8  
End Function LJwy,-  
% > _X~xfmU  
}Sh3AH/  
bcUa'ZfN<  
?hOvY)  
`s\E"QeZ
N  
All Tables : KN:V:8:J  
m+EtB6r  
Kwo0%2Onkd  
@ [<B:Tqo  
Dq<!wtFG[  
() V`_)H  
k&pV`.Imi  
gJJBRn{MI  
tKC
X0UZ'  
,xg(F0q  
Id?2(Tg  
  then C4|H5H  
strSql = Select * from & tblname 0[92&:c,  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) '"9Wt@ .  
Response.Write 0O|l7mCr%I  
for i=0 to rs.Fields.count-1 O6b.oS'-  
  Response.Write & rs.fields(i).name & q\d/-K  
next M!O &\2Q  
Response.Write }UWi[UgA  
While Not Rs.Eof '^`%  
  Response.Write | W<jN  
  for i=0 to rs.fields.count -1 roNs~]6  
        Response.Write & Rs.Fields(i).Value &   vPET'Bf(YV  
  next \^Z DH  
  Response.Write       '=(@3ggA:  
  Rs.MoveNext "rcV?5?v~  
Wend Jyyr'1/<k  
Set Rs = Nothing *|S{
%z9>  
end if 7,2#0Z`ge  
  % > >_u5"&q  
c{\x<AwO  
i,mo0CSa  
#F:\_!2c  
xX\A&9m  
转自： ASP教程采集