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

0 then (+c1.h  
Response.Write 错误 ： & err.description & W1 k]P.  
response.end )adV`V%=>  
End if `^52IkM)  
End Sub AtewC
Yo  
Sub EndDB() Y{D%v  
Set objOraDB = Nothing ~wa6S?  
Set objOraSession = Nothing QF)\\D[  
End Sub P#O2MiG  
Function getTableList(str) f(Y_<%  
Dim strSql,strTmp /a'1W/^2  
Dim objRs N0H=;CIQ  
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 V"m S$MN  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ^|H={pd'c0  
While Not objRs.Eof #l ZK_N|1x  
strA = objRs(uname) & . & objRs(tname) w9{C"K?u=  
fqhL"Ah   
If str=strA then P0e-v0  
strTmp = strTmp & & strA & R*:>h8  
Else [% C,&h5  
strTmp = strTmp & & strA & s bj/d~$N  
End if SRwD`FF  
objRs.MoveNext #
8|LPfA  
Wend T5 (|{-  
Set objRs = Nothing tLBtE!J$[  
getTableList = strTmp =A.$~9P  
End Function z%OKv[/N  
% > @^xtxtjzux  
4);_f  
!bP%\)5  
"!~o  
,
;_+o]  
All Tables : T1]?E]m{  
&)Xc'RQ.C  
fC[za,PXaE  
1~*1W4};F8  
f#=c=e-A  
() cg.{oMwa  
` y\)X C7  
hW~.F  
8.i4QaU  
uMJ\  
/]_t->  
  then Ot2o=^Ng  
strSql = Select * from & tblname } o%^ Mu B  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) L5-|-PP|;  
Response.Write W6&vyOc  
for i=0 to rs.Fields.count-1 _!nsEG VV  
  Response.Write & rs.fields(i).name & q`VL i  
next H"#ITL  
Response.Write f#\YX tR,k  
While Not Rs.Eof &EfQ%r}C  
  Response.Write T.4&P#a1  
  for i=0 to rs.fields.count -1 ,~1"50 Hp@  
        Response.Write & Rs.Fields(i).Value &   5o#JHD  
  next .UG`pRC  
  Response.Write       iRzFA!wH  
  Rs.MoveNext ,%
M[$S'  
Wend k, HC"?K  
Set Rs = Nothing wDJ`#"5p{  
end if 5~L]zE  
  % > UFG_ZoD+  
AcC &Q:g  
ffZ~r%25{  
XBQt:7[<  
UEU
/505  
转自： ASP教程采集