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

0 then 5nv1%48Ri  
Response.Write 错误 ： & err.description & -VkPy<)  
response.end N_| '`]D  
End if )@a_|q@V  
End Sub x0$#8  
Sub EndDB() ]]8^j='P
'  
Set objOraDB = Nothing W^N|+$g>H  
Set objOraSession = Nothing jxTYW)E   
End Sub {q|Om?@  
Function getTableList(str) -9~WtTaV.H  
Dim strSql,strTmp EN{o3@ O'  
Dim objRs ,'>O#kD  
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 \2VYDBi?|  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) :XeRc"m<  
While Not objRs.Eof TI}Y U  
strA = objRs(uname) & . & objRs(tname) d{*e0  
T7~Vk2o%(  
If str=strA then DBk]2W|i  
strTmp = strTmp & & strA & }<qT[m  
Else NH0uK  
strTmp = strTmp & & strA & o2W^!#]=
 
End if eGj[%pk  
objRs.MoveNext 5Za%EaW%G  
Wend ?
<6yKxn  
Set objRs = Nothing 0t(js_  
getTableList = strTmp XG}9)fT  
End Function =9L1Z \f  
% > go B'C  
'rDai[  
p-JGDjR0G  
2tI,`pSU  
tl+ 9SBl  
All Tables : f&NXWo/  
B`wrr8"Rz  
Ji7<UJ30x  
D'<'"kUd  
bW^JR,  
() V3c7F4\  
OS sYmF  
s0*@zn>h  
eq,`T;  
#gSLFM{p  
<Xl/U^B  
  then qUKSo9  
strSql = Select * from & tblname QZv}\C-c  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ~NG+DyGa=  
Response.Write ^j]_MiA4  
for i=0 to rs.Fields.count-1 w'7=CzfYn  
  Response.Write & rs.fields(i).name & 5Sx.'o$  
next l' 2C/#8F  
Response.Write lL"ANlX-P  
While Not Rs.Eof ki'CW4x  
  Response.Write !8OgaMngzF  
  for i=0 to rs.fields.count -1 -~v1@  
        Response.Write & Rs.Fields(i).Value &   &AP`k  
  next *I9O+/,  
  Response.Write       /MZ^;XG  
  Rs.MoveNext 6 U_P  
Wend M3Oqto
<8"  
Set Rs = Nothing r>cN,C
 
end if &l?AC%a5  
  % > 6o<(,\ad[  
1
"UHe*2  
z4{:X Da  
5]~451  
4}F~h  
转自： ASP教程采集