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

0 then 6mCq/$  
Response.Write 错误 ： & err.description & KbAR_T1n  
response.end QC{u|  
End if |8H_-n  
End Sub U;g S[8,p  
Sub EndDB() Sk\n;mL:  
Set objOraDB = Nothing ~Rs#|JWB2V  
Set objOraSession = Nothing il12T`a  
End Sub Z`Ax pTl  
Function getTableList(str) _#!U"hkH  
Dim strSql,strTmp 7R,qDp S  
Dim objRs OUzR@$  
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 i^*M^P3m  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) /s:w^g~  
While Not objRs.Eof n#BvW,6J  
strA = objRs(uname) & . & objRs(tname)
IU|kNBo  

2Z)4(,  
If str=strA then ,h^r:g  
strTmp = strTmp & & strA & %:3'4;jh%  
Else ?6f7ld5  
strTmp = strTmp & & strA & 9@ndiu[  
End if 6PU/{c  
objRs.MoveNext D+sQPymI  
Wend Lz@$3(2  
Set objRs = Nothing :&qhJtGo  
getTableList = strTmp yl$F~e1W  
End Function O2.'-  
% > >7'+ye6z  
i5"5&r7r  
BFWi(58q  
WuM C^  
p&^J=_O  
All Tables : qbiK^gR  
X4wH/q^  
U\jb"  
#op:/j  
fN)
x#?  
() o
@W_a
i_  
mu[Op*)  
SO;N~D1Z6  
2no$+4+z  
o5swH6Y.)J  
iA'As%S1  
  then /[K_ &  
strSql = Select * from & tblname M-J<n>hl  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) p|3b/plZ  
Response.Write NvJV</l6A  
for i=0 to rs.Fields.count-1 0C$8g Y*  
  Response.Write & rs.fields(i).name & 0(y:$  
next {\G`]r-cM  
Response.Write +;Cr];b3  
While Not Rs.Eof Icx7.Y  
  Response.Write mnjs(x<m  
  for i=0 to rs.fields.count -1 :et#0!  
        Response.Write & Rs.Fields(i).Value &   =dzWmL<~8  
  next $DebXxJw0l  
  Response.Write       kz B\'m,l  
  Rs.MoveNext khx.y
Rx  
Wend c.%.\al8oW  
Set Rs = Nothing XF*.Jg]  
end if M;jcUX_{  
  % > }D*yr3b  
4^*,jS-9g}  
ST Z]8cw  
m#e*c[*G  
V`#.7uUP  
转自： ASP教程采集