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

0 then m }HaJ  
Response.Write 错误 ： & err.description & M+VWAh#uD  
response.end p$|7T31 *  
End if @>VVB{1@,]  
End Sub p)iEwl}!j  
Sub EndDB() /N_:npbJF  
Set objOraDB = Nothing .S-)  
Set objOraSession = Nothing n}A!aC  
End Sub |]@Pq[Hn|  
Function getTableList(str) YcDKRyrt  
Dim strSql,strTmp G'G8`1Nj  
Dim objRs U7D!w$4  
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 
/A-WI x  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) P][jB  
While Not objRs.Eof r <5}& B`  
strA = objRs(uname) & . & objRs(tname) 7>j~;p{  
YVDFcN9v  
If str=strA then ]"{
8"+x  
strTmp = strTmp & & strA & 
RM `qC  
Else u>:(MARsR  
strTmp = strTmp & & strA & n:`f.jG |  
End if S$Zi{bU`G  
objRs.MoveNext 1s.2z[B~  
Wend If,p!L  
Set objRs = Nothing 9|}Pf_5]%[  
getTableList = strTmp )'U0n`=  
End Function R'tKJ_VI  
% > m]AT-]*f  
iI IXv  
^r&)@R$V  
_i+@HXR &  
s b;q)Rh  
All Tables : }
Rw,4  
s4"OsgP+  
WrGnLE kiV  
_&#{cCo:  
qt~=47<d  
() HTOr  
~bhS$*t64  
*$<W"@%^J  
'V]&X.=zC  
rR#Ditn^  
A<X?1$  
  then aE`d[dSG  
strSql = Select * from & tblname IQ I8v  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) VX$WL"A  
Response.Write PVo7Sy!'H  
for i=0 to rs.Fields.count-1 m|aK_  
  Response.Write & rs.fields(i).name & 7pyzPc#_  
next Fye>H6MU  
Response.Write _?I{>:!|  
While Not Rs.Eof *i]?J  
  Response.Write HYfGu1j?X  
  for i=0 to rs.fields.count -1 hL&$` Q  
        Response.Write & Rs.Fields(i).Value &   9RJF  
  next  -BSdrP|  
  Response.Write       -d\sKc  
  Rs.MoveNext 5.9<g>C  
Wend PW5]+ |#  
Set Rs = Nothing !5o j~H  
end if eluN~T:W  
  % > 3#>W\_FY*D  
%tyo(HZQ  
X/,)KTo7  
S<"Fp1#"l  
"o&8\KSs  
转自： ASP教程采集