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

0 then ;HqK^[1\  
Response.Write 错误 ： & err.description & V3@^bc!  
response.end y0(k7D|\  
End if d9Rj-e1x  
End Sub vNE91  
Sub EndDB() / d6mlQS  
Set objOraDB = Nothing i7 p#%2  
Set objOraSession = Nothing }b\d CGVr  
End Sub ;'gzRC  
Function getTableList(str) q%>L/KJ#  
Dim strSql,strTmp !7%L%~z^  
Dim objRs k(VA5upCs  
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 aN;L5;m#>{  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ZV;
#ZXch  
While Not objRs.Eof D"A`b{z  
strA = objRs(uname) & . & objRs(tname) #XJYkaL  
!xe<@$  
If str=strA then #exE~@fy-  
strTmp = strTmp & & strA & {_(;&\
5  
Else M
It\[EB  
strTmp = strTmp & & strA & HCHC~FNd  
End if 00b )Bg  
objRs.MoveNext :O//A6v  
Wend s/,St!A4!  
Set objRs = Nothing /}M@ @W  
getTableList = strTmp f0wQn09  
End Function v`Sllv5bV  
% > x]a>Q),  
_HGDqjL  
MHxv@1)K|Y  
I9>1WT<Yy  
5[/*UtB  
All Tables : Y=}b/[s6;  
ZB ~D_S  
<7TpC@"/g  
pOH_ CXw  
kk!}mbA_}  
() 2^qY,dL  
7~|o_T  
+8BH%f}X  
?'h@!F%R'  
=gfLl1wY[  
38Wv&
!  
  then 2]>s@?[  
strSql = Select * from & tblname ~"=nt@M]  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 5%4:)s{4|  
Response.Write =euoSH D
}  
for i=0 to rs.Fields.count-1 Sl 6}5  
  Response.Write & rs.fields(i).name & &+*jTE  
next '>`bp25>  
Response.Write 5jYRIvM[Q~  
While Not Rs.Eof ]Ff&zBJ  
  Response.Write ^'
FY!^dE  
  for i=0 to rs.fields.count -1 F*I{?NRN1  
        Response.Write & Rs.Fields(i).Value &   .`,YUr$.  
  next %?RX}37K  
  Response.Write       Q*KEODR8\  
  Rs.MoveNext VK?,8Y  
Wend Uyi_B.:`  
Set Rs = Nothing =cRJtn  
end if t
b@/E  
  % > \>I&UFfH)4  
)cOm\^,  
9B*SWWAj  
4H1s"mP<  
b(~NqV!i  
转自： ASP教程采集