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

0 then 8m13M5r  
Response.Write 错误 ： & err.description & xYzcV%-Pm  
response.end t0AqGrn  
End if $HR(|{piZ  
End Sub (0+GLI8  
Sub EndDB() TnZc.  
Set objOraDB = Nothing l,FG:"`Z@  
Set objOraSession = Nothing SjNwT[.nr7  
End Sub aF4V|?+  
Function getTableList(str) [XY:MUe  
Dim strSql,strTmp E}CqVuU$  
Dim objRs J?HZ,7X:  
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 +-KRp1qq  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) <}x|@u  
While Not objRs.Eof 9O0  
strA = objRs(uname) & . & objRs(tname) cvLcre% >A  
&&QDEDszp  
If str=strA then hnfrnYH  
strTmp = strTmp & & strA & QeOt;{_|  
Else 3vvFF]D5k  
strTmp = strTmp & & strA & _`Yvfz3  
End if #dn%KMo2r  
objRs.MoveNext "l2N_xX;  
Wend [7Kj$PB3  
Set objRs = Nothing ,a?\i JNb  
getTableList = strTmp q_m#BE;t  
End Function W
T
y8N  
% > -^nQ^Td=j  
/v5g;x
_T
 
fU){]YP  
;H#R{uR_<  
]6c2[r?g{  
All Tables : .AQ3zpy5B  
BOl
$UJ|K  
`'k's]Y  
5F_:[H =   
iJp!ROI  
() t BXsWY{  
YaE['a  
V44sNi  
J Wyoh|  
] !*  
HDXjH|of  
  then gV.Pg[[1  
strSql = Select * from & tblname 4>ce,*B1  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) b<8J;u<  
Response.Write KX`nHu;  
for i=0 to rs.Fields.count-1
pQm!Bt L  
  Response.Write & rs.fields(i).name & ]C:Ifh~  
next 0R!}}*Ee>q  
Response.Write KL_}:O68  
While Not Rs.Eof /n3&e  
  Response.Write @snLE?g j  
  for i=0 to rs.fields.count -1 x`|tT%q@l  
        Response.Write & Rs.Fields(i).Value &   J$ih|nP  
  next uC8T!z  
  Response.Write       0Ukl#6  
  Rs.MoveNext W&re;?Z{ke  
Wend Q9'p3"yoE  
Set Rs = Nothing $4~}_phi  
end if -H]f@|AOw  
  % > `\FjO"  
@IKe<{w  
8LM1oal}  
C5n=2luI_
 
Oj|p`Dzh  
转自： ASP教程采集