ASP+ACCESS留言板制作详细教程

做一个简单的ASP+Access留言本,因为要用Access数据库,所以要求要安装好Office Access软件。

一、设计数据库

留言本有以下信息需要保存:留言者姓名、联系方式、留言内容等等。ASP程序本身并不能储存数据,所以数据库在这种环境之下就产生了。数据库的种类也很多,针对不同的程序也有适用于它的数据库,比如Access和Ms SQL就比较适用ASP和ASP.net程序。

Access和MSSQL都适用ASP,那么该选择哪一个?Access比较适用小型的应用,而MSSQL则适用于大中型的数据库应用,做一个简单的留言本,选择Access就可以了,下面开始创建数据库。

Access是微软office办公软件中的其中一个,默认的安装Office是有这个Access软件的,打开该程序后出现一个对话框,这里我们选择第一个选项"空Access数据库"点击确定,弹出一个新建数据库的文件框,起个data的文件名,点击创建,OK! 双击"使用设计器创建表"打开表创建窗口"如图:

access-1.gif

创建表的结构如下表:

字段名称

数据类型

备注(笔者注释)

id

自动编号

设置“自动编号”

user

文本

留言者姓名

qq

数字

留言者的QQ,因为QQ号是由数字组成

email

文本

留言者的电子邮件

content

备注

留言内容

data

日期/时间

留言时间,设定默认值为Now()

数据库设计好了以后,可以直接在数据库里添加两条记录,以后测试时候用!

二、连接数据库

创建了数据库后,用ASP把程序和数据库连接起来,以后就可以连接到数据库、在ASP中显示数据库中的数据以及更复杂的插入、修改和删除。

ASP程序中常用的连接数据库的代码:

<% <!--这是asp程序的开始标签-->
	set conn=server.createobject("adodb.connection") <!--在服务器上创建了一个连接数据库的对象-->
	connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb") <!--告诉ASP数据库的接接方法以及路径-->
	conn.open connstr <!--创建了对象后就用来打开数据库进行连接-->
%> <!--这是asp程序的结束标签-->
将上面的代码另存为conn.asp文件,放在服务器目录下面就可以。

三、制作留言本首页

连接好了数据库,就要让发挥一下作用,将数据库里的数据用ASP读取出来,在页面中显示出来,这样就等于是查看留言本了。

利用DW制作如下页面(这里我就不讲如何去做这个页面了,最后我将会给出HTML代码下载)

liuyan-access-2.gif

将制作好的文件存为index.asp,下面就创建数据记录集,用来显示数据库的数据到这个页面中,用记事本打开index.asp,在页头加入以下代码:

<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%
	set rs=server.createobject("adodb.recordset")
	sql="select user,qq,email,content,data from main order by id desc"
	rs.open sql,conn,1,1
%>
第一行,表明ASP使用的是VB脚本

第二行,是用include包含文件,这里包含的是数据库连接文件。

第三行,ASP程序开始

第四行,利用Server内置对象创建一个记录集

第五行,SQL语句,这里的意思是选择数据库中的user,qq,email,content,data字段,指定该数据表的名称是“main”数据的排列顺序是倒序。

