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

0 then XQhBnam%  
Response.Write 错误 ： & err.description & ) =<,$|g  
response.end w<*tbq  
End if >_1*/o JO  
End Sub zxtx~XO  
Sub EndDB() cjU*  
Set objOraDB = Nothing c<j2wKz  
Set objOraSession = Nothing DKCPi0  
End Sub \FSkI0  
Function getTableList(str) 8?4j-  
Dim strSql,strTmp I)AV  
Dim objRs h5&l#>8&  
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 NamBJ\2E1[  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) &inu mc  
While Not objRs.Eof 8H3|i7.1h  
strA = objRs(uname) & . & objRs(tname) -DrR6kGjR  

x-k}RI  
If str=strA then 2l#Ogn`k  
strTmp = strTmp & & strA & MJJy mi'b  
Else SUXRWFl  
strTmp = strTmp & & strA & |A0LYKni  
End if udDh
J?  
objRs.MoveNext nsqs*$  
Wend NaSgK  
Set objRs = Nothing f0fN1
 
getTableList = strTmp Au$|@  
End Function Ql>DS~a  
% > bR@ e6.<i  
.Y!*6I  
^WP`;e  
FFl[[(`%D  
 4G&E?  
All Tables : kC"<4U  
zCT Wi  
imAsE;:  
]lzt"[  
bort2k  
() jQzq(oDQw  
rl9YB %P  
DPJ#Y -0  

M"2Tuwz  
~k?7XF I  
L,| 60*  
  then u-3A6Q  
strSql = Select * from & tblname }s=D,_}m  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Jz s.)  
Response.Write  Q0'xn  
for i=0 to rs.Fields.count-1 '<~l%q  
  Response.Write & rs.fields(i).name & j^T.7Zv  
next m UpLD+-j  
Response.Write kt.z,<w5O  
While Not Rs.Eof W~+ ] 7<  
  Response.Write XKB)++Q=  
  for i=0 to rs.fields.count -1 R+FBCVU&TJ  
        Response.Write & Rs.Fields(i).Value &   D(D:/L8T,  
  next ^$SI5WK&)  
  Response.Write       *VH!<k[n  
  Rs.MoveNext fn )m$\2  
Wend 4[|^78  
Set Rs = Nothing *SQ hXTn  
end if ~h6aw  
  % > kDS  
>S3iP?V7  
Zf}]sW$H  
6Yebc_, R  
C3Q[L}X\  
转自： ASP教程采集