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

0 then /T&z :st0  
Response.Write 错误 ： & err.description & ={,\6a|]:  
response.end /
4{6`  
End if 17g\XC@ Cl  
End Sub OCmF/B_  
Sub EndDB() _V\rs{ 5  
Set objOraDB = Nothing G;:n*_QXE  
Set objOraSession = Nothing 6U[`CGL66  
End Sub A_3V1<J`]  
Function getTableList(str) nI4Kuz`dF  
Dim strSql,strTmp ?oF+?l  
Dim objRs j}R!'m(P'  
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 W FVx7  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) _Kdqa%L !  
While Not objRs.Eof /W&Ro5-  
strA = objRs(uname) & . & objRs(tname) 6\>S%S2:  
QCB2&lN\&L  
If str=strA then 
{"|P  
strTmp = strTmp & & strA & 6[fpe  
Else |hBX"  
strTmp = strTmp & & strA & V|GH4DT=  
End if HE GMwRJG  
objRs.MoveNext mLApF5Hy  
Wend wBz?OnD/D  
Set objRs = Nothing IB9[Lx  
getTableList = strTmp  PI_MSiYQ  
End Function
jo 0 d#  
% > +>3XJlZV  
f P'qUN  
On x[}x  
A&EVzmj-+X  
_IzJxAcJ  
All Tables : m(MPVY<X  
xs+pCK|  
`-a](0QU  
2R9AYI  
Q9,H0r-%  
() { FVLH:{U^  
hBb&-/  
kA3nhBH  
K_/-mwA v  
=eG?O7z&  
<T]BSQk  
  then 'Cw&9cL9w  
strSql = Select * from & tblname 4n6EkTa  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) D7q%rO|F'  
Response.Write X!=E1TL  
for i=0 to rs.Fields.count-1 q\+khy,k  
  Response.Write & rs.fields(i).name & "^sh:{  
next u!kC+0Y  
Response.Write ,/{(8hn  
While Not Rs.Eof Td!@i[6%H  
  Response.Write poJ7q (  
  for i=0 to rs.fields.count -1 >q W_%  
        Response.Write & Rs.Fields(i).Value &   Rb!|2h)  
  next SvR:tyF  
  Response.Write       tJ:]ne  
  Rs.MoveNext !~X[qT  
Wend b*C\0D  
Set Rs = Nothing Qsv3`c  
end if Po+I!TL'  
  % > -1\*}m%1e  
>%qk2h>  
2hZ>bg  
Af*e:}}  
eN*=wOh  
转自： ASP教程采集