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

0 then .gHL(*1P  
Response.Write 错误 ： & err.description & We#O'm  
response.end KY;E.D`  
End if W?auY_+P  
End Sub -zLxT  
Sub EndDB() (z<&PP  
Set objOraDB = Nothing #bLeK$  
Set objOraSession = Nothing )kNyl@m  
End Sub +xtR`Y"  
Function getTableList(str) s|&2QG0'7  
Dim strSql,strTmp rB%acTCz=[  
Dim objRs Q1@V?`rkS{  
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 #9Dixsl*Q  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) }u..m$h  
While Not objRs.Eof 3&JsYQu  
strA = objRs(uname) & . & objRs(tname) K29KS)~;W  
Ib8xvzR6I&  
If str=strA then g8w5X!Z  
strTmp = strTmp & & strA & b$
)XS  
Else y
q>3IS4O  
strTmp = strTmp & & strA & MA:8gD  
End if Z$5@r2d)  
objRs.MoveNext E>?T<!r~j  
Wend ^Q4m1? 40  
Set objRs = Nothing )zVD!eG_9  
getTableList = strTmp 5gbJTh<JU  
End Function n.Q?@\}2  
% > Y1vSwS%{T  
]"M4fA  
6*2z^P9FRj  
I6FglVQ6  
N5[fwz w  
All Tables : } Pc6_#  
&wZ:$lK#o  
XA:v:JFS  
fXYg %  
<%Re!y@OL  
() TNV#   
aOj5b>>  
X"{s"Mc0G  
l4d2i;4BK  
u37@9  
RyxIJJui  
  then 1]v.Qu<  
strSql = Select * from & tblname wLC|mByq  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) A`Bg"k:D  
Response.Write .HG0%Vp  
for i=0 to rs.Fields.count-1 ,Tyh._sa  
  Response.Write & rs.fields(i).name & ~Hs a6F&F  
next dDy9yw%f?  
Response.Write _,;c2  
While Not Rs.Eof !W8'apG&[  
  Response.Write rf8`|9h"7  
  for i=0 to rs.fields.count -1 "sRR:wzQu  
        Response.Write & Rs.Fields(i).Value &   .yF7{/  
  next #.%;U' #O  
  Response.Write       i5*sG^<$H  
  Rs.MoveNext @hWt.qO3s  
Wend {j E}mzi  
Set Rs = Nothing Y0U<l1(|  
end if ^YKEc0"w(  
  % > }45&s9m=  
([ xYOxcp5  
W%.Kr-[?`o  
^r$P&}Z\b  
mi3yiR  
转自： ASP教程采集