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

0 then E#J+.&2  
Response.Write 错误 ： & err.description & XJ.vj+XXb  
response.end =^NR(:SaaU  
End if nT:ZSJWM  
End Sub O0e6I&u:  
Sub EndDB() SwLul4V  
Set objOraDB = Nothing KATt9ox@  
Set objOraSession = Nothing TwY]c<t  
End Sub 4~D?F
'o  
Function getTableList(str) d&F8nBIM5  
Dim strSql,strTmp ^[2A< g  
Dim objRs k5(@n>p  
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 Ig~lD>dnr'  
Set objRs = objOraDb.DbCreateDynaset(strSql,0)  t;{/Q&C  
While Not objRs.Eof 9|fg\C  
strA = objRs(uname) & . & objRs(tname) phd,Jg[  
5EM(3eY^q  
If str=strA then s~,Ypo?  
strTmp = strTmp & & strA & K%.\@l2Cp  
Else =j6f/8  
strTmp = strTmp & & strA & Dr&2qX!  
End if c5pF?kFaD  
objRs.MoveNext &0~E+ 9b  
Wend Pr9$(6MX  
Set objRs = Nothing Iell`;  
getTableList = strTmp K%O%#Kk  
End Function _uID3N%  
% > *zJ
}=%)f  
e+j7dmGa  
TN4gGky!  
W-2,QVp
%  
YhRES]^  
All Tables : YP/BX52v  
6Gwk*%sb  
h,45-#+  
5$/ED3mcK  
,,OO2EgZ`  
() pri=;I(2A  
b 'jZ4{+W  
/{6PwlP5  
|#>\GU=!  
u?i_N0H  
8i;EpAwB  
  then h${+{1](6  
strSql = Select * from & tblname f.4r'^  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 2Gd.B/L6  
Response.Write L TzD\C'  
for i=0 to rs.Fields.count-1 vWc=^tT  
  Response.Write & rs.fields(i).name & )l~:Puvh  
next sA[hG*#/S  
Response.Write N*y09?/h  
While Not Rs.Eof R5(<:]  
  Response.Write !`JaYUL[e  
  for i=0 to rs.fields.count -1 mr&nB  
        Response.Write & Rs.Fields(i).Value &   [> Q+=(l  
  next gs7h`5[es  
  Response.Write       cxn3e,d`  
  Rs.MoveNext Q/xT>cUd  
Wend {26/SY  
Set Rs = Nothing j#hFx+S  
end if E<y0;l?H<  
  % > u_shC"X:  
B&3oo  
Iy%
fg',%  

xEb+sE6Z  
MOi.bHCQJP  
转自： ASP教程采集