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

0 then M;F&Ix  
Response.Write 错误 ： & err.description & y3pr(w9A  
response.end VU 8~hF  
End if %)G]rta#  
End Sub i*Ee(m]I  
Sub EndDB() 9UeK}Rl^n  
Set objOraDB = Nothing w|WehNGr  
Set objOraSession = Nothing b+ J)  
End Sub x@480r  
Function getTableList(str) ]BBL=$*  
Dim strSql,strTmp 1U;p+k5c  
Dim objRs 
d`&F  
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 ,MdK "Qa>  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) tO]` I-  
While Not objRs.Eof Irnfr\l.  
strA = objRs(uname) & . & objRs(tname) k-a3oLCR,  
,1&</R_  
If str=strA then d}RR!i`<N  
strTmp = strTmp & & strA & 4]3(Vyh`  
Else 'hl4cHk14  
strTmp = strTmp & & strA & J,j!  
End if 1VC:o]$  
objRs.MoveNext G!3d!$t  
Wend mo- Y %  
Set objRs = Nothing iLD:}yK  
getTableList = strTmp nnPY8pdjSD  
End Function T?'Vb  
% > o$-!E(p  
ds"q1  
sZ9VXnz24  
)I`Ma6bX  
Zqnwf  
All Tables : x-HN]quhe  
=g+Rk+jn  
"iY=1F"\R  
MUfhk)"  
@>sZ'M2mq  
() 1O,<JrE+-  
f/6,b&l,  
CDTM<0`%  
=vZF/r  
jjrhl  
sHQ82uX  
  then %\2w 1  
strSql = Select * from & tblname 26Jb{o9Z<  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Z&E!m   
Response.Write "`4V^1  
for i=0 to rs.Fields.count-1 bI"_hvcFp  
  Response.Write & rs.fields(i).name & \tx4bV#  
next Wy`ve~y  
Response.Write :AM5EO  
While Not Rs.Eof BHa'`lCb  
  Response.Write V O= o)H\  
  for i=0 to rs.fields.count -1 rr=e  
        Response.Write & Rs.Fields(i).Value &  
pZg}7F{$  
  next nD51,1>  
  Response.Write       UfWn\*J&k  
  Rs.MoveNext 08TeGUjJ  
Wend yMoV|U6  
Set Rs = Nothing lmRdl>  
end if wjeuZNYf  
  % > aX$Q}mgb  
3EN(Pz L  
chF@',9t  
IDIok~B=e  
M'D l_dx-  
转自： ASP教程采集