2024年5月10日发(作者:)
简单的ASP留言板制作教程
一、安装与调试
创建ASP的运行环境(安装IIS)
IIS(Internet Information Service)是构建ASP站点所必须的,先确认自己的电脑已
安装了IIS信息服务,如果没有安装好的话,请按以下步骤: 1、打开“控制面板” 2、双
击“添加/删除程序” 3、单击“添加/删除Windows组件”,打开添加/删除Windows
组件对话框: 3、从下拉的列表中选择“Internet 信息服务(IIS)”单击“下一步”: 4、
出现组件安装进度窗口,如弹出需要安装盘的话,放入Windows2000安装盘,按提示操
作直至最后安装完毕。
---------------------------------------------------------------------
二、设计数据库
留言本有以下信息需要保存:留言者姓名、联系方式、留言内容等等。因为ASP并不
能储存数据,所以数据库在这种环境之下就产生了。数据库的种类也很多,针对不同的程
序也有适用于它的数据库,比如Access和Ms SQL就比较适用ASP和程序。
打开access后,出现一个对话框,选择第一个选项”空Access数据库”点击确定,
弹出一个新建数据库的文件框,选择你上次你建的站点目录,起个data的文件名,点击创
建, 双击”使用设计器创建表”打开表创建窗口”,创建表的结构如下表:
数据库设计好了以后,可以直接在数据库里添加两条记录,以后测试时候用。
再来创建一个储存管理员用户的表,以同样的方法,起名为admin,设计如下表:
打开表,自己添加一个管理员用户,以便测试使用。
整个数据库建立好了。
---------------------------------------------------------------------
三、连接数据库
用ASP把程序和数据库连接起来,以后就可以连接到数据库、在ASP中显示数据库
中的数据以及更复杂的插入、修改和删除。
以下代码是ASP程序中常用的连接数据库的代码:
<%
set conn=object("tion")
c&h("")
connstr
%>
解释:
<% '这是ASP程序的起始
set conn=object("tion") '在服务器上创建了一个连
接数据库的对象
connstr="Provider=.4.0;data
source="&h("") '告诉ASP数据库的接接方法以及路径
connstr '创建了对象后就用来打开数据库进行连接
%>
将上面的代码另存为文件,放在服务器目录中。
这一节是最重要的,否则以后操作数据库将变得不现实。下一步将数据库中的数据显
示在页面中(实现留言本的查看功能)
---------------------------------------------------------------------
四、查看留言板
前面已经连接好了数据库,这里讲解如何将数据库里的数据用ASP读取出来并在页面
中显示出来,这样就等于是查看留言本了。
利用DW制作首页面:
将制作好的文件存为,下面创建数据记录集,用来显示数据库的数据到这
个页面中:
用记事本打开,在页头加入以下代码:
<%@LANGUAGE="VBScript" codepage="936"%>
<%
set rs=object("set")
sql="select user,qq,email,content,data from main order by id desc"
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”链接到:<%=rs("qq")%>
“邮件”链接到:mailto:<%=rs("email")%>
最后将“填写留言”链接 “管理留言”链接
再次保存,原来在数据库里添加了两条记录的,为什么浏览只显示一条记录?
因为我们没有指定ASP循环显示,所以就只有一条。
在刚才的代码后面添加一行
<%do while not %>
并在页面的第一个表格的末尾加上
<%
xt
loop
%>
上面的代码是用rs记录集指针一条一条往下一条移动,直到末尾,loop是循环的意
思。再次浏览这个文件:
这样就可以让数据库中的数据全部显示在页面中了,下一步介绍添加留言功能。
---------------------------------------------------------------------
五、制作添加留言页面,实现留言功能
我们是做的一个留言本,实现留言的功能就十分重要了,要不然就算不上留言本了,
接下来就一起来实现这个功能。
用DW制作页面:
设置表单的属性如下:
姓名:设置为单行文本域,名称为“user”
QQ号:设置为单行文本域,名称为“qq”
邮件:设置为单行文本域,名称为“email”
内容:设置为多行文本域,名称为“content”
最后将表单的“Action”动作指向就可以了。
保存文档名为。
表单做好了,但还需要后台程序的支持,使用ASP编写一个添加留言处理程序,添加
留言代码:
<%@LANGUAGE="VBScript" codepage="936"%> '表明ASP使用的是VB脚本
'是用include包含文件,这里包含的是数据库连
接文件
<%
set rs=object("set") '利用Server内置对象创建一个记
录集
sql="select user,qq,email,content,data from main" 'SQL语句,解释过了
sql,conn,1,3 '用刚才创建的名为rs的记录集打开数据库,设置属性为插入数
据
'用记录集新添加一条数据
user=("user") '请求表单的变量,定义变量为user,这里
是请求表单的意思
qq=("qq") '请求表单的变量,定义变量为qq,这里是
请求表单的意思
email=("email") '请求表单的变量,定义变量为email,这里
是请求表单的意思
content=("content") '请求表单的变量,定义变量为content,这里
是请求表单的意思
rs("user")=user '将请求到的表单值传向记录集中代表user字段的名称
rs("qq")=qq '将请求到的表单值传向记录集中代表qq字段的名称
rs("email")=email '将请求到的表单值传向记录集中代表email字段的名称
rs("content")=content '将请求到的表单值传向记录集中代表content字段的名称
'更新一下数据库中的数据。
'关闭记录集
set rs=nothing '销毁记录集
'关闭数据库连接
set rs=nothing '销毁数据库连接
%>
读懂后节省时间,可以复制粘贴以上代码
<%@LANGUAGE="VBScript" codepage="936"%>
<%
set rs=object("set")
sql="select user,qq,email,content,data from main"
sql,conn,1,3
user=("user")
qq=("qq")
email=("email")
content=("content")
rs("user")=user
rs("qq")=qq
rs("email")=email
rs("content")=content
set rs=nothing
set rs=nothing
%>
将以上文件存为,测试发现填好提交以后就出现空白,为什么?
这是因为在中没有设置数据成功提交后的转向页面,这里简单做一个刷
新页面就行了,在程序的后面加上:
然后在页面中添加提示信息,比如:“您的留言已经成功提交,2秒钟后将自动返回
留言本首页”
留言的功能实现了,最后再测试看看效果。
以上是要求掌握部分,以下可以试着学习,完成一个完整的留言板
六、制作管理登陆页面
留言本的后台管理功能很重要,这里只做留言本删除功能就行了当然也可以在这基础
上添加更多的功能,比如回复留言者。
用Dreamweaver做一个登陆页面,如下图:
把用户名的表单名称设置为admin,密码的表单名称设为password,把动作指向
,,存这样登陆页面就好了,
下面就做检测密码的ASP程序了,看以下代码解释:
'把包含进来连接数据库
<% 'ASP起始
admin=("admin") '定义admin的值是表单传过来的用户名域名称
admin
password=("password") '定义admin的值是表单传过来的用户名域
名称admin
if admin="" or password="" then '这句的意思是假如用户名和密码没有输入的话
那么执行下一句
("") '用javascript脚本提示用户
end if '结束if语句
sql="select * from admin where
admin='"&admin&"' and password='"&password&"'" '这句很重要,放到后面讲
set rs=e(sql) '设定记录集rs,用conn执行SQL语句
if or then '当没有符合筛选结果时,则执行下面的句子
"" '用javascript脚本提示用户
else '如果符合条件的时候
session("admin")=admin '新建session,值等于表单传来的用户名
ct "" '转向到,进入管理页
end if '结束if语句
%> 'ASP结束
将以上代码保存为。这样,用户在页面中输入用户名和密
码后,就把用户名和密码值传给处理,当用户名和密码的值和数据库中的
字段相匹配时,就进入这个管理页面,同时建一个session,这个session
的会话变量将在后面起作用,下一步就明白了。
七、制作管理页面
当用户名和密码正确时就转到管理页面,其实这个留言本的管理页面和用户直接看到
的首页没有多大的区别,只是用了Session会话变量用作保护和增加了一个删除链接,当
点击这个链接的时候,就会自动删除这条留言。
这个页面和首页的相似,先复制然后再改一下
首先找到下面这句:
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。
然后在“邮件”这个链接后面增加一个链接“删除”,链接:
?id=<%=rs("id") ,修改代码后为"
onclick="return confirm('是否确定删除本留言?');">删除
改过后存为
-------------------------------------------------------------------------------------
----------
八、删除留言
上面增加了一个删除留言的链接,以下是这个的代码
<%
set rs=object("set")
id=tring("id")
sql="select * from main where id="&id
sql,conn,2,3
%>
第4句:id=tring("id") 用id取值字符串中传的id,回头看一下删
除的链接:?id=<%=rs("id")%> 就是这个链接才把id的值传来的,
<%=rs("id")%>是读取数据库中的自动编号字段中的id。
第5句:用sql定义SQL语句,这里的*是通配符,表示所有,而Where有点像汉语
中的“当”,整句话的意思是选择所有来自表名为main的字段,它的条件是当数据库中
的id字段是字串所传来的id。
第6句是打开符合条件的记录, 2,3指定可以对数据库中的数据进入修改。
第7、8句 这才是整个程序的精髓,就是执行了删除。
这是更新数据库中的表,删除后就更新。
最后用和释放。
发布评论