0 then q|;Sn
Response.Write 错误 ： & err.description & /3 (|P
response.end MPexc5_
End if n1"QHA
End Sub =;) M+"
Sub EndDB() X-Yy1"6m1
Set objOraDB = Nothing `egyk)"aM
Set objOraSession = Nothing |uT &M`7\{
End Sub l$>))cW!
Function getTableList(str) (_9cL,v
Dim strSql,strTmp qoifzEc`U
Dim objRs ~O;'],#Co
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 i uNBw ]
Set objRs = objOraDb.DbCreateDynaset(strSql,0) /+11`B09
While Not objRs.Eof T| /B}srm
strA = objRs(uname) & . & objRs(tname) h
rksPK"s2
uoryxKRjc~
If str=strA then w
b@Zna
strTmp = strTmp & & strA & 3BTXX0yx
Else #fuc`X3:HL
strTmp = strTmp & & strA & , :10
End if {m<NPtp910
objRs.MoveNext jRCf!RO
Wend U#7moS' r
Set objRs = Nothing [i
]
getTableList = strTmp ~ &UfnO
End Function m9&MTR D\
% > B?-~f^*,jG
G;'=#c
^
",pN.<F9O
!6d6b@Mv
Zl:Z31
All Tables : %. zcE@7*
a9w1Z4
PGj?` y4
!Q0aKkMfL
q3~RK[OCq
() kJOSGrg
~kkwPs2V
(I ) e- 1
/= |5YxY
4raKhN"
cSkJlhwNn
then (ohza<X;6
strSql = Select * from & tblname > `@c9
m
Set Rs = objOraDb.DbCreateDynaset(strSql,0) cl4Vi%
Response.Write b')Lj]%;k
for i=0 to rs.Fields.count-1 2u>
[[U1:
Response.Write & rs.fields(i).name & Rzolue 8
next !GNLq.rQ
Response.Write p-6(>,+E[
While Not Rs.Eof }`SXUM_sD`
Response.Write IO(Y_7
for i=0 to rs.fields.count -1 Vd' KN2Jm
Response.Write & Rs.Fields(i).Value & e/h2E dY
next yD0,q%B`}
Response.Write WC?}a^
8
Rs.MoveNext Ke_ & dgsq
Wend N~w4|q!]
Set Rs = Nothing 77:s=)
end if r%QnV0L^
% > 5_d=~whO&2
<MPoDf?h
* MJl(
@\!9dK-W
pxF<L\L?:
转自： ASP教程采集
