<
!
--
#include file
=
"
inc/conn.asp
"
-->
< %
Set rstSchema = conn.OpenSchema( 20 )
Do Until rstSchema.EOF ' 遍历数据库表
response.Write( " -- " )
if rstSchema( " TABLE_TYPE " ) = " TABLE " then
response.write rstSchema( " TABLE_NAME " ) & " : "
set rs = conn.execute( " select * from " & rstSchema( " TABLE_NAME " ))
for i = 0 to rs.fields.count - 1 ' 遍历表中字段
response.write rs(i).name & " "
next
end if
response.write " <br> "
rstSchema.MoveNext
Loop
% >
< %
Set rstSchema = conn.OpenSchema( 20 )
Do Until rstSchema.EOF ' 遍历数据库表
response.Write( " -- " )
if rstSchema( " TABLE_TYPE " ) = " TABLE " then
response.write rstSchema( " TABLE_NAME " ) & " : "
set rs = conn.execute( " select * from " & rstSchema( " TABLE_NAME " ))
for i = 0 to rs.fields.count - 1 ' 遍历表中字段
response.write rs(i).name & " "
next
end if
response.write " <br> "
rstSchema.MoveNext
Loop
% >