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

0 then C/Tk`C&  
Response.Write 错误 ： & err.description & m(U.BXo  
response.end A;Y~Hu4KPZ  
End if ~6n|GxR.[  
End Sub :38h)9>RK  
Sub EndDB() 5?SE?VC=t  
Set objOraDB = Nothing 2|lR@L sr  
Set objOraSession = Nothing 7>y]uT@ar  
End Sub v4s4D1}  
Function getTableList(str) v1~l=^4&  
Dim strSql,strTmp H`)eT6:|/  
Dim objRs ocWl]h].  
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 a<q9~QS  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ,--#3+]XU  
While Not objRs.Eof 7;q0'_G  
strA = objRs(uname) & . & objRs(tname) eLPtdP5k  
IC'+{3.m8  
If str=strA then p-{ 4 $W  
strTmp = strTmp & & strA & d9:I.SA)E  
Else dY&v(~&;]  
strTmp = strTmp & & strA & #~nXAs]Q  
End if jyW={%&  
objRs.MoveNext "$farDDoF  
Wend l+F29_o#  
Set objRs = Nothing yZ,pH1  
getTableList = strTmp _ikKOU^8  
End Function V'=;M[&  
% > x)dLY.'|  
J{dO0!7y  
Yc]k<tQ  
4)tY6ds)r|  
.:}<4;Qz94  
All Tables : Yq00<kIDJ  
S1^/W-yoc~  
_]o7iqtv  
iXo;e  
f|B\Y/*X  
() Xydx87L/-e  
{AD-p!6G  
i*N2@Z[  
]rj~3du\  
RNw#sR  
bT2c&VPCE  
  then |e@1@q(a[]  
strSql = Select * from & tblname Q2ne]MI  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) k{;
?>=FH!  
Response.Write mz.,j(Ks-  
for i=0 to rs.Fields.count-1 GBb8}lx  
  Response.Write & rs.fields(i).name & I\6C0x  
next %/w-.?bX  
Response.Write eR5q3E/;G  
While Not Rs.Eof eC"e v5v  
  Response.Write O713'i  
  for i=0 to rs.fields.count -1 /} PdO  
        Response.Write & Rs.Fields(i).Value &   m}?jU  
  next #Y7iJPO  
  Response.Write       L]z8'n,  
  Rs.MoveNext YT!iI  
Wend /]z#V'  
Set Rs = Nothing Fz(
;Eo3  
end if 153*b^iDBh  
  % > 1
8%$Z$K,  
A,EG0yb  
VdM Ksx`r  
@4*eH\3  
V=+|]`  
转自： ASP教程采集