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

0 then u;$g13  
Response.Write 错误 ： & err.description & 4N&4TUIM  
response.end E3X6-J|  
End if 1p#O(o  
End Sub 24u;'i-y5  
Sub EndDB() 59eq"08  
Set objOraDB = Nothing yEm[C(gZ  
Set objOraSession = Nothing a#i;*J  
End Sub xE+Nz5F  
Function getTableList(str) +r0ItqkM  
Dim strSql,strTmp d^5OB8t  
Dim objRs k)+2+hX&>  
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
D@5Ud)_  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) &g
dtI  
While Not objRs.Eof hq}kAv4B=  
strA = objRs(uname) & . & objRs(tname) FGzMbi<l#(  
L`>uO1O  
If str=strA then 3K Y-+ k  
strTmp = strTmp & & strA & 4L'dV  
Else g8<Ja
(J  
strTmp = strTmp & & strA & b(<#n6a}\  
End if !?t#QDo  
objRs.MoveNext 3N8RZt1.b  
Wend ".Lwq_  
Set objRs = Nothing `?Wy;5-  
getTableList = strTmp EA@p]+P  
End Function -[\+~aDH,  
% > QIZ }7  
?f{{{0$S  
tYE\tbCO'  
RRGo$  
@=@7Uu-  
All Tables : 1:2t4}  
{FV_APL9_  
*;(wtMg  
]xhZJ~"@u  
tbbZGyg5b  
() (8bo"{zI  
\[m{&%^G  
t[L0kF9en  
|3tq
.JU
  
07L >@Gf  
&p/^A[  
  then 9 F"2$;  
strSql = Select * from & tblname Bismd21F6=  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ZHQa}C+  
Response.Write -)S(eqq1  
for i=0 to rs.Fields.count-1 ,MH9e!  
  Response.Write & rs.fields(i).name & E038p]M!  
next &YAw~1A  
Response.Write $+#Lq.3,
 
While Not Rs.Eof xx^7  
  Response.Write fU@{!;|Pz  
  for i=0 to rs.fields.count -1 ==$>M d  
        Response.Write & Rs.Fields(i).Value &   Dwvd  
  next ~_XJ v  
  Response.Write       K0681_bp  
  Rs.MoveNext :C%cnU;N  
Wend Xi^#F;@sU  
Set Rs = Nothing MoIq)5/  
end if HzdtR  
  % > :%&~/@B  
-Re4G78%  
(%`R{Y  
6gUcoDD  
OQ,KQ\  
转自： ASP教程采集