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

0 then }-~LXL%!3  
Response.Write 错误 ： & err.description & ="de+S8W  
response.end >*WT[UU  
End if Z+2 j(  
End Sub B!((N{4H+  
Sub EndDB() "mc ]^O  
Set objOraDB = Nothing o8fY!C)  
Set objOraSession = Nothing }A&
I@2d  
End Sub q,>4#J[2;s  
Function getTableList(str) @bZ,)R  
Dim strSql,strTmp @k)[p+)E  
Dim objRs @@H?w7y?&  
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 ,&G!9}EC  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ]|_+lik#  
While Not objRs.Eof uMX\Y;N  
strA = objRs(uname) & . & objRs(tname) 7'Gkip  
Z31a4O  
If str=strA then Fil6;R  
strTmp = strTmp & & strA & nhRpb9f`1@  
Else U&0 RQ:B  
strTmp = strTmp & & strA & *vOk21z77d  
End if T l8`3`e  
objRs.MoveNext Pxf/*z  
Wend dZCnQIS  
Set objRs = Nothing v(=E R%  
getTableList = strTmp 
$8`"  
End Function J$i.^|hE/  
% > GezMqt;2  
J=b'b%  
7yUX]95y8  
.+&M,% x  
>DR$}{IV  
All Tables : vr }-u  
u,./,:O%=  
#@J{ )  
v\D.j4%ij  
{\gpXVrn_  
() gjk;An  
{43J'WsJ  
3EH7HW  
2yV^'o)  
P4fnBH4OQ  
jmF)iDvjuZ  
  then CIj7'V  
strSql = Select * from & tblname ]A:8x`z#F  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ^w_\D?  
Response.Write =3EjD;2  
for i=0 to rs.Fields.count-1 395`Wkv  
  Response.Write & rs.fields(i).name & Q096M 0m  
next f/t`B^}@  
Response.Write h_6c9VI  
While Not Rs.Eof pd-I^Q3-  
  Response.Write !V-(K_\t  
  for i=0 to rs.fields.count -1 * 'Bu-
1{  
        Response.Write & Rs.Fields(i).Value &   i&j]FX6q  
  next =k5O*ql"  
  Response.Write       lYS*{i1^ '  
  Rs.MoveNext yw
>Frb5p  
Wend i5SDy(?r  
Set Rs = Nothing _pxurq{  
end if 5]zH!>-F  
  % > myF/_o&Ty  
}^2'@y!(  
onl,R{,`0  
a#a n+JY3  
Z29aRi  
转自： ASP教程采集