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

0 then w?Cqe N  
Response.Write 错误 ： & err.description & D:/^T
Eib  
response.end :B6hYx  
End if a2SMNC]  
End Sub }v"X.fa^  
Sub EndDB() CMI%jyiX
 
Set objOraDB = Nothing `rN,*kcP  
Set objOraSession = Nothing c-(,%0G0  
End Sub 2I* 7?`  
Function getTableList(str) odD^xg"L  
Dim strSql,strTmp J 6D?$  
Dim objRs x$tx!%,)/S  
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 4#1[i|:M  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ba^B$$?Bo  
While Not objRs.Eof yF8 av=<{  
strA = objRs(uname) & . & objRs(tname) ?suNA  
hOx'uO`x(  
If str=strA then %O#)=M~  
strTmp = strTmp & & strA & *BF5B\[r?  
Else PbvRh~n  
strTmp = strTmp & & strA & Y!N*J  
End if FctqE/>}I  
objRs.MoveNext S!j=hj@qW  
Wend CkKr@.dV  
Set objRs = Nothing nlOM4fJ(  
getTableList = strTmp ]h3<r8D_#  
End Function 8D@H4O.  
% > /g BB  
}OZp[V  
^V#9{)B  
DK;p6_tT  
RB`Emp&T  
All Tables : tpOMKh.`  
XkLl(uyh  
e[.c^Hw  
aw&:$twbM  
QV,X> !Nz  
() VJmX@zX9  
bw\fKZ  
|WqEJ*$,  
5 0uYU[W  
pLjet~2}iJ  
^m8T$^z>  
  then _H@Y%"ZHJ6  
strSql = Select * from & tblname g`I`q3EF)  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) (hWr!(>C4]  
Response.Write J/X{ Y2f  
for i=0 to rs.Fields.count-1 +aR.t@D+"Y  
  Response.Write & rs.fields(i).name & AlT41v~6
 
next -e0C Bp  
Response.Write u>SGa @R)  
While Not Rs.Eof c@;$6WSG^  
  Response.Write XJ,P8nx  
  for i=0 to rs.fields.count -1 Z^5j.d{e$  
        Response.Write & Rs.Fields(i).Value &   q_S`@2Dzz,  
  next A[)od  
  Response.Write       b~dm+5W7  
  Rs.MoveNext 6$c,#%Jt*  
Wend f'P}]_3(  
Set Rs = Nothing |TM&:4D]^  
end if hp=TWt~  
  % > FYq]-k{\  
x}o]R  
tgoOzk^  
<{!^  
yZkHBG4  
转自： ASP教程采集