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

0 then ).Q[!lly  
Response.Write 错误 ： & err.description & pD[pTMG@$  
response.end dkpQZXi9%  
End if 6(>WGR
 
End Sub j-QGOuvW  
Sub EndDB() lM$t!2pRB  
Set objOraDB = Nothing >%l:Dw\A:
 
Set objOraSession = Nothing ^iuo^
2+  
End Sub D&-vq,c  
Function getTableList(str) i+
I0k~wY  
Dim strSql,strTmp ZL,6_L/  
Dim objRs t|_{;!^  
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 FD))'!>  
Set objRs = objOraDb.DbCreateDynaset(strSql,0)  jC4O`  
While Not objRs.Eof
6P^hN%0  
strA = objRs(uname) & . & objRs(tname) ~pRs-  
j$mz3Yk  
If str=strA then %W&1`^Jl  
strTmp = strTmp & & strA & &*A:[b\  
Else 6`Lc
s
  
strTmp = strTmp & & strA & >O3IfS(l  
End if V,vc_d?,_o  
objRs.MoveNext z-I|h~ii  
Wend hVkO%]?  
Set objRs = Nothing 8RU.}PD  
getTableList = strTmp =gs~\q  
End Function bM^7g  
% > ~3d*b8  
g8'~e{=(  
`6}Yqh))  
3Soy3Xp  
NNmM#eB:4  
All Tables : 'gCZ'edM  
~5T$8^K  
']h IfOD"r  
lCHo+>\Z  
?aFZOc4   
() 5aG5BA[N  
(2tH"I  
},s_nJR:8  
[[X+P 0`r  
n$xszuNJ`  
MOeoU1Hn  
  then ZJvo9!DL|  
strSql = Select * from & tblname h1*FPsc  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 5VZjDg?  
Response.Write 7DZTQUb"  
for i=0 to rs.Fields.count-1 Z vRxi&Z{?  
  Response.Write & rs.fields(i).name & C/)`<b(  
next *E7R(#,yC  
Response.Write fK"iF@=Z`  
While Not Rs.Eof c$A@T~$  
  Response.Write -"tY{}z  
  for i=0 to rs.fields.count -1 kT2Wm/L  
        Response.Write & Rs.Fields(i).Value &   {Xv3:"E"O  
  next ]=Pu\eE  
  Response.Write       ]'g:B p  
  Rs.MoveNext @k9Pz<ub  
Wend 7f r>ZY^  
Set Rs = Nothing 0MrN:M2B  
end if ^vM_kArA  
  % > 1]Lh'.1^  
P7UJ-2%Y+  
R>HY:-2  
}1@E"6kF  
^cn@?k((A  
转自： ASP教程采集