简单ASP语言做留言板(一看就会附图)

 时间:2011-01-17 03:09:08 贡献者:miaoerla

导读:一、安装与调试 常听朋友感叹 ASP 程序难学不易懂, 不过我起初学习这门技术的时候也有过这样的 感悟。从今天开始,我将以我学 ASP 的经验来做一个简单的 ASP 留言本,这个留言本用 了 Ac

asp访客留言板 -在线图片欣赏
asp访客留言板 -在线图片欣赏

一、安装与调试 常听朋友感叹 ASP 程序难学不易懂, 不过我起初学习这门技术的时候也有过这样的 感悟。

从今天开始,我将以我学 ASP 的经验来做一个简单的 ASP 留言本,这个留言本用 了 Access 数据库,所以务必请大家要跟我一起做的朋友都安装好 Office 软件,相信各 位自己的电脑上都有了。

好了,开始。

创建 ASP 的运行环境(安装 IIS) IIS(Internet Information Service)是构建 ASP 站点所必须的,所以,我们应该 先确认自己的电脑已安装了 IIS 信息服务,如果没有安装好的话,请按以下步骤: 1、打开“控制面板”2、双击“添加/删除程序”3、单击“添加/删除 Windows 组件”,打开添加/删除 Windows 组件对话框:

3、从下拉的列表中选择“Internet 信息服务(IIS)”单击“下一步”:

4、出现组件安装进度窗口,如弹出需要安装盘的话,放入 Windows2000 安装盘,按提 示操作即可。

直至最后安装完毕。

二、设计数据库 ASP 程序本身并不能储存数据,众所周知,留言本有以下信息需要保存:留言者姓 名、联系方式、留言内容等等。

因为 ASP 并不能储存数据,所以数据库在这种环境之下 就产生了。

数据库的种类也很多,针对不同的程序也有适用于它的数据库,比如 Access 和 Ms SQL 就比较适用 ASP 和 ASP.net 程序,至于其它的数据库和程序,就不属于本文 所讨论的问题了,有兴趣的朋友可以查看其它一些资料。

那么既然 Access 和 MS SQL 都适用 ASP,那么具体又如何来选择呢?我们可以打一 个比方:比如钉一枚小钉子,聪明的人一定不会用一个大的棒槌,而是选择小的铁锤, 虽然用大的棒槌也一样的可以把钉子钉进去,可是没有人愿意这样做。

数据库也一样:Access 比较适用小型的应用,而 MS SQL 则适用于大中型的数据库 应用,所以要做一个留言本,理所当然是选择 Access 更好一些,但是如果你决心使用 MS,没有人会极力阻止你。

好了,废话少说,切入正题,下面开始创建数据库。

Access 是微软 office 办公软件中的其中一个, 默认的安装 Office 是有这个 Access 的,好了,打开程序,开始了,GO!

进入实战了。

打开程序后,出现一个对话框,这里我们选择第一个选项"空 Access 数据库"点击确定,弹出一个新建数据库的文件框,选择你上次你建的站点目录,起个 data 的文件名,点击创建,OK! 双击"使用设计器创建表"打开表创建窗口"如图创建表的结构如下表:字段名称 id user qq email数据类型 自动编号 文本 数字 文本备注(笔者注释) 设置“自动编号” 留言者姓名 留言者的 QQ,因为 QQ 号是由数字组成 留言者的电子邮件

content data备注 日期/时间留言内容 留言时间,设定默认值为 Now()储存留言的表就设计好了,可以直接在数据库里添加两条记录,以后测试时候用! 再来创建一个储存管理员用户的表,以同样的方法,不过起名为 admin,设计如下表:打开表,自己添加一个管理员用户,以便测试用。

整个数据库建立好了,这一小节就到此。

三、连接数据库 在上一节,我们已经为我们的程序创建了一个数据库,在这一节中,我们来用 ASP 把程序和数据库连接起来,以后就可以连接到数据库、在 ASP 中显示数据库中的数据以 及更复杂的插入、修改和删除。

一起看以下代码,这就是 ASP 程序中常用的连接数据库的代码:<% set conn=server.createobject("adodb.connection") connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb") conn.open connstr %>解释一下以上代码: <% '这是 ASP 程序的起始 '在服务器上创建了一个连set conn=server.createobject("adodb.connection") 接数据库的对象

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

怎么样,简 单吧? 这一节是最重要的,一定要弄明白,否则以后操作数据库将变得不现实,如果有不 懂的问题,欢迎和我讨论,我的电子邮件地址是。

这一节就到此,下节我们就将数据库 中的数据显示在页面中(这就实现了留言本的查看功能) 三、制作留言本首页 前面我们已经连接好了数据库,就要让它在这里发挥一下作用了,这一节将讲述如 何将数据库里的数据用 ASP 读取出来, 在页面中显示出来, 这样就等于是查看留言本了。

利用 DW 制作如下页面(这里我就不讲如何去做这个页面了,最后我将会给出 HTML 代码下载)将制作好的文件存为 index.asp,下面就创建数据记录集,用来显示数据库的数据 到这个页面中: 用记事本打开 index.asp,在页头加入以下代码:

