0 then m0JJPBp
Response.Write 错误 : & err.description & /1?{,Das=
response.end h`Xl~=
End if xhncQhf\
End Sub Hh &s.ja
Sub EndDB() L^L.;1
Set objOraDB = Nothing >,nK
Set objOraSession = Nothing N7Kkz
/
End Sub E=qfI>2U&
Function getTableList(str) /!W',9ua6
Dim strSql,strTmp L}>ts(!q&
Dim objRs K#dG'/M|Pb
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 @mEB=X(-l=
Set objRs = objOraDb.DbCreateDynaset(strSql,0) {hx=6"@
While Not objRs.Eof j]6YLM@5$
strA = objRs(uname) & . & objRs(tname) eyG[1EEU
]O&yy{yYK
If str=strA then h BzZJ/jn
strTmp = strTmp & & strA & ! Y'~?BI
Else |6~ Kin
strTmp = strTmp & & strA & ^aY,Wq
End if ?r^>Vk}
objRs.MoveNext Gvquv\
Wend %`]fZr A]#
Set objRs = Nothing 8!7`F.BX
getTableList = strTmp >%85S >e
End Function U6~79Hnt
% > 6#kK
K]ds2Kp&
Sh 7ob2
C59H|
S
/.:&9 c
All Tables : ?P Mi#H
3q`Uq`t4mR
57:27d0y
T$tO[QR/
4JGU`L:~
() )D
':bWP
h~k+!\
_j|U>s
13/U4-%b2
FyRr/0C>
J%8hf%!ud
then l,ra24
strSql = Select * from & tblname d
2z!i^:
Set Rs = objOraDb.DbCreateDynaset(strSql,0) r%%<
Response.Write qino:_g
for i=0 to rs.Fields.count-1 Q$~_'I7~Mz
Response.Write & rs.fields(i).name & fs*OR2YG7
next +}NQ|y V
Response.Write zO3}c3D~q
While Not Rs.Eof "Fqrk>Q~
Response.Write G_6!w//
for i=0 to rs.fields.count -1 &u~%5;
Response.Write & Rs.Fields(i).Value & - _BjzA|
next .$ 5*v
Response.Write <Sp>uhet1
Rs.MoveNext Z8WBOf*~e
Wend y(jd$GM|
Set Rs = Nothing iU4Z9z!
end if wK Je^7
% > [)nU?l
64f6D"."
rqhRrG{L|&
P^'}3*8S
!6`&0eY
转自: ASP教程采集