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

0 then 0x4l5x$8  
Response.Write 错误 ： & err.description & R_9 o!sTZ  
response.end BJIFl!w  
End if 9F)W19i.  
End Sub H` Lu
"EK  
Sub EndDB() Cn/q=  
Set objOraDB = Nothing `OLB';D  
Set objOraSession = Nothing "MTq{f2?  
End Sub 85Dm8~  
Function getTableList(str) (ic@
3:xR  
Dim strSql,strTmp lR[z<2w\  
Dim objRs DZ%8 |PmB  
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 p`LL   
Set objRs = objOraDb.DbCreateDynaset(strSql,0) }Oh5Nm)  
While Not objRs.Eof d~,n_E$q;  
strA = objRs(uname) & . & objRs(tname) _UaPwJ  
LiF.w:
}  
If str=strA then ^Wk0*.wg  
strTmp = strTmp & & strA & TiTYs  
Else nT)~w s  
strTmp = strTmp & & strA & BHIM'24bp  
End if 8@Q"YA3d+  
objRs.MoveNext 7V |"~%  
Wend o`25  
Set objRs = Nothing r"6lLc  
getTableList = strTmp (s.o  
End Function br10ptEx  
% > pM,#wYL  
zcZ^s v>  
z{AM2Z  
"^!j5fZ  
% ghJ*iHR  
All Tables : td%Y4-+-  
A03I-^0g+  
PaA6Z":  
1ME|G"$;  
!(}OBZ[*  
() 9B& }7kk  
>&g2 IvDS  
0;'j!`l9  
))$ CEh"X  
*?s/Ho &'  
(1OW6xtfG  
  then ;k-g
_{M  
strSql = Select * from & tblname 5BZ+b_A>VV  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) EwC5[bRjUp  
Response.Write }`?7\\6  
for i=0 to rs.Fields.count-1 IwOfZuS
 
  Response.Write & rs.fields(i).name & tP -5  
next % 1OC#&  
Response.Write hwc:@'  
While Not Rs.Eof 1mAUEQ!  
  Response.Write Al)lWD}j2g  
  for i=0 to rs.fields.count -1 }7otuO(pRo  
        Response.Write & Rs.Fields(i).Value &   se}pdL}  
  next 0oXK&Z  
  Response.Write       Ug%
<
b  
  Rs.MoveNext x4/T?4k  
Wend Bi %Z2/  
Set Rs = Nothing ?]759,Q3L  
end if ;B,nzx(L  
  % > $gXkx D  
`4se7{'UK`  
8Ix-i  
$b&BH'*'~  
,M| QN*  
转自： ASP教程采集