0 then w\V1pu^6@
Response.Write 错误 : & err.description & 3(2WO^zX {
response.end _ MsO2A
End if 2/WtOQIB
End Sub PpXzWWU":
Sub EndDB() GGM|B}U p
Set objOraDB = Nothing [zC1LTXe
Set objOraSession = Nothing CdEQiu
End Sub P}`|8b1W
Function getTableList(str) &7\=Jw7w
Dim strSql,strTmp +N6IdDN3
Dim objRs $ol]G`+
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 _+sb~
Set objRs = objOraDb.DbCreateDynaset(strSql,0)
%wFz4:
While Not objRs.Eof 8ln{!,j;
strA = objRs(uname) & . & objRs(tname) N F$k~r
QJ
i5 H
If str=strA then h 8%(,$*
strTmp = strTmp & & strA & 7$"A2x
Else "*U0xnI
strTmp = strTmp & & strA & x5w5xw
End if &nV/XLpG
objRs.MoveNext }}Zwdpo
Wend |?cL>]t
Set objRs = Nothing ~mF^t7n]
getTableList = strTmp 3# g"Z7/
End Function D%`O.2T Y|
% > !1b}M/Wx
[X9T$7q#
DX2_}|$!
c>|1%}"?
cp:U@Nh(
All Tables : 40e(p/Qka
"|Ke/0rGB
f};RtRo2
o5@d1A
Z bW!c1s{
() bcR";cE
]/9@^D}&
x/pX?k
ybC0Ee@
Aaw]=8 OI
~hZr1hT6L
then m
>Rdsn~l
strSql = Select * from & tblname A_!N,<-
Set Rs = objOraDb.DbCreateDynaset(strSql,0) H9\,;kM)
Response.Write "u.'JE;j
for i=0 to rs.Fields.count-1 /Hs\`Kg"!
Response.Write & rs.fields(i).name & I[6ft_*
next w4Uo-zr@
Response.Write h]Y,gya[yk
While Not Rs.Eof +C}s"qrb@
Response.Write 9xN`
for i=0 to rs.fields.count -1 HJi
FlL3
Response.Write & Rs.Fields(i).Value & WaPuJ5;e
next {X\%7Zef+
Response.Write Zg*XbX
Rs.MoveNext a'%eyN
Wend ;b5^)S
Set Rs = Nothing .GSK!1{@
end if s||c#+j"8
% > >"q?P^f/
c
W1`[b
j].=,M<dxE
yMz dM&a!*
LE|DMz|J
转自: ASP教程采集