雅慧教你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