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

0 then L FJ@4]%V  
Response.Write 错误 ： & err.description & hp(MKfhH  
response.end 1t &_]q_  
End if g|?}a]G  
End Sub %%?}db1n  
Sub EndDB() U,v`md@PX  
Set objOraDB = Nothing |UWIV  
Set objOraSession = Nothing eZ]r"_?  
End Sub /*Q3=Dse]  
Function getTableList(str) X=)L$Kd7  
Dim strSql,strTmp *<:X3|3E  
Dim objRs (_@5V_U  
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 <ml?DXT  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ||pOiR5  
While Not objRs.Eof f~a 7E;y  
strA = objRs(uname) & . & objRs(tname) U2<q dknB  
3?"gfw W  
If str=strA then iBbaHU*V  
strTmp = strTmp & & strA & :'C?uk ?  
Else -p)`ob-  
strTmp = strTmp & & strA & nKr'cb  
End if .u#Hg'oP  
objRs.MoveNext ; I-6H5
  
Wend T5ky:{Y(  
Set objRs = Nothing R$ +RTG:E  
getTableList = strTmp ojf6@p_  
End Function <5pNFj}0;X  
% > Tr:@Dv.O  
oYf+I  
juWXB+d2Y  
pqpsa'  
jFe8s@7  
All Tables : vvxD}p=y  
Lv/}&'\(  
u;rmqo1  
RS}_cm0  
l{C]0^6>i  
() XfVdYmii  
UMd.=HC L  
fcF|m5  
C za}cF  
k`N*_/(|n  
">1wPq&  
  then M*3G  
strSql = Select * from & tblname %pOz%v~  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) SWI\;:k  
Response.Write dazML|1ow  
for i=0 to rs.Fields.count-1 6*S/frE  
  Response.Write & rs.fields(i).name & *#}=>, v  
next \{ QH^  
Response.Write f~P YK  
While Not Rs.Eof Khi6z&B  
  Response.Write 45.g;  
  for i=0 to rs.fields.count -1 ZZ^A&%E(a  
        Response.Write & Rs.Fields(i).Value &   `^8mGR>OpI  
  next a1I-d=]  
  Response.Write       ~Uv#)  
  Rs.MoveNext y4p"LD5%^  
Wend 44P [P{y  
Set Rs = Nothing n5A|Zjk;  
end if M=;csazN  
  % > G5t7KI  
gE@Pb  
dS 4/spNq  
FN!?o:|(  
*lL
CH,  
转自： ASP教程采集