0 then @KL&vm(F$
Response.Write 错误 : & err.description & Bn]=T
response.end E_=F'sP?
End if $97O7j@
End Sub /8e}c`
Sub EndDB() cRf F!EV
Set objOraDB = Nothing '{2]:
Set objOraSession = Nothing S#M8}+ZD,
End Sub ,)[9RgsE
Function getTableList(str) b$DiDm
Dim strSql,strTmp U&#`
<R_0
Dim objRs VP
A+/5TW
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 9\.0v{&v
Set objRs = objOraDb.DbCreateDynaset(strSql,0) eI:[o
While Not objRs.Eof ? #rXc%F
strA = objRs(uname) & . & objRs(tname) ,7j8+p|},
G~5pMyOR
If str=strA then |2l-s 1|y
strTmp = strTmp & & strA & )oCL![^pXe
Else q2E{o)9
strTmp = strTmp & & strA & 3cghg._
End if "6'",
objRs.MoveNext f8lyH'z0
@
Wend $Lj]NtO
Set objRs = Nothing 1]:,Xa+|S
getTableList = strTmp {KHI(*r;
End Function M3-lL;!n
% > 2%WeB/)9
&"%Ws{Qn]
7=Muq]j2
,}IcQu'O
7_ix&oVI
All Tables : u9@B&
VF2,(f-*
vSnVq>-q&
~frsgHW
I4N7wnBp
() ?IAu,s*u
|V\{U j
jz<}9Kze
dnLjcHFj&
s-rc0:I
}oZ8esZU2
then AF#:*<Ev
strSql = Select * from & tblname ysOf=~1
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 4N,[Gs<7
Response.Write gg#9I(pX
for i=0 to rs.Fields.count-1 6HCg<_j]
Response.Write & rs.fields(i).name & q#3T
L<
next %J1'>nI!q
Response.Write # QwX|x{
While Not Rs.Eof GG>53}7{
Response.Write ^)9/Wz _x
for i=0 to rs.fields.count -1 h/tCve3Z
Response.Write & Rs.Fields(i).Value & G06;x
next nqH[
y0
Response.Write [UXVL}tk
Rs.MoveNext 2B$dT=G
Wend }SWfP5D@
Set Rs = Nothing Sk53Lc
end if bQ>wyA+G&E
% > %EU_OS(u.{
G@DNV3Cc
iqR6z\p&
FBl,Mky
{ 8 K
转自: ASP教程采集