您的位置: 首页 > 技术文档 > 网络编程 > 手把手教你用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入门者更好的了解ASP,所以旨在学习用,当然也可以在这基础上添加更多的功能,比如回复留言者。

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

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

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

<!--#include file="conn.asp"--> '把conn.asp包含进来连接数据库
<% '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语句
%> 'ASP结束

代码拷贝框

[Ctrl+A 全部选择 然后拷贝]

将以上代码保存为checkpass.asp

这样,用户在admin.asp页面中输入用户名和密码后,就把用户名和密码值传给checkpass.asp处理,当用户名和密码的值和数据库中的字段相匹配时,就进入mymanage.asp这个管理页面,同时建一个session,这个session的会话变量将在后面起作用,下一节就明白了。

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

上一页 制作添加留言页面实现留言功能 [5] 下一页 制作管理页面 [7]

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

作者文章
透彻掌握ASP分页技术
热门搜索:CSS Fireworks 设计比赛 网页制作 Dreamweaver Studio8 Flash
站点最新 站点最新列表
疯狂的程序员 第五十回
疯狂的程序员 第四十九回
疯狂的程序员 第四十八回
疯狂的程序员 第四十七回
疯狂的程序员 第四十六回
疯狂的程序员 第四十五回
疯狂的程序员 第四十四回
疯狂的程序员 第四十三回
疯狂的程序员 第四十二回
疯狂的程序员 第四十一回
栏目最新 栏目最新列表
火星人的耳机
公司正式宣布创业失败
用corelDEAW 12打造唇膏
二行代码解决全部网页木马
一行代码解决iframe挂马
Photoshop制作星空爆炸效果
CorelDraw 12打造休闲裤
Firework如何画特殊的切角图形
Firework打造韩式风格的手提袋
flash实例:打造佛光效果
>> 分页 首页 前页 后页 尾页 页次:6/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入门经典》
《设计师谈网页设计思维》
作品集 更多内容

茶杯&#45;仿青花瓷效果 Digifans&nbsp;vipcard ENTER页面设计 泡泡猪 墨摄影 安徽古井集团 全球通联盟商户服务系统 内部考勤系统