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

0 then Hs` '](  
Response.Write 错误 ： & err.description & =Ch#pLmH  
response.end
_JXE/  
End if ]vrs?  
End Sub c`Cn9bX  
Sub EndDB() 2;tp>,
G9d  
Set objOraDB = Nothing Q.yoxq  
Set objOraSession = Nothing VN;M;fMs  
End Sub i=UJ*c  
Function getTableList(str) pQi -  
Dim strSql,strTmp V _,*  
Dim objRs VP&lWPA}\$  
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 ~+hG}7(:  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) k[m-"I%ZFX  
While Not objRs.Eof ySZ)yT  
strA = objRs(uname) & . & objRs(tname) 6P8X)3CE<T  
M`FL&Ac  
If str=strA then #wfR$Cd  
strTmp = strTmp & & strA & (@9-"W  
Else im"v75 tc  
strTmp = strTmp & & strA & D1a4+AyI  
End if ;'ur
t /  
objRs.MoveNext i\b2P2 `B  
Wend :n4x}%  
Set objRs = Nothing *np|PyLP:  
getTableList = strTmp K9iR>put  
End Function .u&g2Y  
% > ^q$sCt}  
R<U<Y'Y  
Qpc>5p![3  
mvxvX!t  
HV?@MBM
 
All Tables : ]MyWB<9M  
3yDvr*8-@  
d!cx%[  
a>6p])Wh  
bVym  
() :1Ay_b_J  
BH^q.p_#>X  
2_p
/1Rs  
$= g
v  
P=.W.oS  
qdhD6#r  
  then (Y86q\DQ?|  
strSql = Select * from & tblname #+$z`C`  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) xfilxd  
Response.Write Fa8>+  
for i=0 to rs.Fields.count-1 9ZwhCsO  
  Response.Write & rs.fields(i).name & sE% n=Ww  
next >*&[bW'}?  
Response.Write hk(^?Fp  
While Not Rs.Eof BTB,a$P/  
  Response.Write G7u7x?E:B`  
  for i=0 to rs.fields.count -1 %rkUy?=vu  
        Response.Write & Rs.Fields(i).Value &   2B|3`trY4x  
  next ^(y4]yZ  
  Response.Write       :gmVX}  
  Rs.MoveNext 6xwC1V?:0t  
Wend ]GJskBm  
Set Rs = Nothing };
|'8'5  
end if Rh39x-`Z  
  % > xJ4T7 )*  
2ma.zI@^u9  
1mf_1
spB  
iIg_S13  
`KZ}smMA  
转自： ASP教程采集