0 then p^|l ',e
Response.Write 错误 ： & err.description & #0[^jJ3J
response.end vQK/xg
End if bIyg7X)/
End Sub BR@m*JGajz
Sub EndDB() URrx7F98
Set objOraDB = Nothing qx[c0X!
Set objOraSession = Nothing ekt U,Oo
End Sub )3:0TFS}}k
Function getTableList(str) >> $`] ]7
Dim strSql,strTmp &k%>u[Bo
Dim objRs W Eif&<Y
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 pC>h"Hy
Set objRs = objOraDb.DbCreateDynaset(strSql,0) CCe>*tdf
While Not objRs.Eof |&rCX fC
strA = objRs(uname) & . & objRs(tname) BB(6[V"SV
*Z_4bR4Q
If str=strA then D\-\U
E/
strTmp = strTmp & & strA & o#,^7ln
Else yvo z 3_!
strTmp = strTmp & & strA & 7\,9Gcv1
End if bC1G5`v_D
objRs.MoveNext !LwHKCj
Wend ~Q]5g7k=&
Set objRs = Nothing ,Q7;(&x~
getTableList = strTmp ?V^7`3F
End Function qz>R"pj0g
% > GgG #]a!_f
pcwYgq#5
t 'Wv? ,
7
s5(eQI
ufL<L;Z\;
All Tables : R~k`KuY@!
WXY '%G
* /n8T]s
_<F)G,=
4A!]kj 5T
() jTcv&`fA z
ZDW=>}~_y
;x/eb g
<4q H0<
f(Of+>
' 1gfXC
then N8dx gh!,
strSql = Select * from & tblname ?l^Xauk4Pj
Set Rs = objOraDb.DbCreateDynaset(strSql,0) "
L`)^
Response.Write &b tI#
for i=0 to rs.Fields.count-1 "U-jZ5o"
Response.Write & rs.fields(i).name & 5z!$=SFz
next XH$r( @Z\7
Response.Write YiDO V)
While Not Rs.Eof ' 6 F-%
Response.Write =x\`y xsG
for i=0 to rs.fields.count -1 7*{f*({
Response.Write & Rs.Fields(i).Value & |2u=3#Jp
next ZhA _d#qH
Response.Write sjg`4^!wDD
Rs.MoveNext |
:-i[G?n
Wend F`QViZ'n>#
Set Rs = Nothing nOGTeKjEJ
end if '% QCNO/
% > ^ U*y*l$
!B}9gT
7t:RQ`$:
yQD>7%x
SXm%X(JU
转自： ASP教程采集
