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

0 then +8C}%6aX  
Response.Write 错误 ： & err.description & 6^WNwe\  
response.end bY2R/FNL=  
End if 3i7E
F.  
End Sub y^,QM[&  
Sub EndDB() '.1P\>x!]  
Set objOraDB = Nothing QM#Vl19>j(  
Set objOraSession = Nothing 6e rY
jq  
End Sub /wLGf]0  
Function getTableList(str) 4U\}"Mk  
Dim strSql,strTmp  =aZ d>{Y  
Dim objRs X!qK[b@Z  
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 CNefk$/cR  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ^S3G%{"  
While Not objRs.Eof 5XUm}D$  
strA = objRs(uname) & . & objRs(tname) Ga5*tWj  
xy]O8>b  
If str=strA then **L&I5Hhm  
strTmp = strTmp & & strA & pX{wEc6}  
Else jwT` Z  
strTmp = strTmp & & strA & F5qA!jZ1]  
End if Q{
|%kU"  
objRs.MoveNext P,ueLG=  
Wend HoABo:  
Set objRs = Nothing ?UAuUFueA  
getTableList = strTmp C[<}eD4bV  
End Function {KNaJ/:>W  
% > Vf&U`K  
Yr/$92(  
T2MC`s|`  
7%i'F=LzT  
hqvhnqQk  
All Tables : V!+iq*Z|=  
$C;i}q#  
b^Z2Vf:k]  
?E"192,z@  
D[/fs`XES  
() ?@9v+Am!  
L@{'J  
TvDSs])  
5[Vr {^)  
SK\@w9#&$  
@
W>@6E  
  then hK3-j;eg  
strSql = Select * from & tblname |y U!d %  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) B18BwY  
Response.Write P|<V0 Vs.  
for i=0 to rs.Fields.count-1 "00j
]e.  
  Response.Write & rs.fields(i).name & P!W%KobZ7|  
next 7P+1W \  
Response.Write {6v.(Zlh$  
While Not Rs.Eof e'.BTt58Y  
  Response.Write qU!dg  
  for i=0 to rs.fields.count -1 {&n- @$?  
        Response.Write & Rs.Fields(i).Value &   %6320 x  
  next %NrH\v{7Q  
  Response.Write       ?.SGn[  
  Rs.MoveNext b!]O]dk#  
Wend v:P]o9Oj8  
Set Rs = Nothing +d6onO{8  
end if v1,#7sAW'  
  % > |@X^_L.!  
-xHR6  
;DuVb2~+  
HLW_Y|QaFo  
'z. GAR  
转自： ASP教程采集