雅慧教你ASP+ACCESS数据库网页基本操作
1、架设IIS服务器或者直接在网上下载可以直接测试运行ASP的软件；
2、在电脑D盘的根目录下，建立一个名为“Web”的文件夹，在该文件夹下建立“data”、“images”、“css”三个文件夹，“data”文件夹下面主要用来存放数据库文件，“images”主要用来存放“logo”、“benner”等网页的图片，“css”主要用来存放定义各网页式样的样式文件，另外那个用来直接测试运行ASP的软件也需要放在这个名为“Web”的文件夹根目录下，否则无法运行；
3、打开access，创建一个名为“data.mdb”的数据库，然后设计一个名为“message”的表，其表中内容包括“id”、“name”、“content”三个字段；
4、我们以最简单的留言板为例，在DW中新建1个“conn.asp”，保存在名为“Web”的文件夹下，其程序代码如以下所示：
<%
'-----------打开数据库------------
dim conn,rs
Connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("data/data.mdb")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
if err then
response.write err.description
response.end
end if
dim dt,s,r,a
r=""
dt = now()
s = split(dt, " ", -1, 1)
a = split(s(0), "-", -1, 1)
for i=0 to ubound(a)
if a(i) < 10 then
a(i) = "0" + a(i)
end if
if i=0 then
r = a(i)
else
r = r + "-" + a(i)
end if
next
%>
5、在DW中新建1个“index.asp”，保存在名为“Web”的文件夹下，在设计窗口中，执行菜单【插入】|【表单】|【表单】，这时会出现一个红色的虚线矩形框，将光标放在此框中，插入1个3行2列、宽度为100%的表格，然后在表格的第1行第1列输入文字“昵称”，在表格的第1行第2列执行菜单【插入】|【表单】|【文本域】，选中该文本域，如下图所示，在“属性”面板中，将文本域的名称设为“name1”；
6、在表格的第2行第1列输入文字“留言内容”，在表格的第2行第2列执行菜单【插入】|【表单】|【文本区域】，选中该文本区域，如下图所示，在“属性”面板中，将文本区域的名称设为“content”，点选“多行”，行数设为5；
7、在表格的第3行第2列，插入“提交”和“重置”两个按钮，切记“重置”按钮的动作属性需要点选“重设表单”；
8、回到代码窗口的第1行按回车键，执行菜单【插入】|【服务器端包括】，在弹出的浏览文件中，选择“conn.asp”，点选【确定】按钮，这时候会在代码的第2行出现如下语句：“<!--#include file="conn.asp" -->”，切记这段语句要重复的包含写入在下面的每个新建ASP页面中；
9、接着，我们新建1个chk_index.asp，存放在名为“Web”的文件夹下，这个页面主要是“index.asp”页面中“留言已成功提交”的一个提示页面，其全部代码如下，需要解释的是“conn,1,2”，这是游标控制数据库的一种规定，“conn,1,2”是用来修改和删除数据库里面数据的，而“conn,1,1”是显示数据而不能修改的；
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
name1=trim(request.form("name1"))'获取姓名的字段名,
content=request.form("content")'获取内容的字段名，
set rs=server.createobject("adodb.recordset")
sql="select * from message"
rs.open sql,conn,1,2 '向数据库里添加信息
rs.addnew
rs("name")=name1
rs("content")=content
rs.update
rs.close
response.Write "<script language='javascript'>alert('留言已成功提交！');window.location.href='index.asp';</script>"
%>
10、那么信息提交后，肯定需要一个页面来进行显示和修改、删除，这样接下来我们新建1个名为“admin_message.asp”的显示页面，存放在名为“Web”的文件夹下，在“设计”窗口中插入1个1行4列的表格，分别输入“昵称”、“内容”、“修改”、“删除”等文字如下图所示，选择第1行复制并粘贴到第2行；
11、在两行之间插入如下的一段代码，这段循环语句的意思是搜索数据库中，从第1行到最后1行的所有数据；
<%
set rs=server.createobject("adodb.recordset")
sql="select * from message "
rs.open sql,conn,1,1
i=1
do while not rs.eof
i=i+1
%>
12、选中刚才复制的第2行第1列中的文字“昵称”，将其替换成如下的代码：<%=rs("name")%>，然后将“内容”、“修改”、“删除”都做相应的修改，程序代码如下图所示，然后再做下图中的“修改”和“删除”文字的链接页面了；
13、在表格的第2行回车，也就是在</table>的后面，输入如下代码：
<%
rs.movenext
loop
rs.close
%>
14、新建一个名为“del_message.asp”的文件，存放在名为“Web”的文件夹下，这个页面是一个删除页面，其全部代码如下，需要解释的是其中的SQL语句，是搜索数据库中相应的“id”值来进行有针对性的删除工作，删除成功后页面会自动返回“admin_message.asp”页面；
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
id = Request.QueryString("id")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="delete * from message where id="&id
set rs=conn.execute(sql)
rs.open sql,conn,1,2