IS服务器--Web服务扩展--“Active Server Pages”(asp)设为允许。
在服务器上安装access，可以直接安装一个office，access是office中的一个组件。
左上角菜单栏，"文件"--"新建"--"空数据库"，将文件放在网站新建的留言板文件夹下。
选择"使用设计器创建表"，然后点击"打开"。
弹出了一张表格，这张表可以设置数据库数据所具有的元素，小编这里设置了四项：
①字段名称：id，数据类型：自动编号；
②字段名称：name，数据类型：文本；
③字段名称：message，数据类型：备注；
④字段名称：data，数据类型：日期/时间。"日期/时间"下，如图设置默认值为Now()。
这样这个数据库的任何一条数据，都会有以上四种元素，关于access数据库的数据类型各代表什么，大家可以自行百度。
"文件"—>"保存"，填写表名称，确定。
弹出提示，"是否设置主键"，点击是，自动将字段"id"设为了主键，在主键前面有一个钥匙的图标，如图，主键可以看做是数据的索引，方便随时查找到想要的数据。
关闭设计器，打开刚建的表，加上两条数据，这样一个access数据库就建立好了。
接下来是asp代码。
在网站留言板文件夹下新建一个txt文件，将它重命名为xxx.asp，以记事本的方式打开，在里面添加如下图代码。
<%
dim conn,mdbfile
mddfile="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.mappath("数据库文件名.mdb)
set conn=server.createobject("adodb.connection")
conn.open mdbfile
dim sql,rs
sql="select * from 表名"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
response.write rs("id") & "
"
response.write rs("name") & "
"
response.write rs("message") & "
"
response.write rs("data") & "
"&"
"
rs.movenext
loop
rs.close
set rs =nothing
conn.close
set conn=nothing
%>
小编用自己话一行行解释，如果有错，请多见谅：
①<% (^asp代码开始)
②dim conn,mdbfile (^定义两个变量，一个叫conn，一个叫mdbfile)
③mddfile="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.mappath("数据库文件名.mdb) (^变量mdbfile设为了access数据库的连接点，后面的是获得相应数据库的绝对路径）
④set conn=server.createobject("adodb.connection") (^变量conn设为了VB连接数据库的对象)
⑤conn.open mdbfile (^conn对象打开了mdbfile数据库)
⑥dim sql,rs (^同②)
⑦sql="select * from 表名 (^变量sql查询数据库里的这张表)
⑧set rs=server.CreateObject("adodb.recordset") (^rs设为数据集对象)
⑨rs.open sql,conn,1,1 (^rs打开了相应的数据库下的表)
⑩do while not rs.eof (^如果没到数据集尾部，便执行某种操作)
⑾response.write rs("id") & "
" (^显示表中一条数据的id，然后换行)
⑿-⒁ (^同⑾)
⒂rs.movenext (^指向下一条数据)
⒃loop (^循环上面的操作)
⒄rs.colse (^把rs打开的操作关闭)
⒅set rs=nothing (^把rs变量设为空)
⒆conn.close set conn=nothing (^同上)
⒇%> （^asp代码结束)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024