0 then VyzS^AH K
Response.Write 错误 ： & err.description & +nXK-g;)'
response.end =&ks)MH-
End if ;<Ar=?
End Sub 9x>d[-#y:J
Sub EndDB() {`LU+
Set objOraDB = Nothing Sjv dirr
Set objOraSession = Nothing 1 .D,W1s
End Sub y9q8i(E0
Function getTableList(str) LBM ^9W
Dim strSql,strTmp :.Jf0
Dim objRs 1FlX '[vh
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 U+:m4a
Set objRs = objOraDb.DbCreateDynaset(strSql,0) _+K_5IO4
While Not objRs.Eof \m(VdE
strA = objRs(uname) & . & objRs(tname) K {|p~B
2R;}y7 {
If str=strA then Y9uC&/_C
strTmp = strTmp & & strA & $c]fPt"i
Else 9N@W\D T
strTmp = strTmp & & strA & ,z;cbsV-{
End if &O9 |#YUq
objRs.MoveNext H`1{_
Wend W+UfGk}A
Set objRs = Nothing 0ZZZoP o
getTableList = strTmp %E#s\B,w
End Function Gft%Mq
v
% > LhOa{1SY
+j S|2d
Sdt`i
6$kq aS##
q U%/W|LY
All Tables : r^FhTzA=1
[fAV5U
3Dng 1}
:~2vJzp@?
2% L L Sa
() "P 7nNa
; <&*rnH
Fq |Ni$
}= <
YC++& Nk
Z/k:~%|E
then kW;+|qs^
strSql = Select * from & tblname )bS yB29S
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ~Sj9GxTe
Response.Write ?[ @J8
for i=0 to rs.Fields.count-1 f .Q\Z'S^
Response.Write & rs.fields(i).name & AL9chYP}/
next ~;l@|7wGz
Response.Write ED=V8';D
While Not Rs.Eof XGYbnZ~
Response.Write RL!Oi|8
for i=0 to rs.fields.count -1 9s\A\$("l
Response.Write & Rs.Fields(i).Value & }>>1<P<8-
next 'u *D A|HC
Response.Write ,:%CB"J
Rs.MoveNext [pbo4e,4O
Wend PVe
xa|aaX
Set Rs = Nothing @.$| w>>T
end if
1eS&&J5
% > IpYM;tYw&
pMw*9s X
IwQ"eUnK
eD,.~Y#?=
_zY# U9
转自： ASP教程采集
