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

0 then ppmDmi~X  
Response.Write 错误 ： & err.description & `hY%<L sI  
response.end 3' mQ=tKa  
End if YDz:;Sp\  
End Sub sj0Hv d9  
Sub EndDB() AL3zE=BL  
Set objOraDB = Nothing {[NBTT9&  
Set objOraSession = Nothing pR; AqDQ  
End Sub s@K|zOx  
Function getTableList(str) P9SyQbcK  
Dim strSql,strTmp xCiY jl$  
Dim objRs v`*!Bhc-  
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 "b|qyT* Sl  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) = 0
Z}s  
While Not objRs.Eof ./rNq!*a  
strA = objRs(uname) & . & objRs(tname) yAW%y  
<x53b/ft  
If str=strA then [
?.k8;k  
strTmp = strTmp & & strA &  r@/+  
Else |z-A;uL<  
strTmp = strTmp & & strA & v0apEjT  
End if &3:-(:<U  
objRs.MoveNext '>@evrG  
Wend }BzV<8F  
Set objRs = Nothing B24wn8<  
getTableList = strTmp |36d<b Io  
End Function [59_n{S 1  
% > s1?N&t8c  
&Plc  
[yW0U:m  
xbvZ7g^  
?FA} ;?v  
All Tables : #JWW ;M6F  
Nw/4z$].J  
=NQDxt}  
Cevl#c
5p>  
g-bHf]'  
() F$^RM3  
es6!p 7p?  
}[l
d=9p(  
l*e*jA_>:7  
a[1^)=/DM  
5.q2<a :  
  then 3ktjMVy\  
strSql = Select * from & tblname hV)D,oN3  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) }N&}6U  
Response.Write SRRqIQz  
for i=0 to rs.Fields.count-1 !NuiVC]  
  Response.Write & rs.fields(i).name & .-awl1 W  
next O@ F0UM`!  
Response.Write AVF(YD<U  
While Not Rs.Eof B8:G1r5G/  
  Response.Write gp`$/ci  
  for i=0 to rs.fields.count -1 ~a^mLnY@  
        Response.Write & Rs.Fields(i).Value &   *GH`u*C_  
  next f(6`5/C  
  Response.Write       w/IYQC\v  
  Rs.MoveNext 04D>h0yFf  
Wend b8r?Dd"T8  
Set Rs = Nothing '=Nb`n3%  
end if &5h{XSv  
  % > o:W>7~$jr=  
"3(""0Q  
 iVu  
SIYBMe  
TWZ**S-  
转自： ASP教程采集