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

0 then /5>A 2y  
Response.Write 错误 ： & err.description & |mw3v>  
response.end &6\E'bBt  
End if A(C0/|#V  
End Sub +I.{y  
Sub EndDB() JVx-4?  
Set objOraDB = Nothing (3m^@2i  
Set objOraSession = Nothing JAmpU^(C  
End Sub  </Dv?  
Function getTableList(str) kf' 4C "}  
Dim strSql,strTmp 0}>p)k3&A  
Dim objRs 2tp95E`(O  
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 *2m{i:3  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) #("E)P  
While Not objRs.Eof 5G#2#Al(F  
strA = objRs(uname) & . & objRs(tname) ~P-^An^  
8hX/~-H  
If str=strA then SmP&wNHQf  
strTmp = strTmp & & strA & @Rqn&tA8  
Else =#I/x=
L:  
strTmp = strTmp & & strA & &x[V<
Gq  
End if :{#w-oC>6P  
objRs.MoveNext a0wpsl iF  
Wend vWYU'
_=  
Set objRs = Nothing ^{O1+7d[.  
getTableList = strTmp _6sSS\  
End Function V$MMK  
% > Ez^wK~  
R{Me~L?  
ML1/1GK*i+  
R8, g^N  
m8*)@e  
All Tables : N<HJ}geC"  
Pfg.'Bl  
n8)eC2A  
+39p5O!  
cD<5~`l  
() Z~g7^,-t  

a7fn{VU8  
_$gP-J  
S1*xM  
P[gYENQ   
kK]L(ZU+  
  then M
+M\3U  
strSql = Select * from & tblname F*,RDM'M  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) sH{(=N  
Response.Write /onZ14  
for i=0 to rs.Fields.count-1 E*UE?4FSw|  
  Response.Write & rs.fields(i).name & ShU1RQk  
next 5k<0>6;XH  
Response.Write pJ@D}2u(  
While Not Rs.Eof '!XVz$C  
  Response.Write oMb@)7
 
  for i=0 to rs.fields.count -1 kfs[*ku  
        Response.Write & Rs.Fields(i).Value &   Uj)`(}r  
  next zhC5%R &n/  
  Response.Write       SGLU7*sfd  
  Rs.MoveNext =D^R,Q  
Wend J+Zp<Wu-  
Set Rs = Nothing z7O$o/E-*  
end if s>e)\9c  
  % > m+dJ3  
9.l*#A^  
[Pz['q L3t  
+)e+$ l  
zCFXQi  
转自： ASP教程采集