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

0 then l~q\3UKlt  
Response.Write 错误 ： & err.description & Oc0a77@  
response.end OX0%C.K)hZ  
End if H [\o RId  
End Sub ;%9|kU  
Sub EndDB() / &5,3rU.G  
Set objOraDB = Nothing !;v|'I  
Set objOraSession = Nothing #$07:UJ  
End Sub Hyl%mJ  
Function getTableList(str) .o^l z 9:  
Dim strSql,strTmp Xza(k  
Dim objRs 13=AW  
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 ;(Or`u]Dr  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 20h, ^  
While Not objRs.Eof 9G5rcYi  
strA = objRs(uname) & . & objRs(tname) (NU NHxi5B  
>uB#&Q  
If str=strA then `i*E~'  
strTmp = strTmp & & strA & 83\pZ1>)_  
Else OX!tsARC@  
strTmp = strTmp & & strA & Cctu|^V  
End if sf87$S0  
objRs.MoveNext lT?v^\(H  
Wend `iNSr?N.  
Set objRs = Nothing %s|Ely)  
getTableList = strTmp O
m\vMd@!  
End Function *vxk@`K~  
% > (m/G(wg  
J=I:CD%  
"ne?P9'hF  
a~}OZ&PG  
`?_Q5lp/s  
All Tables : $|@@Qk/T  
g|yvF-+  
xF'EiX~  
E A1?)|}n  
zKJ#`OhT  
() d#4**BM  
0@iY:aF  
IY\5@PVZ  
b9HtR-iR;  
6j]0R*B7`Q  
m8hk:4Ae  
  then />pI8 g<  
strSql = Select * from & tblname  w``ST  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) <)c)%'v  
Response.Write 9IfmW^0  
for i=0 to rs.Fields.count-1 ;))+>%SGCt  
  Response.Write & rs.fields(i).name & c9u`!'g`i  
next K!Y71_#  
Response.Write Yu^4VXp~M%  
While Not Rs.Eof ~Otoqu|  
  Response.Write mnX2a  
  for i=0 to rs.fields.count -1 :KP@RZm  
        Response.Write & Rs.Fields(i).Value &   6}Ci>_i4#  
  next ag[wdoj  
  Response.Write       H=
v
UYz  
  Rs.MoveNext `0gyr(fES  
Wend nT$SfGFj8  
Set Rs = Nothing WO>nIo5Y  
end if D8?Vn"  
  % > s$`0yGmQ  
j-}O0~Jz  
D.u{~  
oY3;.;'bk  
>jLY"  
转自： ASP教程采集