<!--#include file=conn.asp-->    '包含conn.asp用来链接数据库
<%
set rs=server.CreateObject("adodb.recordset")  '建立recordset对象
sqlstr="select * from message"  'message为数据库中的一个数据表，即你要显示的数据所存放的数据表
rs.open sqlstr,conn,1,3         '表示打开数据库的方式
rs.movefirst                    '将指针移到第一条记录
while not rs.eof                '判断指针是否到末尾
response.write(rs("name"))      '显示数据表message中的name字段
rs.movenext                     '将指针移动到下一条记录
wend                            '循环结束
rs.close
conn.close                    '这几句是用来关闭数据库
set rs=nothing
set conn=nothing
%>