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

0 then C7}iwklcsa  
Response.Write 错误 ： & err.description & `0w!&  
response.end Tu,nX'q]m  
End if
V`YmGo  
End Sub #J8(*!I  
Sub EndDB() N=~DSsw  
Set objOraDB = Nothing BO6XY90(  
Set objOraSession = Nothing e 0Z2B2  
End Sub D~`RLPMk  
Function getTableList(str) D$rn?@&g  
Dim strSql,strTmp ?P#\CW  
Dim objRs %|f@WxNrU  
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 ~x@V"rxGw  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) PGVp1TQ  
While Not objRs.Eof Qv;b$by3  
strA = objRs(uname) & . & objRs(tname) "T<7j.P?  
5LU7}v~/  
If str=strA then sqjDh  
strTmp = strTmp & & strA & !1]jk(Z  
Else A@4{-e\  
strTmp = strTmp & & strA & JRE\R&>g  
End if nr(C*E
 
objRs.MoveNext 0m\( @2E  
Wend HzuG- V  
Set objRs = Nothing m`Z.xIA7;  
getTableList = strTmp ycvgF6Me<  
End Function BGOS(  
% > pL>Yx>  
MU:v& sk  
hgwS_L  
{~(XO@;b  
98uMD  
All Tables : ,:V[H8 ?  
1:./f|m  
I?%#`Rvu  
iU=:YPE+.  
[;'$y:L=g  
() !ZCxi  
bX5/xf$q  
/len8FRf  
beV+3HqB8  
DiZv sc  
*TCV}=V G  
  then ="Azg8W  
strSql = Select * from & tblname <A`S
C;k\u  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) km`";gUp>  
Response.Write Pi,86?  
for i=0 to rs.Fields.count-1 ^%Ln@!P  
  Response.Write & rs.fields(i).name & ~(`MP<  
next F<dhG>E9  
Response.Write (hRg0Z=  
While Not Rs.Eof 1 .o0"  
  Response.Write sqRvnCD!  
  for i=0 to rs.fields.count -1 ,ZO?D|M1  
        Response.Write & Rs.Fields(i).Value &   ST4[
d'|j  
  next [p(0g;b
x  
  Response.Write       89P7iSV#*  
  Rs.MoveNext cA| n*A-j<  
Wend 3#\C!T0y  
Set Rs = Nothing c{x:'@%/s'  
end if ld5+/"$
 
  % > 60D6UW  
&b-&0rTqz  
!2/o]_K@+  
XG5T`>Y
l  
^(BE_<~  
转自： ASP教程采集