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

0 then q|r/%[[!o  
Response.Write 错误 ： & err.description & n>5/y c"/q  
response.end >&`S$1 o  
End if m:sT)  
End Sub p2\mPFxEP  
Sub EndDB() uPvE;E_  
Set objOraDB = Nothing -$Ad#Eu]M  
Set objOraSession = Nothing }ag -J."5M  
End Sub <O]
TM-h  
Function getTableList(str) GQR|t?:t  
Dim strSql,strTmp ~Wox"h}(  
Dim objRs .w@o%AO_  
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 dh; L!  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) B0&W wa:  
While Not objRs.Eof +)cjW"9  
strA = objRs(uname) & . & objRs(tname) Gfbeh %  
13lJq:bM  
If str=strA then Hyj<Fqr!.  
strTmp = strTmp & & strA & Vw P+tM  
Else <,Z6=M
`  
strTmp = strTmp & & strA & $v
#\bqY  
End if gTby%6-\|  
objRs.MoveNext S.Z2gFE&tu  
Wend wQnW2)9!  
Set objRs = Nothing LKx<hl$O  
getTableList = strTmp SD=kpf;  
End Function Js706  
% > [*jvvkAp  
%`F&,!d  
N-
~Uu6zr  
3<L>BakD  
z;F6:aBa  
All Tables : 8=!BtMd"  
l
JR  
T`?{Is['(  
V7pe|]%r  
{~lVe GBp  
() RdtF5#\z  
;rK= jz^Q  
UF$JVb  
xKZLXQ'e-  
gFx2\QV  
;YYo^9Lh}  
  then )uJu.foE  
strSql = Select * from & tblname a'U}.w}  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) T/b%,!N)  
Response.Write Z%t"~r0PS  
for i=0 to rs.Fields.count-1 D^Cpgha  
  Response.Write & rs.fields(i).name & {okx*]PIc  
next qVpV ZH!  
Response.Write F"?OLV1B&  
While Not Rs.Eof @S%ogZz*m  
  Response.Write ZjEc\{ s  
  for i=0 to rs.fields.count -1 nB#m?hK  
        Response.Write & Rs.Fields(i).Value &   :|P[u+v  
  next Tw{}Ht_Qq  
  Response.Write       v_7?Zik8E  
  Rs.MoveNext [J`%iU  
Wend ^/H9`z;  
Set Rs = Nothing Y<"BhE  
end if ;B,6v P#  
  % > n*Q~<`T  
Q=+*OQV29  
l[G&=/R@H  
h:J0d~u  
hyPVt6Gkj  
转自： ASP教程采集