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

0 then q w@g7  
Response.Write 错误 ： & err.description & hV fANbs  
response.end yl0;Jx?  
End if H
I,`O  
End Sub ryb81.|  
Sub EndDB() F(Je$c/J|~  
Set objOraDB = Nothing N686~  
Set objOraSession = Nothing 2AEVBkF;M  
End Sub ZzxWKIE'c  
Function getTableList(str) eYevj[c;  
Dim strSql,strTmp YdN]Tqc  
Dim objRs gJ^taUE  
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 4zZ.v"laVM  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) x~](d8*=  
While Not objRs.Eof Vd'=Fe;eB  
strA = objRs(uname) & . & objRs(tname) Xv+,Z<>iQ  
"/%o'Fq  
If str=strA then \mWH8Z }Z  
strTmp = strTmp & & strA & o/& IT(v  
Else sD|}?7  
strTmp = strTmp & & strA & e$&n)>%  
End if `O`MW} c
 
objRs.MoveNext LCuz_LTFq{  
Wend 2rb@Md]dx  
Set objRs = Nothing =q*c}8R_0  
getTableList = strTmp yet~  
End Function by\Sq}  
% > lbC,*U^  
V
lge*4q  
#aiI]'  
X8wtdd]64  
|
/n  
All Tables : <,X=M6$0n  
}y vH)q  
I+31:#d  
? 51i0~O=  
"]OROJGa  
() ,sT5TS q  
Y~?Z'uR  
<kWkc|zBY  
{d.K)8\  
9!.S9[[N  
WpRM|"CF  
  then <~S]jtL.j:  
strSql = Select * from & tblname >]uu?!PU  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) dN7.W   
Response.Write '*Ld,`  
for i=0 to rs.Fields.count-1 mA@!t>=oMq  
  Response.Write & rs.fields(i).name & kI2+&  
next cwzgIm+  
Response.Write C>SOd]  
While Not Rs.Eof ^'fgQyj  
  Response.Write A6 `a  
  for i=0 to rs.fields.count -1
cIcu=U  
        Response.Write & Rs.Fields(i).Value &   Ul}<@d9: B  
  next 6;wK
L?snO  
  Response.Write       S#<y_w%  
  Rs.MoveNext JoZSp"R  
Wend ;lfv.-u:<  
Set Rs = Nothing :Gew8G  
end if #%w)w R3  
  % > >8b%*f8R  
) TRUx  
O%haaL\  
&gUa^5'#  
6Nt/>[  
转自： ASP教程采集