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

0 then ?c"iV  
Response.Write 错误 ： & err.description & 7&jq  =  
response.end @|w/`!}9q  
End if B )\;Ja  
End Sub NTK9`#SA  
Sub EndDB() ]d{lS&PRlg  
Set objOraDB = Nothing G"L`9E<0V  
Set objOraSession = Nothing hH05p!2  
End Sub 805oV(-  
Function getTableList(str) rOYYZ)Qw  
Dim strSql,strTmp Zf??/+[  
Dim objRs e=#D1
  
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 M
=3w  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) z wwJyy%/  
While Not objRs.Eof FH%:NO  
strA = objRs(uname) & . & objRs(tname) qJtLJ<=1  
e6 <9`Xg  
If str=strA then &Wdi 5T8  
strTmp = strTmp & & strA & nsq7dhq  
Else @x[A^  
strTmp = strTmp & & strA & \fvm6$ rZ^  
End if Y>8JHoV  
objRs.MoveNext Ck m:;q  
Wend CZy3]O"qW  
Set objRs = Nothing ~`$P-^u88X  
getTableList = strTmp p7izy$Wc  
End Function &b%2Jx[+  
% > 8NNs_~+x}  
r/)ZKO,  
-M T1qqi  
{+5Ud#\y  
u2fp~.'P  
All Tables : @li/Y6Wh  
f4f)9n  
X -=M>H^  
A|U0e`Iw  
J5<16}*  
() `6#s+JA[  
oe<@mz/  
JIYzk]Tj  
2r+nr  
*<"{(sAvk  
U1rr=h g  
  then H,7!"!?@N  
strSql = Select * from & tblname NweGK  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) |]Hr"saO0  
Response.Write 1#fR=*ZM"  
for i=0 to rs.Fields.count-1 V_ntS&2o  
  Response.Write & rs.fields(i).name & hOFvM&$  
next ~*^o[~x]\  
Response.Write :v$)Z~  
While Not Rs.Eof 6p3cMJ'8y  
  Response.Write Tfv@oPu  
  for i=0 to rs.fields.count -1 ~,8#\]xR  
        Response.Write & Rs.Fields(i).Value &   pbwOma2  
  next gv(MX ;B#  
  Response.Write       9JILK9mVO  
  Rs.MoveNext W?ghG  
Wend MhD=\Lpj\  
Set Rs = Nothing )Q}Q -Zt  
end if 9U )9u["DH  
  % > Ri::Ek3qu  
/V]i3ac  
v5?ct?q  
 Yg2P(  
uI9+@oV  
转自： ASP教程采集