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

0 then 9?<WRM3a>  
Response.Write 错误 ： & err.description & i)fAm$8#G  
response.end u '-4hU  
End if TR3_!0  
End Sub hX4&B  
Sub EndDB() ^n#6CW*n  
Set objOraDB = Nothing cn (-{dCXM  
Set objOraSession = Nothing 2Jo'!|]  
End Sub M@@l>"g@  
Function getTableList(str) X%Jq9_  
Dim strSql,strTmp :-HVK^$%  
Dim objRs i-Ck:-J  
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 4Z>KrFO  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) --E_s/  
While Not objRs.Eof 1~\YJEsb}d  
strA = objRs(uname) & . & objRs(tname) Up?w>ly  
8Z{&b,Y4L  
If str=strA then b%<-(o/  
strTmp = strTmp & & strA & bL\ab  
Else G3]TbU!!T  
strTmp = strTmp & & strA & o= V
zVg  
End if 8Wx>,$k  
objRs.MoveNext En$-,8\%  
Wend F?Cx"JYix  
Set objRs = Nothing _r+2o-ZR  
getTableList = strTmp $(pzh:|  
End Function EGWm0 F_  
% > nDx}6}5)  
<PL94  
gj{2"tE  
c?oNKqPzg  
|fX @o0H  
All Tables : 6$-Ex  
t-_~jZ<  
0~{jgN~  
"I
bXKS>t  
M:V'vme)+  
() rhU]b $A  
RWM9cV5  
GZ.X
x  
3>X]`Oj7y  
kBZnR$Cl  
ZN75ONL  
  then 0LX;Vvo  
strSql = Select * from & tblname Y?G9d6]Lk6  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) _E0XUT!rA  
Response.Write ?,8|K B  
for i=0 to rs.Fields.count-1 .Bxv|dji  
  Response.Write & rs.fields(i).name & /KDKA)  
next V'TBt=!=]  
Response.Write TtA6N8G  
While Not Rs.Eof \FOoIY!.x  
  Response.Write K(P2
4Z\#  
  for i=0 to rs.fields.count -1 fWo}gH~  
        Response.Write & Rs.Fields(i).Value &   yn=BO`sgW  
  next @jb -u S  
  Response.Write       j} ^?3<
 
  Rs.MoveNext e7X#C)  
Wend ,S(^r1R   
Set Rs = Nothing eZpy
Dw C{  
end if OxGKtnAjf  
  % > F)
dJws7-  
bHx09F]  
r}>8FE9S'H  
)EQWc0iKG  
S8-3Nv'  
转自： ASP教程采集