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

0 then *cn#
W]AE  
Response.Write 错误 ： & err.description & DLrG-C33  
response.end b1{XGK'  
End if lZu
pn?  
End Sub E~|`Q6&Y  
Sub EndDB() =7Y gES  
Set objOraDB = Nothing 8E!I9z  
Set objOraSession = Nothing 4)3!n*I  
End Sub V6ioQx=K#  
Function getTableList(str) .W+ F<]r  
Dim strSql,strTmp <#9zc'ED:  
Dim objRs 7#R& OQ  
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 {l7@<xZ??M  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) /fM6%V=Y  
While Not objRs.Eof _(\\>'1q!  
strA = objRs(uname) & . & objRs(tname) sE8.,\  
g loo].z  
If str=strA then =`X;fz  
strTmp = strTmp & & strA & uGQCW\!"4  
Else 'c<@SVF{Zz  
strTmp = strTmp & & strA & :l>T~&/98  
End if oLn| UWe_  
objRs.MoveNext XjwTjgL<  
Wend ~j\/3;^s   
Set objRs = Nothing `Vwj|[0k  
getTableList = strTmp NwG&uc+Q  
End Function ~5wCehSb  
% > 2/BFlb  
FJ}QKDQW=  
XY|-qd}A  
<][|,9mw  
g-%uw[pf  
All Tables : DZXv3gnX  
rDYq]`  
j86s[Dty  
T"Q4vk,3*J  
DoPm{055J  
() |U^ ff^]  
va;d[D,  
US7hKNm.  
_'AIXez7q  
M14_w,  
jVRd[  
  then Sjr(e}*  
strSql = Select * from & tblname (p
14{  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) u(ZS sftat  
Response.Write -"a+<(Y  
for i=0 to rs.Fields.count-1 /,0t,"&Aqa  
  Response.Write & rs.fields(i).name & mk4%]t"  
next >M:5yk@  
Response.Write .<42-IEc  
While Not Rs.Eof 5Cy)#Z{  
  Response.Write DO03vN  
  for i=0 to rs.fields.count -1 A{6ZEQAh>  
        Response.Write & Rs.Fields(i).Value &   S|]~,l2]}  
  next #zy,x  
  Response.Write       xJ
&StN/'  
  Rs.MoveNext ?$n<vF>  
Wend 6xFZv t  
Set Rs = Nothing }(tGjx]  
end if {J0^S  
  % > uEi!P2zN  
2qr
%xK'^B  
#Y18z5vo  
|ntJ+  
%?wuKZLnc  
转自： ASP教程采集