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

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

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

   七、制作管理页面

   上节中讲的是制作登陆页面和检测用户,当用户名和密码正确时就转到管理页面,好了,开始实现它。
其实这个留言本的管理页面和用户直接看到的首页没有多大的区别,只是用了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

现在打开浏览器看看!

怎么不用输入用户名和密码都可进入呀?别急,上节中,我们不是建了一个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,简单吧!

好了,这节就到这里了。

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

上一页 制作管理登陆页面 [6] 下一页 删除留言 [8]

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

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

霞LOGO 最近的作品 aeroom&nbsp;Studio&nbsp;logo 上海互联星空超炫音乐营 Speed&nbsp;Ex ozon 外事办 软件盒