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

0 then ?W>qUr
Z  
Response.Write 错误 ： & err.description & ag-f{UsTy  
response.end ]hos+;4p  
End if +N`ua  
End Sub Zf$Np50@(  
Sub EndDB() #>lG7Ns|4  
Set objOraDB = Nothing Lk\P7w{  
Set objOraSession = Nothing 1u3,'8F  
End Sub ^9Qy/Er'  
Function getTableList(str) [AMAa]^  
Dim strSql,strTmp #7ohQrP  
Dim objRs #$1Z
 
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 jTO), v:w  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Wbr+KX8)  
While Not objRs.Eof &xRo^iV?  
strA = objRs(uname) & . & objRs(tname) ls@i".[  
'3zc|eJt&  
If str=strA then c\a_VRN>r  
strTmp = strTmp & & strA & 8Nu=^[qwQM  
Else x }Ad_#q  
strTmp = strTmp & & strA & vz.>~HBP  
End if ]vwW]O7
  
objRs.MoveNext ck?YI]q|  
Wend S<'[%ihx  
Set objRs = Nothing O T.*pk+<)  
getTableList = strTmp I(S`j[U  
End Function lpz2 m\  
% > 9$2/MT't  
'yMF~r3J  
dFKM 8_jH  
"[y-
+)WTG  
u\C lP#  
All Tables : 0PlO(",a  
gNt(,_]ZR  
d_IAs  
0#nPbe,Lj  
o!)3?  
() +HBd %1  
<J^MCqp!v  
C.FI~Z  
PYGRsrcFd#  
30SW\@  
j KoG7HH  
  then BocSwf;v.  
strSql = Select * from & tblname c@893<_  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 1fpQLaT  
Response.Write ZzSz%z_sE  
for i=0 to rs.Fields.count-1 \--8lH -K  
  Response.Write & rs.fields(i).name & m6w].-D8  
next abyo4i5T  
Response.Write !O<)\)|g  
While Not Rs.Eof A<??T[  
  Response.Write U H*r5o3  
  for i=0 to rs.fields.count -1 Eea*s'  
        Response.Write & Rs.Fields(i).Value &   oM>Z;QVRC:  
  next R=QZgpR  
  Response.Write       {0WHn.,2Y  
  Rs.MoveNext EwvoQ$#jv  
Wend R}!:'^  
Set Rs = Nothing 0eDHu  
end if uC(V  
  % > bcE._9@@  
OG>}M$Ora  
zd >t-?g  
ZZzMO6US0  
~v|>xqWV  
转自： ASP教程采集