您的位置: 首页 > 技术文档 > 网络编程 > 手把手教你用ASP制作留言本
NoahWeb实现表格多行多列 回到列表 多种Web脚本语言下的日历实现
 手把手教你用ASP制作留言本

作者:hemooday 时间: 2005-08-04 文档类型:原创 来自:蓝色理想

第 1 页 安装与调试 [1]
第 2 页 设计数据库 [2]
第 3 页 连接数据库 [3]
第 4 页 制作留言本首页 [4]
第 5 页 制作添加留言页面实现留言功能 [5]
第 6 页 制作管理登陆页面 [6]
第 7 页 制作管理页面 [7]
第 8 页 删除留言 [8]

三、制作留言本首页

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

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

  将制作好的文件存为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
%>

代码拷贝框

[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是循环的意思。。哈哈,再次浏览这个文件

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

出处:蓝色理想
责任编辑:moby

上一页 连接数据库 [3] 下一页 制作添加留言页面实现留言功能 [5]

◎进入论坛网络编程版块参加讨论

作者文章
透彻掌握ASP分页技术
热门搜索:CSS Fireworks 设计比赛 网页制作 Dreamweaver Studio8 Flash
站点最新 站点最新列表
疯狂的程序员 第五十回
疯狂的程序员 第四十九回
疯狂的程序员 第四十八回
疯狂的程序员 第四十七回
疯狂的程序员 第四十六回
疯狂的程序员 第四十五回
疯狂的程序员 第四十四回
疯狂的程序员 第四十三回
疯狂的程序员 第四十二回
疯狂的程序员 第四十一回
栏目最新 栏目最新列表
火星人的耳机
公司正式宣布创业失败
用corelDEAW 12打造唇膏
二行代码解决全部网页木马
一行代码解决iframe挂马
Photoshop制作星空爆炸效果
CorelDraw 12打造休闲裤
Firework如何画特殊的切角图形
Firework打造韩式风格的手提袋
flash实例:打造佛光效果
>> 分页 首页 前页 后页 尾页 页次:4/81个记录/页 转到 页 共8个记录

蓝色理想版权申明:除部分特别声明不要转载,或者授权我站独家播发的文章外,大家可以自由转载我站点的原创文章,但原作者和来自我站的链接必须保留(非我站原创的,按照原来自一节,自行链接)。文章版权归我站和作者共有。

转载要求:转载之图片、文件,链接请不要盗链到本站,且不准打上各自站点的水印,亦不能抹去我站点水印。

特别注意:本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有,文章若有侵犯作者版权,请与我们联系,我们将立即删除修改。

本文总共有 57 条评论,现在显示最新的 5 条。评分:- llllllllllllllllllll + 评分人数: 16 ,平均分: 4.06


wwp1314 Publish at 2008-6-29 2:21:33
第5页中,按你编写的代码作完后,IE出现
Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。
/fxzg2008/dww/addsave.asp, 第 7 行
我查后是这一个代码 rs.addnew
应该怎么办?
w1h2l3 Publish at 2008-6-27 4:36:14
将上面的代码另存为conn.asp文件,放在服务器目录下面“ 是什么意思?“服务器目录”是什么意思?
fxzg2008 Publish at 2008-5-18 16:16:45
第5页中,按你编写的代码作完后,IE出现
Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。
/fxzg2008/dww/addsave.asp, 第 7 行
我查后是这一个代码 rs.addnew
应该怎么办?
请解决为盼?
uidw618 Publish at 2008-5-6 1:58:41
我做好,测试怎么直接就跑到mymanage.asp页呢?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/web.asp" -->
<%
Dim Rs
Dim Rs_numRows

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = MM_web_STRING
Rs.Source = "SELECT * FROM UserTbl"
Rs.CursorType = 0
Rs.CursorLocation = 2
Rs.LockType = 1
Rs.Open()

Rs_numRows = 0
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>

<form id="login" name="login" method="POST">
<table width="850" border="1" cellpadding="8">
<tr>
<td width="403"><div align="right">用户名:</div></td>
<td width="403"><label>
<input name="admin" type="text" id="admin" />
</label></td>
</tr>
<tr>
<td><div align="right">密码:</div></td>
<td><label>
<input name="password" type="text" id="password" />
</label></td>
</tr>
<tr>
<td> </td>
<td><label>
<input type="submit" name="Submit" value="提交" />
</label></td>
</tr>
</table>

</form>
<%
admin=request.form("admin")
password=request.form("password")
if admin="" or password="" then
response.Write("请填写完整!")
end if
sql="select * from admin where admin='"&admin&"' and password='"&password&"'"
if rs.eof or rs.bof then
response.write "<script language=javascript>"
response.write ("用户或密码不对!")
response.write "javascript:history.go(-1)"
response.write "</script>"
else
session("admin")=admin
response.redirect "mymanage.asp"
end if
%>
</body>
</html>
<%
Rs.Close()
Set Rs = Nothing
%>

zhty Publish at 2008-5-2 8:46:10
我想请问一下在第二步:设计数据库中,您所提到的"在数据库里添加两条记录"和“添加一个管理员用户”具体应该怎么操作?

查看全部评论

您的评论
用户名:  口令:
说明:输入正确的用户名和密码才能参与评论。如果您不是本站会员,你可以注册 为本站会员。
注意:文章中的链接、内容等需要修改的错误,请用报告错误,以利文档及时修改。
不评分 1 2 3 4 5
注意:请不要在评论中含与内容无关的广告链接,违者封ID
请您注意:
·不良评论请用报告管理员,以利管理员及时删除。
·尊重网上道德,遵守中华人民共和国的各项有关法律法规
·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
·本站评论管理人员有权保留或删除其管辖评论中的任意内容
·您在本站发表的作品,本站有权在网站内转载或引用
·参与本评论即表明您已经阅读并接受上述条款
推荐文档 | 打印文档 | 评论文档 | 报告错误  
专业书推荐 更多内容
大师之路--Photoshop 完全解析
《超越CSS》新书上市
Don't Make Me Think 第2版
HTML与CSS入门经典(第7版)
《FLASH MX2004网站开发精粹》
《CSS入门经典》
《设计师谈网页设计思维》
作品集 更多内容

封面 HP&#45;Mini START&nbsp;BAR&nbsp;VIS goi&#45;kart 绿城集团 30for杂志的一些页面 Video&nbsp;is&nbsp;coming&nbsp;soon... 西班牙瑞贝里斯俱乐部