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

0 then y<|vcg8x  
Response.Write 错误 ： & err.description & k+^-;=u6<  
response.end p;S<WJv k  
End if w[>/(R7im  
End Sub {+V1>6  
Sub EndDB() 3{mu77  
Set objOraDB = Nothing =O qw`
jw  
Set objOraSession = Nothing
1/t}>>,M  
End Sub : "[dr~.  
Function getTableList(str) @"jV^2oY1  
Dim strSql,strTmp $<)k-Cf  
Dim objRs f IUz%YFn  
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 #,dE)  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) qTA
@0fL  
While Not objRs.Eof Ea%}VZ&[  
strA = objRs(uname) & . & objRs(tname) IxY%d}[uo  
Z/ "jLfP  
If str=strA then *@'\4OO  
strTmp = strTmp & & strA & MQR@(>TZy  
Else \Rc7$bS2H  
strTmp = strTmp & & strA & VP4W~;UV|\  
End if m6P!#=a:l<  
objRs.MoveNext &n% 3rC5{  
Wend `(|jm$Q  
Set objRs = Nothing Bc{#ia
  
getTableList = strTmp ?#F}mOVAa  
End Function %N!2 _uk5  
% > wo;`D  
@u.
/VK  
`I.Uw$,P  

Y'NQt?h  
Sm2 |I6  
All Tables : Nl_Sgyx,\  
,B>Rc#  
;>o}/h  
b469  
sjLI^#a  
() Vi~9[&.E\!  
em@\S  
~F`t[p  
J4 yT|  
v)(tB7&`=  
>$]SYF29  
  then f#:7$:{F1  
strSql = Select * from & tblname ;;E "+.  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ;Ry )^5Q  
Response.Write z.f~wAT@<  
for i=0 to rs.Fields.count-1 2}P<}-?6  
  Response.Write & rs.fields(i).name & 'l$<DcBj  
next Ak!l}d  
Response.Write A&i   
While Not Rs.Eof Z9rs,_A  
  Response.Write vb{+yEa  
  for i=0 to rs.fields.count -1 _ i )Z8#  
        Response.Write & Rs.Fields(i).Value &   ,Yg<Z1  
  next U@$Kp>X  
  Response.Write       gk+$CyjJ  
  Rs.MoveNext Az2HlKF"L  
Wend s9 '*Vm  
Set Rs = Nothing Cc:m~e6r  
end if n237%LH[  
  % > CErkmod{}e  
f!}c0nb  
:%Dw3IrOM  
h(hb?f@1:  
`;L0ax  
转自： ASP教程采集