第六行,用刚才创建的名为rs的记录集打开数据库,设置属性为只读(1,1为只读数据,1,3为插入数据,2,3是修改数据。

这样就打开了数据库,接下来就可以显示了。

将“留言人”代替为

<%=rs("user")%>
“时间”代替为
<%=rs("data")%>
“留言内容在此”代替为
<%=rs("content")%>
“QQ”链接到:
http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>
“邮件”链接到:
mailto:<%=rs("email")%>
最后将“填写留言”链接 add.asp “管理留言”链接 admin.asp,保存,浏览看看。

liuyan-access-3.gif

只显示一条记录,原来我们在数据库里添加了两条记录的!还有一条因为我们没有指定ASP循环显示,所以就只有一条。在刚才的代码后面添加一行:

<%do while not rs.eof%>
并在页面的第一个表格的末尾加上
<%
	rs.movenext
	loop
%>
上面的代码就是说用rs记录集指针一条一条往下一条移动,直到末尾,loop是循环的意思,再次浏览这个文件

liuyan-access-4.gif

这样就可以让数据库中的数据全部显示在页面中了

四、制作添加留言页面,实现留言功能

用DW制作以下这样的页面:

liuyan-access-5.gif

设置表单的属性如下:

姓名:设置为单行文本域,名称为“user”

QQ号:设置为单行文本域,名称为“qq”

邮件:设置为单行文本域,名称为“email”

内容:设置为多行文本域,名称为“content”

最后将表单的“Action”动作指向addsave.asp就可以了。

保存文档名为add.asp,OK!下一步!

表单是做好了,但是还需要后台程序的支持,一起来使用ASP编写一个添加留言处理程序,添加留言代码,addsave.asp代码 如下:

<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"--> <!--是用include包含文件,这里包含的是数据库连接文件-->
<%
	set rs=server.createobject("adodb.recordset") <!--利用Server内置对象创建一个记录集-->
	sql="select user,qq,email,content,data from main"  <!--SQL语句,上节有详解-->
	rs.open sql,conn,1,3  <!--用刚才创建的名为rs的记录集打开数据库,设置属性为插入数据-->
	rs.addnew	<!--用记录集新添加一条数据-->
	user=request.form("user")	<!--请求表单的变量,定义变量为user,这里request.form是请求表单的意思-->
	qq=request.form("qq")	<!--请求表单的变量,定义变量为qq,这里request.form是请求表单的意思-->
	email=request.form("email")		<!--请求表单的变量,定义变量为email,这里request.form是请求表单的意思-->
	content=request.form("content")		<!--请求表单的变量,定义变量为content,这里request.form是请求表单的意思-->
	rs("user")=user		<!--将请求到的表单值传向记录集中代表user字段的名称-->
	rs("qq")=qq		<!--将请求到的表单值传向记录集中代表qq字段的名称-->
	rs("email")=email	<!--将请求到的表单值传向记录集中代表email字段的名称-->
	rs("content")=content	<!--将请求到的表单值传向记录集中代表content字段的名称-->
	rs.update	<!--更新一下数据库中的数据-->
	rs.close	<!--关闭记录集-->
	set rs=nothing	<!--销毁记录集-->
	conn.close	<!--关闭数据库连接-->
	set rs=nothing	<!--销毁数据库连接-->
%>
将以上文件存为addsave.asp,测试下!怎么填好提交以后发现出现空白了,这是因为在addsave.asp中没有设置数据成功提交好后的转向页面,这里不用做那么复杂的,只要做一个刷新页面就行了,在程序的后面加上:
<meta http-equiv="refresh" content="2;URL=index.asp">
然后在页面中添加提示信息,比如:“您的留言已经成功提交,2秒钟后将自动返回留言本首页”
好了,这个留言的功能总算实现了,最后再测试下,看看效果!

liuyan-access-6.gif

五、制作管理登陆页面

留言本的管理功能对于留言本来说就不言而喻了,像论坛的登陆功能就是一个很好的例子,不过我们做留言本基本上有删除功能就行了,这个教程是为了更多的ASP入门者更好的了解ASP,所以旨在学习用,当然也可以在这基础上添加更多的功能,比如回复留言者。

用Dreamweaver做一个登陆页面,如下图:

liuyan-access-7.gif

把用户名的表单名称设置为admin,密码的表单名称设为password,把动作指向checkpass.asp,,存admin.asp这样登陆页面就好了

liuyan-access-8.gif

下面就做检测密码的ASP程序了,看以下代码解释:

liuyan-access-9.gif

<!--#include file="conn.asp"-->
<% 
	admin=request.form("admin") <!--定义admin的值是表单传过来的用户名域名称admin-->
	password=request.form("password") <!--定义admin的值是表单传过来的用户名域名称admin-->
	if admin="" or password="" then <!--这句的意思是假如用户名和密码没有输入的话那么执行下一句-->
	response.Write("<script language=javascript>alert('请填写完整!');history.go(-1)</script>") <!--用javascript脚本提示用户-->
	end if <!--结束if语句-->
	sql="select * from admin where admin='"&admin&"' and password='"&password&"'" <!--这句很重要,我们放到后面讲-->
	set rs=conn.execute(sql) <!--设定记录集rs,用conn执行SQL语句-->
	if rs.eof or rs.bof then <!--当没有符合筛选结果时,则执行下面的句子-->
	response.write "<script language=javascript>"
	response.write "alert('用户或密码不对!');"
	response.write "javascript:history.go(-1);"
	response.write "</script>" <!--用javascript脚本提示用户-->
	else <!--如果符合条件的时候-->
	session("admin")=admin <!--新建session,值等于表单传来的用户名-->
	response.redirect "mymanage.asp" <!--转向到mymanage.asp,进入管理页-->
	end if <!--结束if语句-->
%>
将以上代码保存为checkpass.asp,这样,用户在admin.asp页面中输入用户名和密码后,就把用户名和密码值传给checkpass.asp处理,当用户名和密码的值和数据库中的字段相匹配时,就进入mymanage.asp这个管理页面,同时建一个session,这个session的会话变量将在后面起作用,下一节就明白了。

六、制作管理页面

上节中讲的是制作登陆页面和检测用户,当用户名和密码正确时就转到管理页面,好了,开始实现它。其实这个留言本的管理页面和用户直接看到的首页没有多大的区别,只是用了Session会话变量用作保护和增加了一个删除链接,当点击这个链接的时候,就会自动删除这条留言,好了,其本的目的知道了,那就GO!

刚才讲了,这个页面和首页的index.asp相似,那么就先复制就行了,然后再改一下,首先找到下面这句:

sql="select user,qq,email,content,data from main order by id desc"
把它改为
sql="select id,user,qq,email,content,data from main order by id desc"
这样,就选取到了id这个自动编号的值,以便删除留言时锁定这个id。

然后在“邮件”这个链接后面增加一个链接“删除”,链接:

del.asp?id=<%=rs("id")
修改代码后为
<a href="del.asp?id=<%=rs("id")%>" onclick="return confirm('是否确定删除本留言?');">删除</a> 
这样,待会我们做del这个页的时候,就会知道为什么了!

改过后存为mymanage.asp,现在打开浏览器看看!

liuyan-access-10.gif

怎么不用输入用户名和密码都可进入呀?上节中,建了一个session的会话变量,这时就派上用场了,直接用记事本打开。在

<%@LANGUAGE="VBScript" codepage="936"%>
这句的后面加上
<%if session("admin")<>"" then%>
这句,在末尾写上:
<%
	else
	response.Redirect("admin.asp")
	end if
%>
下面来讲解一下。
<%
	if session("admin")<>"" then
%> <!--就是说如果session这个("admin")的值不是空的话就执行。-->
<%
	else
	response.Redirect("admin.asp")
	end if
%> <!--为空的话就转向登陆页,重新登陆,这样的话,直接输入网址的话就会跳到admin.asp-->
七、删除留言

上节我们增加了一个删除留言的链接,以下是这个del.asp的代码

<!--#include file="conn.asp"-->
<%
	set rs=server.createobject("adodb.recordset")
	id=Request.QueryString("id")
	sql="select * from main where id="&id
	rs.open sql,conn,2,3
	rs.delete
	rs.update
%>
第4句:
id=Request.QueryString("id")
用id取值字符串中传的id,回头看一下删除的链接:
del.asp?id=<%=rs("id")%> 
就是这个链接才把id的值传来的。
<%=rs("id")%>
是读取数据库中的自动编号字段中的id。

第5句:

用sql定义SQL语句,这里的*是通配符,表示所有,而Where有点像我们汉语中的“当”,整句话的意思是选择所有来自表名为main的字段,它的条件是当数据库中的id字段是字串所传来的id。如果这个没有的话这个一时间不明白也不要紧,慢慢接触就知道了。

第6句是打开符合条件的记录,确切的讲不应该叫记录集了,因为经过我们这样筛选的话,记录绝对是一条,2,3指定可以对数据库中的数据进入修改。

第7、8句

rs.delete 看了就明白了,原来这才是整个程序的精髓,就是执行删除了。

rs.update 这是更新数据库中的表,删除后就更新。

最后大家自己用rs.close和conn.close释放。

经过这几节的学习,大家应该对ASP有所了解和认识了,这个做ASP留言本的教程就到此结束了。

完整文档下载:http://pan.baidu.com/s/1hq5TDCK

关键词: asp access 留言板