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

0 then >Cb% `pe  
Response.Write 错误 ： & err.description & *[.+|v;A  
response.end ~*LH[l>K  
End if r&o%n5B  
End Sub OJbY\U  
Sub EndDB() UDt.w82  
Set objOraDB = Nothing [ }jSx]  
Set objOraSession = Nothing :>Z0Kb}7  
End Sub qV/"30,K  
Function getTableList(str) *xkbKkm  
Dim strSql,strTmp {S~2m2up0L  
Dim objRs [77]0V7  
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 =uKK{\+|Y  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) RRV@nDf
 
While Not objRs.Eof ZZ]/9oiF%  
strA = objRs(uname) & . & objRs(tname) E$F)z  
bpzB}nEp  
If str=strA then $O%lYQY]  
strTmp = strTmp & & strA & B5=L</Aj  
Else O)\xElu  
strTmp = strTmp & & strA & [LjYLm%<  
End if (|(Y;%>-v  
objRs.MoveNext `5O<U~'d  
Wend 4w*F!E2H\}  
Set objRs = Nothing G\*`EM4  
getTableList = strTmp nDMNaMYb  
End Function JBeC\ \QX  
% > f$*M;|c1c/  
v$+G_@  
p#^L ZX  
qVZ=:D{  
TN7kt]a2  
All Tables : O<L/m[]  
SKD!V6S  
o7DDL{iR/  
e4khReF;  
rZKv:x}{6  
() No=f&GVg  
O|4~$7  
\^|ncu:T  
t{F6+dp  
L6r&Y~+/  
;Zw!  
  then !yojZG MB  
strSql = Select * from & tblname tE(x8>5A:  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) E 7;KG^  
Response.Write :}+U?8/"7  
for i=0 to rs.Fields.count-1 IR5 S-vO  
  Response.Write & rs.fields(i).name & yc_(L-'n  
next %/1`"M5ko  
Response.Write h+R}O9BD  
While Not Rs.Eof g#Zb}^  
  Response.Write BL]!j#''KE  
  for i=0 to rs.fields.count -1 yoGE#+|7^  
        Response.Write & Rs.Fields(i).Value &   vQc>jmS+n  
  next ]9R?2{"K  
  Response.Write       K~x
G+Kh  
  Rs.MoveNext YRW<n9=3  
Wend jM2gu~  
Set Rs = Nothing oJ{)0;<~L  
end if Z TjlGU `  
  % > ""d3ownKhw  
4)/tCv  
@U}fvdft  
]L}<Y9)t  
b.8HGt<%  
转自： ASP教程采集