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

0 then 59X'-fg,  
Response.Write 错误 ： & err.description & dZIruZ)x
 
response.end 2[QyH'"^E  
End if ul!e!^qwx  
End Sub (\o &Gl  
Sub EndDB() (D~NW*,9  
Set objOraDB = Nothing U0fr\kM  
Set objOraSession = Nothing /)/>/4O  
End Sub 9JBVG~m+  
Function getTableList(str) ';iLk[  
Dim strSql,strTmp o)r%4YOL  
Dim objRs >V|KS(}s  
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 Wa!}$q+  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) [Zj6v a  
While Not objRs.Eof <F
6LC_  
strA = objRs(uname) & . & objRs(tname) v~`'!N8  
W>cH
Z. _  
If str=strA then -(1GmU5v(  
strTmp = strTmp & & strA & g7@.Fa.u'!  
Else sRaTRL2  
strTmp = strTmp & & strA & 7rSads  
End if U{?#W  
objRs.MoveNext cj@ar^=`K  
Wend gv}J"anD  
Set objRs = Nothing .z}*!   
getTableList = strTmp K!jMW  
End Function S<O
d`I  
% > HBiUp$(mB  
I|/\L|vo  
2Mw^EjR  
"*JyNwf  
.F^372hH3  
All Tables : =QJI_veUG`  
6u[ B}%l  
JSu+/rI1  
kS1?%E,)q  
bW?cb5C  
() r"bV{v  
-4LckY=]1  
>})W5Y+  
>&D}^TMYY  
@D+2dT0[M  
}zyh!  
  then kmur={IR  
strSql = Select * from & tblname eYD-8*  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) =)IV^6~b  
Response.Write 0.z\YTZ9  
for i=0 to rs.Fields.count-1 n?}7vz;  
  Response.Write & rs.fields(i).name & }[b3$WZ  
next !.@F,wZvY  
Response.Write i(an]%'v  
While Not Rs.Eof (Q[(]dfc  
  Response.Write $9rQ w1#e  
  for i=0 to rs.fields.count -1 ),5|Ves;t[  
        Response.Write & Rs.Fields(i).Value &    kAnK1W>  
  next c$b~?Mx  
  Response.Write       |}D5q| d@n  
  Rs.MoveNext TrYt(F{t  
Wend pie,^-_.g  
Set Rs = Nothing wWI1%#__|o  
end if fEWXC|"  
  % > 8wi2&j_  
^$!H|  
;kX:k~,]}>  
W$>AK_Y}  
QY^v*+lr\  
转自： ASP教程采集