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

0 then SPTx-b[  
Response.Write 错误 ： & err.description & @(/$;I,  
response.end Ei,
dO;&  
End if =*(_sW6;  
End Sub Xhyc2DKa_  
Sub EndDB() 6a]Qg99\  
Set objOraDB = Nothing ]*DIn1C^  
Set objOraSession = Nothing s*CBYzOm  
End Sub Ki:98a$  
Function getTableList(str) OpOR!  
Dim strSql,strTmp 5=<fJXf5y  
Dim objRs Jk<b#SZ[b  
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 v>hc\H1P  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) NCkrf]*F-  
While Not objRs.Eof jRk1Iu|7  
strA = objRs(uname) & . & objRs(tname) ywjD.od"v  
*~#`LO  
If str=strA then {R~L7uR@O  
strTmp = strTmp & & strA & M1DV9~S  
Else Kv5 !cll5  
strTmp = strTmp & & strA & 6XhS g0s  
End if -k,}LJj
o  
objRs.MoveNext ]nS9taEA   
Wend O St~P^1  
Set objRs = Nothing oXwcil  
getTableList = strTmp jfR!M07|  
End Function (=53WbOh/t  
% > 0oyZlv*  
O,&p"K&Z  
%[?{H} y  
S`spUq1o  
8 =3#S'n  
All Tables : o2y #Yk  
SsL>K*t5  
tdi}P/x  

,-1taS  
AIQ]lQ(  
() I} ]s(  
fJ-8$w\uL  
t2-bw6U  
Ga"<qmLMc  
]\=M$:,RZ  
FefS]G  
  then {M0pq3SL*t  
strSql = Select * from & tblname uc;,JX!bN  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) X2('@Yh  
Response.Write =H^^AG\}  
for i=0 to rs.Fields.count-1 mhnK{M @56  
  Response.Write & rs.fields(i).name & W
-"FRTI4  
next P4"EvdV7  
Response.Write `{@?O%UB  
While Not Rs.Eof TSd;L u%hr  
  Response.Write pc_$,RkN  
  for i=0 to rs.fields.count -1 s9YP =)I  
        Response.Write & Rs.Fields(i).Value &   9TE
-
'R@  
  next IPh_QE2g  
  Response.Write       (XA]k%45  
  Rs.MoveNext #w]:<R^  
Wend ZsDn
`8  
Set Rs = Nothing #kEa&Se  
end if VV~Kgy  
  % > KA{Y*m^7  
\tg}K0E?R5  
_i&awm/U  
OY#=s!] M  
cM+s)4TPL  
转自： ASP教程采集