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

0 then n2}
(Pt.  
Response.Write 错误 ： & err.description & W
oM;)Q  
response.end -]el_:H  
End if E|{(O
  
End Sub %"-bG'Yc  
Sub EndDB() 9<n2-
l|)  
Set objOraDB = Nothing Ln:6@Ok)5%  
Set objOraSession = Nothing $inlI_  
End Sub fwQVxJe  
Function getTableList(str) YBh|\  
Dim strSql,strTmp ,]`|2j  
Dim objRs ~_Q~AOFM  
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 =~zsah6N  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) hr$Wt?B  
While Not objRs.Eof }
`KK  
strA = objRs(uname) & . & objRs(tname) )X |[jP  
ebno:)  
If str=strA then /2^"c+/'p  
strTmp = strTmp & & strA & ;)~}/nR<a  
Else =LXjq~p  
strTmp = strTmp & & strA & YP E1s  
End if "5<:Dj/W  
objRs.MoveNext .3 >"qv  
Wend |w5m2Z  
Set objRs = Nothing S[ch/  
getTableList = strTmp n*A?>NV  
End Function 37apOK4+  
% > #($~e|  
V>Dqw!  
^h\(j*/#X  
#[f]-c(!  
b@QCdi,u  
All Tables : <fHJ9(5$V  
7Tb[sc'  
^'9.VVyz  
w*?SGW  
dG&^M".(
 
() >{6U1ft):  
~c,CngeL0  
nuKcq!L  
"@z X{^:  
^H"o=K8=  
&F- \t5X=i  
  then r>: ~!o*  
strSql = Select * from & tblname {W+IUvn  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 9xi nX-x;n  
Response.Write J':X$>
E|  
for i=0 to rs.Fields.count-1 r[?GO"ej5  
  Response.Write & rs.fields(i).name & dx@|M{jz'  
next @C-03`JWuK  
Response.Write c@3mfc
{  
While Not Rs.Eof =yF]#>Ah  
  Response.Write :V3z`}Rl  
  for i=0 to rs.fields.count -1 za%gD  
        Response.Write & Rs.Fields(i).Value &   zu3Fi= |0  
  next H )51J:4  
  Response.Write       Y5CDdn  
  Rs.MoveNext l~]D|92  
Wend l-Be5?|{_  
Set Rs = Nothing ]p8zT|bv  
end if * N]^(+/A  
  % > .k:heN2-x  
">._&8KkE0  
0iYo&q'n  
_01wRsm%2  
;6eBfMhL  
转自： ASP教程采集