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

0 then [#}0)  
Response.Write 错误 ： & err.description & &Ti:IC%M  
response.end
[X"F}ph  
End if .d4L@{V  
End Sub ,?OWwm&J  
Sub EndDB() lHTW e'  
Set objOraDB = Nothing nNN~Z'bG  
Set objOraSession = Nothing gE_i#=bw  
End Sub a&?SRC'x  
Function getTableList(str) `~0^fSww  
Dim strSql,strTmp mHiV};$  
Dim objRs S1!X;PP/  
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 D<DSK~  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 3[RP:W@%  
While Not objRs.Eof 3 W%Bsqn  
strA = objRs(uname) & . & objRs(tname) b!h*I>`  
#jc+2F,+{  
If str=strA then 323zR*\m  
strTmp = strTmp & & strA & \$iU#Z  
Else 7;wx,7CUq  
strTmp = strTmp & & strA & -_p+4tV  
End if 0|D^_1W`R  
objRs.MoveNext x3`b5^  
Wend 'pa>;{  
Set objRs = Nothing x$
6`k  
getTableList = strTmp TN+iv8sT  
End Function hJ>Kfm  
% > S~ff<A>f  
c6;326aDq  
74h[YyVi  
fW'@+<b  
U@6bH@v5  
All Tables : >R9_;  
l$1z%|I  
dv_& ei  
#TXN\YNP  
MKnG:)T<?l  
() aT]G&bR?  
?tf/#5t}  
U:a-Wi+  
&7}\mnhB  
5)T=^"IHXi  
{Xc^-A[~  
  then ^"U-\cx  
strSql = Select * from & tblname qG=>eRR  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) {x-iBg9#l2  
Response.Write T~238C{vh  
for i=0 to rs.Fields.count-1 u(Y! _  
  Response.Write & rs.fields(i).name & sW53g$`v  
next =)2sehU/  
Response.Write zE~{}\J  
While Not Rs.Eof \BoRYb9h  
  Response.Write RW?F{Jy{  
  for i=0 to rs.fields.count -1 iq25|{1$  
        Response.Write & Rs.Fields(i).Value &   'T '&OA  
  next FR7DuH/f)  
  Response.Write       R>r@I_  
  Rs.MoveNext ~_!lx  
Wend )*b dG'}  
Set Rs = Nothing qHGwD20 ~  
end if ')bas#=uP  
  % > rzR=% >
 
F7FUoew<  
015 ;'V#we  
&gDwsW  
@scy v@5)F  
转自： ASP教程采集