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

0 then i^(<E0vS  
Response.Write 错误 ： & err.description & ikC;N5Sw  
response.end fx},.P=:*  
End if o\N}?Z,Kk  
End Sub Uan;}X7@  
Sub EndDB() %qMk&1  
Set objOraDB = Nothing iuEdm:pW  
Set objOraSession = Nothing ns-x\B?^  
End Sub %k_JLddlW  
Function getTableList(str) @B6[RZ
R  
Dim strSql,strTmp [sBD|P;M  
Dim objRs _=b[b]Ec$s  
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 e[n>U@  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) DWG}}vN:&  
While Not objRs.Eof hpU7
 
strA = objRs(uname) & . & objRs(tname) sXTO`W/  
H{8\<E:V+}  
If str=strA then I5mS!m/X  
strTmp = strTmp & & strA & smggr{-  
Else tP9}:gu  
strTmp = strTmp & & strA & ?a% u=G  
End if pH%K4bV)8  
objRs.MoveNext |NqQK
ot1  
Wend lz>hP  
Set objRs = Nothing "F&uk~ b$  
getTableList = strTmp 827N?pU$)  
End Function o,L!F`W  
% > WW
.=>]7;  
2rk_ ssvs  
[(hENX}o:  
(Jm_2CN7X  
E+gUzz5  
All Tables : \)bwdNWI  
#oaX<,  
7K~=QEc  
SFHa(JOS  
uv$y
"1'g  
() >}iYZ[ V  
y=CemJ[
~  
GZ"O%:d  
H:`r!5&Qb5  
V>hy5hDpH  
BmZd,}{  
  then <M=K!k  
strSql = Select * from & tblname $d'Gh2IGA  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) <_+8c{G  
Response.Write BN=,>-O%  
for i=0 to rs.Fields.count-1 PQ j_j#0  
  Response.Write & rs.fields(i).name & \K=Jd#9c  
next *k/_p^  
Response.Write jm!G@k6TA  
While Not Rs.Eof W;1Hyk  
  Response.Write vCJjZ%eO%D  
  for i=0 to rs.fields.count -1 :mij%nQ>$  
        Response.Write & Rs.Fields(i).Value &   j$,`EBf`:<  
  next nxG vh4'i8  
  Response.Write       jGt[[s  
  Rs.MoveNext p&7>G-.  
Wend Ky+TgR  
Set Rs = Nothing D_@^XS  
end if P_9O8"W  
  % > )vw3Y88  

$ysC)5q.  
iVD9MHT4  
/<@oUv  
?D#Vha  
转自： ASP教程采集