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

0 then 6[XaIco=C  
Response.Write 错误 ： & err.description & A4l"^dZc  
response.end P\WHM
(  
End if }P%gwgPK  
End Sub $I-iq @  
Sub EndDB() 3F;0a ;[  
Set objOraDB = Nothing m`zd0IRTP  
Set objOraSession = Nothing V9<E`C  
End Sub chD7^&5]  
Function getTableList(str) bny@AP(CY+  
Dim strSql,strTmp rkS'OC  
Dim objRs =aj|auu  
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 0e"KdsA:<U  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) U[;ECw@  
While Not objRs.Eof ;(,GS@
sP  
strA = objRs(uname) & . & objRs(tname) TuCHD~rb  
1c"s+k]9  
If str=strA then @Z$fEG)9  
strTmp = strTmp & & strA & 6flO;d/v  
Else BYB9M  
strTmp = strTmp & & strA & Ap\]v2G  
End if 3@eI?(N  
objRs.MoveNext Kg2@]J9m  
Wend Vt zSM%=  
Set objRs = Nothing %O%;\t  
getTableList = strTmp *]q`:~u2  
End Function oU3gy[wF;b  
% > n@@tO#!\  
tZ=|1lM  
/Tl ybSC1  
)N{PWSPs  
D.AiqO<z  
All Tables : wMF1HT<*  
2\$<&]q  
}1CO>a<  
hHw1<! M  
8_>:0(y  
() u(r T2  
"OUY^ cM  
X+emJ&Z$@  
'%Oo1:wJ  
$
?: -A  
RToX[R;1E  
  then 0=`aXb-  
strSql = Select * from & tblname z}5'TV=^  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 0_y&9Te  
Response.Write PK?}hz  
for i=0 to rs.Fields.count-1 D0f7I:i1  
  Response.Write & rs.fields(i).name & S#+ _HFUK{  
next .*EP$pc  
Response.Write (#je0ES  
While Not Rs.Eof .q]K:}9!\  
  Response.Write FGwgSrXL7  
  for i=0 to rs.fields.count -1 ,V4pFQzL  
        Response.Write & Rs.Fields(i).Value &   t?uw^nV3E  
  next &U.y):  
  Response.Write       H-5f!>)  
  Rs.MoveNext Rx%kAt2X  
Wend /$vX1T  
Set Rs = Nothing &@7|_60  
end if 5hCfi  
  % > < R@&<E6  
2(D&jL  
|@-y+vbA*  
Dh
g/>@tw  
Eh_[8:dK  
转自： ASP教程采集