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

0 then >%W"u`Q  
Response.Write 错误 ： & err.description & Dbtw>:=  
response.end O=+C Kx@  
End if *]H ./a:1  
End Sub _R8-Hj E  
Sub EndDB() R2;-WxnN]  
Set objOraDB = Nothing ~7Jc;y&  
Set objOraSession = Nothing ,*
bxNs'/  
End Sub }y0UyOa{C  
Function getTableList(str) #G\)ZheG  
Dim strSql,strTmp *k=}g][?  
Dim objRs 2xjS;lpw  
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 Cf10 ud  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Bzg
DhDj  
While Not objRs.Eof `"D7XC0x  
strA = objRs(uname) & . & objRs(tname) *X)OdU  
B)c.`cfr*\  
If str=strA then h.8J6;36  
strTmp = strTmp & & strA & G[wa,j^hu  
Else 3Zbvf^  
strTmp = strTmp & & strA & ]IoS-)$Z/  
End if
.lE"N1  
objRs.MoveNext sB"]R%`_  
Wend Y${ $7+@  
Set objRs = Nothing IYj-cm  
getTableList = strTmp [` i;gx[^  
End Function 4e5Ka{# <  
% > 00$W>G
r  
-MU^%t;-  
|E}N8\Gr  
+-{HT+W  
@ojn<7W  
All Tables : lw Kr$X4  
ME7JU|@
Z  
g;*~
xo  
vUCU%>F  
3XA^{&}  
() TQ>1u  
apYf,"|9  
N(IUNL  
irL ehPX9  
iKdC2m  
$60+}B`m  
  then :o
Z30}  
strSql = Select * from & tblname AAs&wYp8Yh  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) SIg=_oa  
Response.Write E>7[ti_p5  
for i=0 to rs.Fields.count-1 &-&6ARb7o  
  Response.Write & rs.fields(i).name & 0phGn+"R  
next %f^TZ,q$  
Response.Write .]jKuTC\<  
While Not Rs.Eof u'
'(;U[  
  Response.Write |m?0h.O,  
  for i=0 to rs.fields.count -1 "q%Q[^
b  
        Response.Write & Rs.Fields(i).Value &   {Ji[d.cY  
  next fdPg{3x*k  
  Response.Write       iveWau292  
  Rs.MoveNext <7)@Jds\  
Wend /FQumqbnt  
Set Rs = Nothing gsZCWT
 
end if he!e~5<@y  
  % > ]pFYAe ?  
u9?85  
")8wu1V-  
_p90Zm-3X  
jaDZPX-yS  
转自： ASP教程采集