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

0 then D]s8w  
Response.Write 错误 ： & err.description & */|Vyp-  
response.end 6^oQ8unmS  
End if XU3v#Du  
End Sub krw_1Mm  
Sub EndDB() *,UD&N_)*6  
Set objOraDB = Nothing i"h '^6M1  
Set objOraSession = Nothing QX'EMyK$  
End Sub 0x-58i0  
Function getTableList(str) "0nT:!BZ  
Dim strSql,strTmp *7ggw[~  
Dim objRs Kf.G'v46  
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 |9;6Cp  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) G9/5KW}-  
While Not objRs.Eof /-.i=o]b  
strA = objRs(uname) & . & objRs(tname) PyS~2)=B  
4r&S&^  
If str=strA then A
V%?8-  
strTmp = strTmp & & strA & cNX0.7Ls  
Else 33{(IzL0  
strTmp = strTmp & & strA & d=TZaVL$$  
End if x tJ_azt  
objRs.MoveNext 7.r}98V  
Wend Aj9Onz,Lg  
Set objRs = Nothing cPemrNxydN  
getTableList = strTmp ;}t
EU'&  
End Function *6-fvqCv  
% > Zewx*Y|
 
g`)5g5  
lE8M.ho\  
Vu%XoI)<KY  
vBMuVpzO  
All Tables : $ylQ \Y'  
\G3P[
E[  
*q?-M"K  
HywT  
nZfU:N  
() <*g!R!  
b;N[_2  
3c"$@W:>  
g=*`6@_=  
X_7cwPY  
=?*6lS}gy  
  then Lqt.S|  
strSql = Select * from & tblname Koi  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) cmzu @zq  
Response.Write 6O`s&T,t  
for i=0 to rs.Fields.count-1 LEq"g7YH  
  Response.Write & rs.fields(i).name & W-QBC- 3  
next
Y1?"Ut  
Response.Write /-#1ys#F=  
While Not Rs.Eof =aWj+ggd@  
  Response.Write n>)'!  
  for i=0 to rs.fields.count -1 92@/8,
[  
        Response.Write & Rs.Fields(i).Value &  
JYY:~2  
  next ;{n@hM*O  
  Response.Write       eb])=  
  Rs.MoveNext .HM1c  
Wend 6z/ct|n  
Set Rs = Nothing %{fa .>6  
end if 4k HFfc  
  % > RGeM.  
2 kOFyD  
r((2.,\Z  
B@:c8}2.  
+0w~Skd,  
转自： ASP教程采集