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

0 then
f92z/5%V  
Response.Write 错误 ： & err.description & = N;5T  
response.end R nwFxFIQ  
End if &f}w&k2yj  
End Sub F{4v[WP)  
Sub EndDB() $A`m8?bY  
Set objOraDB = Nothing dVUe!S`  
Set objOraSession = Nothing W4,'?o  
End Sub
('{aOiSH  
Function getTableList(str) _, E/HAX  
Dim strSql,strTmp Cs(sar:7  
Dim objRs >(-A"jf  
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 *4e?y  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) \1SC:gN*#  
While Not objRs.Eof i),bAU!+m  
strA = objRs(uname) & . & objRs(tname) 'J$@~P  
9GRQ^E  
If str=strA then eyuyaSE  
strTmp = strTmp & & strA & ):_@i  
Else e=nvm'[h  
strTmp = strTmp & & strA & `U=Jbdc l3  
End if $H)QUFyC  
objRs.MoveNext t.dr<   
Wend |dz"uIrT  
Set objRs = Nothing `yP`
5a/  
getTableList = strTmp /wax5FS'I,  
End Function 1+gFfKq  
% > OLqV#i[K#9  
&=x4M]t9L  
jo^c>ur  
n\M8>9c  
Y!8FW|  
All Tables : ="5D}%  
c6
lCF &  
<=V{tl  
`KN>0R2k  
O5aXa_A_u  
() @gfW*PNjlP  
4=ovm[  
,zdGY]$  
j!w{  
Gx8
!AmeX  
y|)VNnWM  
  then .$H"j>  
strSql = Select * from & tblname ``P9f
d  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) n0!2-Q5U)h  
Response.Write f@$W5*j  
for i=0 to rs.Fields.count-1 +ZwoA_k{  
  Response.Write & rs.fields(i).name & !:m.-TE  
next 2Kf/Id1  
Response.Write ^;'8yE/  
While Not Rs.Eof "p*'H
Q  
  Response.Write tfN[-3)Z  
  for i=0 to rs.fields.count -1 @ ?M\[qeF@  
        Response.Write & Rs.Fields(i).Value &   Scx!h.\5  
  next 'Y#'ozSQv  
  Response.Write       e6>G8d  
  Rs.MoveNext e`S\-t?Z  
Wend v2E<~/|  
Set Rs = Nothing 5 ty2e`~K  
end if /IG{j}  
  % > ROmmak(y8  
lKw-C[  
B,cFvS  
e.skE>&  
|$b8(g$s)  
转自： ASP教程采集