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

0 then z%(m:/N70  
Response.Write 错误 ： & err.description & ^tIs57!  
response.end Vq2d+ ,fb  
End if U-#wFc2N  
End Sub ?kX$Y{M}  
Sub EndDB() ".onev^(  
Set objOraDB = Nothing F#eZ
fj~  
Set objOraSession = Nothing 7"wr8  
End Sub L0Bcx|)"$`  
Function getTableList(str) yYwZZa1  
Dim strSql,strTmp 4*d$o=wa  
Dim objRs ZGf R:a)wc  
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 sL75C|f9  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) fI;6!M#  
While Not objRs.Eof jQ@z!GirT  
strA = objRs(uname) & . & objRs(tname) c#|!^gjf  
b=horvs/!  
If str=strA then F\F_">5  
strTmp = strTmp & & strA & 9'faH  
Else C:xgM'~+  
strTmp = strTmp & & strA & xDG8C39qrs  
End if XCCN6[[+  
objRs.MoveNext <43O,Kx'Su  
Wend /]=Ih  
Set objRs = Nothing kL\
FY  
getTableList = strTmp ;D&FZ|`(u  
End Function <R582$( I  
% > #mLF6"A  
NK;%c-r0v7  
FY+0r67]  
"MQy>mD6  
SB0Cq  
All Tables : 5P-7"g ca  
X*hY?'Rp  
5R
XZ$/  
0+%{1JkJq  
{fFZ%$  
() 1`J-|eH=Q  
C?m2R(RF  
4<[,"<G~3  
g|ewc'y  
I},.U&r  
ej,j1iB  
  then kN_ i0~y@-  
strSql = Select * from & tblname gpDH_!K  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) PKFjM~J  
Response.Write cu*8,*FU  
for i=0 to rs.Fields.count-1  BC*62m  
  Response.Write & rs.fields(i).name & w#mnab@  
next kqy d3Si>  
Response.Write Yci>'$tQ  
While Not Rs.Eof l\g>@b  
  Response.Write `u6CuH
5  
  for i=0 to rs.fields.count -1 dZ}gf}.v  
        Response.Write & Rs.Fields(i).Value &   nX%b@cOXj  
  next "g27|e?y  
  Response.Write       V
&)Jvx}^  
  Rs.MoveNext N$]B$vv  
Wend 35=kZXwG+4  
Set Rs = Nothing 0T,uH  
end if AB(WK9o  
  % > c IK  
HXV4E\JA  
hK^(Y  
DS;,@$N_N  
*{WhUHZF  
转自： ASP教程采集