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

0 then s S7c!  
Response.Write 错误 ： & err.description &
y? co|  
response.end 0xXC^jx:  
End if L5\WpM=  
End Sub eET}r24  
Sub EndDB() >MvDVPi~+  
Set objOraDB = Nothing v 7x:dcV  
Set objOraSession = Nothing N~xLu8,  
End Sub X'
"SVO.  
Function getTableList(str) )d>!"JB-  
Dim strSql,strTmp PKzyV ;  
Dim objRs 5hy""i  
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 J`^I./  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) oo.2Dn6z  
While Not objRs.Eof 9\DQ>V TQ  
strA = objRs(uname) & . & objRs(tname) `9b7>Nn<  
fP `b>]N_  
If str=strA then 1N>|yQz  
strTmp = strTmp & & strA & I'0@viF"Nx  
Else 9uQ 4u/F  
strTmp = strTmp & & strA & IyLx0[:U  
End if J>bJ 449B  
objRs.MoveNext UCClWr  
Wend ,9o"43D:a|  
Set objRs = Nothing ok4@N @  
getTableList = strTmp 1{r)L{]  
End Function qm8&*UuKJ  
% > Zc`BiLzrIG  
GHeVp/u  
`WH"%V:"Q  
.8G@%p{,  
k'5?M  
All Tables : ksN+?E4w  
UQI]>#_/v  
WpRc)g:  
byfJy^8G  
iS<I0\D  
()  MEGv}  
*^wm1|5  
IDG}Z
lG  
\9g+^vQ
g  
1cD! :[  
u9EgdpD  
  then 6 jn3`D  
strSql = Select * from & tblname wD]/{
jw  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) s=QAO!aw  
Response.Write >M/V oV  
for i=0 to rs.Fields.count-1 xsMBC  
  Response.Write & rs.fields(i).name & ~'CE[G5  
next A?pbWt~
}  
Response.Write g #6E|n  
While Not Rs.Eof &mtJRfnu  
  Response.Write HI11Jl}{  
  for i=0 to rs.fields.count -1 =^5Alba/  
        Response.Write & Rs.Fields(i).Value &   *N<&GH(j  
  next O|M{-)  
  Response.Write       BjzPz  
  Rs.MoveNext 6Z%U`,S  
Wend sU{NHC)5  
Set Rs = Nothing (X3Tav  
end if x" L20}  
  % > :FTMmW,>'  
eF3,2DDC  
{>)#H
D  
_<OSqE  
vG"=h%  
转自： ASP教程采集