ASP遍历数据库

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!--#include file="inc/sql.asp"--><%Set rstSchema = db.OpenSchema(20)Do Until rstSchema.EOF '遍历数据库表if rstSchema("TABLE_TYPE")="TABLE" then response.write rstSchema("TABLE_NAME") & ":" set rs=db.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.MoveNextLoop %>