首先连接数据库，然后lt Set Rs = ServerCreateObjectquotADODBRecordSetquot #39创建一个对象 SQL = quotSelect 作者字段名 From 表1quot #39查询表1中的作者字段 RsOpen SQL，Conn，1，1 #39执行查询 Do While Not Rs；通常，用这个连接AC dim conn，MyDbPath dim connstr，db db=quotydataxiaoxianaspquot #39数据库目录和名 MyDbPath = quotquoton error resume next #39继续执行 set conn=servercreateobjectquotADODBCONNECTIONquotConnStr = quot。

sql=quotselect from 表 order by userid descquotrsopen sql，conn，1，1 if not rseof then 用户ID 用户名 密 码 lt do while not rseof lt%=rsquot用户IDquot% lt%=rsquot用户名quot%；如果是从头到尾用循环并判断指针是否到末 使用 not rseof 如果是从尾到头用循环并判断指针是否到开始 使用not rsbof rsopen sqlstr，conn，1，3 表示打开数据库的方式rsmovefirst；通过openSchema把数据库中所有表读出来，然后再进行接下来的工作，我把前面的代码写给你，后面的你自己写吧#39conn这个数据库连接你应该有的啦 set rs=connopenSchema20 #39具体的看书查查其他参数，不过读表在ASP里面就；rs是新建的记录集，用来保存sql语句查询的结果sal是一个字符串，一般用来包含sql查询语句RsOpen Sal，Conn ， 1，1表示在数据库中执行sal中的sql语句，并将结果存入rs中后面跟的数字表示打开的方式，1表示记录集中的。

首先网页显示超链接是这样子操作的 指向一个超链接asp读取数据库，然后输出到标题在这里这样子就好；要把数据库里的数据显示出来，首先得建立与数据库的链接用这段代码建立链接 lt%set conn=servercreateobjectquotadodbconnectionquotconnopen quotdriver=microsoft access driver *mdbdbq=quotservermappathquot；Const SystemDatabaseType = quotACCESSquot #39系统数据库类型，quotSQLquot为MS SQL2000数据库，quotACCESSquot为MS ACCESS 2000数据库 #39如果是ACCESS数据库，请认真修改好下面的数据库的文件名 Const DBFileName = quot\database\SiteWeave；首先你得连接上数据库 比如连接数据库的变量为conn sql=quotselect top 4 * from 表 order by id descquot#39意思是打开表中前4行，按id倒序排列 set rs=connexecutesql#39开始执行代码 if notrseof and rsbof。

打开数据连接 连接所有的数据库都要先建立数据的连接对象和记录集对象，要就是connection和recordset ，connopen后面的语句是数据库引擎，有几种写法，你这是一种，还有就是sql数据库和access的连接代码是不是一样的 建立；connopen connstr #39打开数据库 set rs=serverCreateObjectquotadodbrecordsetquot #39新建记录集对象 sql=quotselect * from 表名quot #39SQL语句，决定从数据库中取哪些数据，填入rs记录集 rsopen sql，conn，1，1 #39将数据库内容；打开数据连接 连接所有的数据库都要先建立数据的连接对象和记录集对象，要就是connection和recordset ，connopen后面的语句是数据库引擎，有几种写法，你这是一种，还有就是sql数据库和access的连接代码是不是一样的；修改成mdb就可以了 1打开你的数据库，选择空数据库如图 2点击文件名后面的那个标志弹出如下图，选择后缀为mdb格式的 3选好后修改保存路径点击创建就可以了 4这个就是了；lt #39以下为连接数据库的代码，不用理解，copy就行 set conn = serverCreateObjectquotADODBConnectionquotstr = quotDriver=Microsoft Access Driver *mdbDbq=quot serverMapPathquotdatabasemdbquotconnopen str #39。