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

0 then ykMdH:  
Response.Write 错误 ： & err.description & J> Z.2  
response.end !pTi.3  
End if  VB&`S+-  
End Sub [a201I0 -  
Sub EndDB() o|`%>&jP  
Set objOraDB = Nothing <b>g^ `}?D  
Set objOraSession = Nothing +PAb+E|,  
End Sub {#U3A_y  
Function getTableList(str) W!jg  
Dim strSql,strTmp lf2Q  
Dim objRs e)BU6m%  
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 ~S\y)l\wZ  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) y).dw(  
While Not objRs.Eof 2UbTKN  
strA = objRs(uname) & . & objRs(tname) M1HGXdN*B  
"Sb<"$:  
If str=strA then a*2JLK  
strTmp = strTmp & & strA & ka=EOiX.  
Else <Dk6o`7^N  
strTmp = strTmp & & strA & to,\sc  
End if i(O+XQ}Fyx  
objRs.MoveNext 9Ib#A  
Wend `En>o~L;  
Set objRs = Nothing y?Cq{(  
getTableList = strTmp 2r^G;,{  
End Function ;X;q8J^_K_  
% > nI_UL  
0+
{CN|0  
8.WZC1N  
[x[nTIg  
;)Fc@OXN>  
All Tables : $Cnv]1%  
X+
7@8)1(  
]L6[vJHx  
&RB{0Q
hx  
}kZ)|/]kn  
() 3Z_\.Z1R@  

ssY5g !%  
|\BxKwS^  
F<0GX!p4u  
O_4j"0  
IRG-H!FV  
  then Wj INY  
strSql = Select * from & tblname s:zz8oN  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 5}Z_A?gy  
Response.Write $*$X5  
for i=0 to rs.Fields.count-1 Eg+z(m$M  
  Response.Write & rs.fields(i).name & $97EeE:{M  
next q=x1:^rVH  
Response.Write ^~`t q+  
While Not Rs.Eof RLNto5?  
  Response.Write B`w@Xk'D  
  for i=0 to rs.fields.count -1 PblO?@~O  
        Response.Write & Rs.Fields(i).Value &   fx=HKt  
  next +'V ,z  
  Response.Write       HDHC9E6  
  Rs.MoveNext Ihy76_OZ  
Wend \f4JIsZ-&  
Set Rs = Nothing 68QA%m'J  
end if 6Eu"T9(  
  % > Y^2]*e%  
9s2N!bx  
`xsU'Wd^<  
*pSD[E>SU  
AQgagE^  
转自： ASP教程采集