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

0 then ;+iw?"  
Response.Write 错误 ： & err.description & :h6
0  
response.end Z*Jp?[##  
End if +q@g  
End Sub Yeb-u+23  
Sub EndDB() 0@*EwI  
Set objOraDB = Nothing ;c~
%:|  
Set objOraSession = Nothing Hy0l"CA*|  
End Sub V( bU=;Qo  
Function getTableList(str) >)`V$x  
Dim strSql,strTmp vqnFyd  
Dim objRs %)@3V8OI  
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 ^=gzms  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ?q+^U>wy&  
While Not objRs.Eof TWAt
)Q"J  
strA = objRs(uname) & . & objRs(tname) ^Q""N<  
BA cnFO  
If str=strA then $Hbd:1%i {  
strTmp = strTmp & & strA & U
v"O'Z  
Else @8xa"Dc  
strTmp = strTmp & & strA & W! q-WU  
End if 8.R~Y
s*  
objRs.MoveNext T|FF&|Pk
 
Wend E]IPag8C  
Set objRs = Nothing IL2OVLX  
getTableList = strTmp J|GEt@o3  
End Function 'Xw>?[BB  
% > sQ8_j  
+p#Q|o'  
l4`HuNR1  
R2!_)Rpf  
NA9N#;  
All Tables : Ci?A4q$.  
bP8O&R  
_|%l) KO  
" .:b43Z  
%V3xO%  
() *{e?%!Q  
Zo(p6rku  
}|!9aojr  
/~B\1  
)/2J|LxS  
2or!v^^u  
  then "T,^>xD  
strSql = Select * from & tblname |<Gq^3 2  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ]v{TSP^/  
Response.Write >[|Y$$  
for i=0 to rs.Fields.count-1 i4 Vv6Sx1  
  Response.Write & rs.fields(i).name & G'qGsKf\  
next ;]+p>p-#  
Response.Write x9{&rldC  
While Not Rs.Eof *)4`"D  
  Response.Write o(_~ st<  
  for i=0 to rs.fields.count -1 zP$Ef7bB  
        Response.Write & Rs.Fields(i).Value &   ,Xt!dT-  
  next l9up?opq  
  Response.Write       FY6!)/P0I7  
  Rs.MoveNext ~\~K
,v  
Wend EM&;SQ;C9  
Set Rs = Nothing iYHCa }  
end if F;@A2WD  
  % > ;^`WX}]C(  
Cvf^3~q  
>UUT9:,plA  
L=9w 3VXS  
Ivue"_i;!  
转自： ASP教程采集