<%@LANGUAGE="VBScript" codepage="936"%> <% 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 %>代码拷贝框<%@LANGUAGE="VBScript" codepage <% set rs=server.createobject("ado sql="select user,qq,email,conte rs.open sql,conn,1,1[Ctrl+A 全部选择 然后拷贝] 解释一下: 第一行,表明 ASP 使用的是 VB 脚本 第二行,是用 include 包含文件,这里包含的是数据库连接文件。

第三行,ASP 程序开始 第四行,利用 Server 内置对象创建一个 rs 记录集 第五行, 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 好了,再次保存,浏览看看! 好了,再次保存,浏览看看!怎么了?只显示一条记录?原来我们在数据库里添加了两条记录的哦!还有一条 呢?别急,因为我们没有指定 ASP 循环显示,所以就只有一条啦。

在刚才的代码后面添加一行<%do while not rs.eof%>并在页面的第一个表格的末尾加上<% rs.movenext loop %>上面的代码就是说用 rs 记录集指针一条一条往下一条移动,直到末尾,loop 是循环的 意思。

哈哈,再次浏览这个文件

看明白了吗,这样就可以让数据库中的数据全部显示在页面中了,好了,这节就到 这,下节讲一个也很重要的部份(添加留言功能。

) 三、制作添加留言页面,实现留言功能 我们是做的一个留言本, 实现留言的功能就十分重要了, 要不然就算不上留言本了, 接下来就一起来实现这个功能。

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

设置表单的属性如下: 姓名:设置为单行文本域,名称为“user” QQ 号:设置为单行文本域,名称为“qq” 邮件:设置为单行文本域,名称为“email” 内容:设置为多行文本域,名称为“content” 最后将表单的“Action”动作指向 addsave.asp 就可以了。

保存文档名为 add.asp,OK!下一步! 表单是做好了,但是还需要后台程序的支持,一起来使用 ASP 编写一个添加留言处 理程序,添加留言代码:<%@LANGUAGE="VBScript" codepage="936"%> <% set rs=server.createobject("adodb.recordset") sql="select user,qq,email,content,data from main" rs.open sql,conn,1,3 rs.addnew'表明 ASP 使用的是 VB 脚本'是用 include 包含文件, 这里包含的是数据库连接文件'利用 Server 内置对象创建一个记录集 'SQL 语句,上节有详解'用刚才创建的名为 rs 的记录集打开数据库,设置属性为插入数据'用记录集新添加一条数据 '请求表单的变量,定义变量为 user,这里 request.form 是user=request.form("user") 请求表单的意思 qq=request.form("qq") 单的意思 email=request.form("email") 是请求表单的意思 content=request.form("content") request.form 是请求表单的意思 rs("user")=user'请求表单的变量,定义变量为 qq,这里 request.form 是请求表'请求表单的变量,定义变量为 email,这里 request.form' 请 求 表 单 的 变 量 , 定 义 变 量 为 content , 这 里'将请求到的表单值传向记录集中代表 user 字段的名称

rs("qq")=qq rs("email")=email'将请求到的表单值传向记录集中代表 qq 字段的名称 '将请求到的表单值传向记录集中代表 email 字段的名称 '将请求到的表单值传向记录集中代表 content 字段的名称rs("content")=content rs.update rs.close set rs=nothing conn.close set rs=nothing %>'更新一下数据库中的数据。

'关闭记录集 '销毁记录集 '关闭数据库连接 '销毁数据库连接代码拷贝框<%@LANGUAGE="VBScript" codepage <% set rs=server.createobject("ado sql="select user,qq,email,conte rs.open sql,conn,1,3    '用[Ctrl+A 全部选择 然后拷贝] 将以上文件存为 addsave.asp, 测试下! 咦?怎么填好提交以后就出现空白了, 为什么? 这是因为在 addsave.asp 中没有设置数据成功提交好后的转向页面, 这里不用做那么复 杂的,只要做一个刷新页面就行了,在程序的后面加上:然后在页面中添加提示信息,比如:“您的留言已经成功提交,2 秒钟后将自动返回留 言本首页” 好了,这个留言的功能总算实现了,最后再测试下,看看效果!

OK!这个留言功能的实现教程就到这里了。

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

好了,开始了,还是按照以前的,用 Dreamweaver 做一个登陆页面,如下图:

把用户名的表单名称设置为 admin,密码的表单名称设为 password,把动作指向 checkpass.asp,,存 admin.asp 这样登陆页面就好了,下面就做检测密码的 ASP 程序了,看以下代码解释: '把 conn.asp 包含进来连接数据库 <% 'ASP 起始 admin=request.form("admin") '定义 admin 的值是表单传过来的用户名域名称 admin password=request.form("password") '定义 admin 的值是表单传过来的用户名域名称 admin if admin="" or password="" then '这句的意思是假如用户名和密码没有输入的话那么执行下一句 response.Write("") '用 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 "" '用 javascript 脚本提示用户 else '如果符合条件的时候 session("admin")=admin '新建 session,值等于表单传来的用户名 response.redirect "mymanage.asp" '转向到 mymanage.asp,进入管理页 end if '结束 if 语句 %> 'ASP 结束代码拷贝框 <% 'ASP起始 admin=request.form("admin") '定 password=request.form("password if admin="" or password="" then response.Write("

 

微信扫一扫 送福利