asp遍历数据库中的表

< ! -- #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  
% >