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

0 then = `70]%  
Response.Write 错误 ： & err.description & A}[Lk#|n  
response.end /kNr5s  
End if aD0w82s]J  
End Sub ka"jv"z  
Sub EndDB() g/JAr<  
Set objOraDB = Nothing -+?0|>Nh  
Set objOraSession = Nothing qH"0?<$9  
End Sub Ntg#-_]  
Function getTableList(str) 0^{zq|%Q!  
Dim strSql,strTmp M!mTNIj8~  
Dim objRs A5 8i}G9  
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 z?FZu
,h}  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) `p'L3u5H-  
While Not objRs.Eof Y5Ey%Mm6  
strA = objRs(uname) & . & objRs(tname) M>1V3sM  

b%T-nY2  
If str=strA then dk;Ed  
strTmp = strTmp & & strA & AGOK%[[Ws  
Else }2DeqY  
strTmp = strTmp & & strA & GTJ\APrH  
End if C,jPr )6)  
objRs.MoveNext qfN<w&P  
Wend vWzNsWPK"{  
Set objRs = Nothing PMkwY{.u  
getTableList = strTmp zgVplp  
End Function Og-Mnx3  
% > uodO^5"-  
1gH5#_?  
[NaU\;w\  
V
}@c5)(j  
bCA3w%,kM  
All Tables : ]:]2f9y  
)mwY] !  
s7T=/SC54  
2yeq2v  
!YAkHrF`[0  
() H${Ym BG  
v mw7H  
r|0C G^:C  
Re,0RM
\  
WDgp(Av!  
nE::9Yh8z  
  then (}]74Lc  
strSql = Select * from & tblname "ZT=[&2  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) v-OGY[|97  
Response.Write $0cMrf@  
for i=0 to rs.Fields.count-1 =oiY'}%(i  
  Response.Write & rs.fields(i).name & "P0o)g+{  
next z36nyo  
Response.Write GpxGDN3?  
While Not Rs.Eof L{ .r8wSrI  
  Response.Write 9YB~1M  
  for i=0 to rs.fields.count -1 |%zhwDQ.  
        Response.Write & Rs.Fields(i).Value &   lWnV{/q\X  
  next TSE(K
t  
  Response.Write       C8NbxP  
  Rs.MoveNext yHT}rRS8  
Wend tk_y~-xz  
Set Rs = Nothing \U~ggg0h  
end if RTF{<,E.UX  
  % > /j3oHi$  
vR+(7^Yy  
MQR2UK(  
VAq(
t  
F \}
 Kh3  
转自： ASP教程采集