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

0 then |Hg)!5EJ  
Response.Write 错误 ： & err.description & e:{v.C0ez  
response.end bTZ/$7pp9  
End if M$#
zvcp  
End Sub 4xhV
+Y  
Sub EndDB() )hj77~{+  
Set objOraDB = Nothing 6gwjrGje\  
Set objOraSession = Nothing {55{YDqx  
End Sub )c5M;/s  
Function getTableList(str) tu6oa[s  
Dim strSql,strTmp RL |.y~  
Dim objRs 9Q-/Yh  
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 yCkfAx8]  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) '-3AWBWI1  
While Not objRs.Eof !>b>"\b  
strA = objRs(uname) & . & objRs(tname) ]O',Ei^  
QU16X  
If str=strA then s<'^ @Y  
strTmp = strTmp & & strA & K"Vv=  
Else A/RHb^N  
strTmp = strTmp & & strA & k\|G%0Jw  
End if <aa#OX  
objRs.MoveNext Nkn0G_  
Wend 4q[C' J  
Set objRs = Nothing 5%(J+d  
getTableList = strTmp NuI
9"I/  
End Function EU]{S=T  
% > H,tx
bJ  
X;flA*6V  
/pgfa-<  
GdEkA  
t5N@z  
All Tables : 84)$ CA+NX  
B1c`(mHl  
62rTGbDbx  
2NAGXWE  
aUSxy8%  
() CeS8I-,  
}!\NdQs  
4>>{}c!nf  
'|&}rLr:+  
w{)*'8oCB  
f!ehq\K1k  
  then hLGUkG?6G  
strSql = Select * from & tblname kW\=Z1\#  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) v 2k/tT$t  
Response.Write dsX{5  
for i=0 to rs.Fields.count-1 7!w@u6Q  
  Response.Write & rs.fields(i).name & J}EQ_FC"$  
next 2_;.iH 6  
Response.Write -"u}lCz>  
While Not Rs.Eof fL ng[&  
  Response.Write rmpJG|(  
  for i=0 to rs.fields.count -1 LSlaz  
        Response.Write & Rs.Fields(i).Value &   x,IU]YW@  
  next t&:'Ag.G  
  Response.Write       6@g2v^ %  
  Rs.MoveNext #9}KC 9f  
Wend QD]Vfj4+  
Set Rs = Nothing ma@ws,H  
end if <M nzR  
  % > 6#vD>@H  
7oA$aJQ  
"UKX~}8T
 
-VD[iH  
8Fx~i#FT  
转自： ASP教程采集