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

0 then C-7.Sa  
Response.Write 错误 ： & err.description & 8b/yT4f  
response.end (|-/S0
AV  
End if q$K~BgFzpZ  
End Sub |v+b?@  
Sub EndDB() $f%_ 4 =  
Set objOraDB = Nothing =uH`EkY:  
Set objOraSession = Nothing bCsQWsj^NW  
End Sub dNR4h  
Function getTableList(str) |@+ x9|'W  
Dim strSql,strTmp :;EzvRy  
Dim objRs Nuj%8om6  
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 J_,y?}.e3  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) l"Css~^  
While Not objRs.Eof VybiuP  
strA = objRs(uname) & . & objRs(tname) @ 9uwcM1F  
0|cQx VJb  
If str=strA then 83h6>D b  
strTmp = strTmp & & strA & X qh+  
Else I'!KWpYJT  
strTmp = strTmp & & strA & _%x|,vo`(  
End if {5*5tCIt  
objRs.MoveNext n\QG-?%Pi  
Wend 5ZPl`[He  
Set objRs = Nothing )wC>Hq[mhW  
getTableList = strTmp 3,GSBiK3}  
End Function 3k=q>~&@  
% > X*b0qJ Z  
p|Ln;aYc  
&EMm<(.]a  
sU>*S$X8  
</eh^<_~  
All Tables : Z?~7#F~Z`  
C][`Dk\D{  
CyE.q^Wm  
=(o$1v/k  
(C!fIRY  
() kAqk~.  
K3jno+U&  
OAv/P|n=  
N%0Z> G  
9i"3R0HN  
>0>M@s  
  then -n6C~Yx  
strSql = Select * from & tblname Jyd%!v  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) -Iq#h)Q*  
Response.Write te1
lUQ  
for i=0 to rs.Fields.count-1 A2B&X}K|U  
  Response.Write & rs.fields(i).name & 'h:4 Fzo<  
next _PuMZjGL  
Response.Write 2 `#|;x^<  
While Not Rs.Eof %j=7e@  
  Response.Write X/@Gx 4  
  for i=0 to rs.fields.count -1 pgI@[zp7  
        Response.Write & Rs.Fields(i).Value &   ;m\E9ple  
  next NY_Oo!)3  
  Response.Write       <4Ak$E%"  
  Rs.MoveNext !a0HF p$9  
Wend U_w)*)F  
Set Rs = Nothing M+Dkn3bx  
end if nkpQM$FW  
  % > ;$86.2S>B  
9AS,-5;XQ  
k|w6&k3  
R (6Jvub"I  
/GEqU^ B  
转自： ASP教程采集