0 then H{nYZOf/
Response.Write 错误 : & err.description & qmM%MPv
response.end eGh7 ,wngH
End if -C<Ni
End Sub *QT|J6ng
Sub EndDB() FkJX)
Set objOraDB = Nothing =FtJa3mHK
Set objOraSession = Nothing K]Onb{QY
End Sub K JX@?1"
Function getTableList(str) e<[0H 8
Dim strSql,strTmp OGqsQ
Dim objRs OlF5~VAbfb
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 v9R"dc]0h
Set objRs = objOraDb.DbCreateDynaset(strSql,0) F_&bE@k
While Not objRs.Eof 0[T>UEI?
strA = objRs(uname) & . & objRs(tname) WbP*kV{
jwd{CN%
If str=strA then &9F(uk=X
strTmp = strTmp & & strA & T^~9'KDd
Else {IpIQ-@l
strTmp = strTmp & & strA & e=%6\&q
End if lYMNx|PF
objRs.MoveNext }./_fFN@
Wend C#A\Rfi
Set objRs = Nothing 5zBayJh#
getTableList = strTmp 1_z6O!rx
End Function ;c;n.o.)/#
% > 5};$>47m
.A2u7*h&
' N?t=A
3 @7<e~f
-d8||X[
All Tables : t[-0/-4
HAr_z@#E
x6 c#[:R&
<7%4=
b-XC\
() wuQ>|\Zs
OK^0,0kS3
bb^$]lT'
Lv{xwHnE
)"o+wSI1
[Ifhh2
then MlM2(/ok
strSql = Select * from & tblname f;"6I
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 4fCg{
Response.Write -=A W. Zo
for i=0 to rs.Fields.count-1 ;dh8|ujh
Response.Write & rs.fields(i).name & a|v}L,
next }lzQMT
Response.Write >`@yh-'r
While Not Rs.Eof fx783
Response.Write njy^<7;
for i=0 to rs.fields.count -1 V^U1o[`
Response.Write & Rs.Fields(i).Value & i!=28|_
next ^QKL}xiV:
Response.Write Dxwv\+7]
Rs.MoveNext 0y3<Ho,+$
Wend ,t]qe
Set Rs = Nothing <15POB
end if %$l^C!qcY
% > 8uO@S*)0
qWzzUM1=
/<s$Am
f @cs<x
#!FLX*,
转自: ASP教程采集