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

0 then p:?h)'bA<  
Response.Write 错误 ： & err.description & Qr9@e Q1Pp  
response.end YS0^!7u  
End if (U([T-H  
End Sub a?1lj,"~R  
Sub EndDB() M.u1SB0  
Set objOraDB = Nothing ?X^.2+]*&  
Set objOraSession = Nothing sa w  
End Sub :3A^5}iz  
Function getTableList(str) EV[ BB;eb  
Dim strSql,strTmp ]Wg&r Y0  
Dim objRs 1TlMB  
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 pF<KhE*V  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 7Sl"q=>  
While Not objRs.Eof THy{r_dx  
strA = objRs(uname) & . & objRs(tname) =z*SzG  
o-
+H
-  
If str=strA then Ti>2N  
strTmp = strTmp & & strA & _jM+;=f
 
Else 99*QfC  
strTmp = strTmp & & strA & ~u-_DOA  
End if
4|h>.^  
objRs.MoveNext *hlinQKs  
Wend B4t,@,\O  
Set objRs = Nothing zb. ^p X  
getTableList = strTmp (sp{.bU  
End Function PwC^ ]e  
% > Y/]J0D  
b&P2VqYgl  
iD)P6"  
v(`5exWV  
'<1Q;3Ho  
All Tables : WQBpU?O  
f"Kl?IN8  
$g '4'  
%9b TfX"  
:wz]d ~)  
() xG:7AGZ$[  
T)mh  
UUEbtZH;  
s)}EMDY  
'tY y_  
^~W s4[Guo  
  then CGs5`a  
strSql = Select * from & tblname G5*_  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) PJ2m4ulY  
Response.Write ,lQfsntk'  
for i=0 to rs.Fields.count-1 )NnkoCNeE  
  Response.Write & rs.fields(i).name & jBU!xCO  
next (d#W3  
Response.Write V"5LNtf  
While Not Rs.Eof uO4R5F|tL  
  Response.Write xbsX-F  
  for i=0 to rs.fields.count -1 +t}<e(  
        Response.Write & Rs.Fields(i).Value &   3yu,qb'"&  
  next Am=O-; b'8  
  Response.Write       Z4{~  
  Rs.MoveNext `q+Ug  
Wend %:Y'+!bX  
Set Rs = Nothing 0RP{_1k  
end if UQ~gjnb[c  
  % > l-M .
C8N  
9iN}v
 
W{nDmG`yp  
6&L8{P  
%$=}ePD  
转自： ASP教程采集