首页 >> 读书频道 >> 电脑 >> ASP进阶教程Ⅵ:留言簿在线删除留言
 
· ASP进阶教程Ⅲ:给留言
· ASP进阶教程Ⅱ:一个简
· ASP进阶教程Ⅰ:循序渐
· 利 用 ISAPI 实
· 利 用 ISAPI 实
· 利 用 ISAPI 实
· 利 用 ISAPI 实
· 利 用 ISAPI 实
· 利 用 ISAPI 实
· 组件对象开发Web应用的
· 如何使用ASP在自己的网
· 如何使用ASP在自己的网
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

ASP进阶教程Ⅵ:留言簿在线删除留言


查看有无更新版本

关键字:ASP教程 2006-9-8

 

还记得我们在第三章中作删除留言的事么?为了删掉那条往你脸上抹黑的留言,我们当时唯一能用上的方法竟然只有直接在留言数据库上进行查找和删除。(而即使是学习了第七章之后,我们也仅仅只能繁锁地先通过“留言管理”的密码验证,然后下载整个留言数据库,删除更改以后再上传。)天啊!你总没法保证:当你看到那些你不喜欢的留言时,正是当你正在使用着那台放了你留言簿的服务器的时候吧?假如有一天你出差在外,或是你正在使用的计算机根本就没有安装什么上传软件......是不是?无计可施了吧?那么难道我们就只能眼光光地放任某些“好事者”来捣乱我们的留言簿吗?
我们当然不会容忍让“好事者”来我们的留言簿肆意涂乌,因此在这一章里我将讲述一下,如何给我们的留言簿添加在线留言删除的功能。
既然要添加在线留言删除功能,留言编辑的页面总不能没,于是我把在前面章节已介绍过的留言显示页面程序page2.asp和self2.asp稍加修改,其实仅仅是在每条显示留言的上面添加一个“删除留言”的按钮而已。但是有一点我们是必须明确的是:每条留言上面的“删除留言”按钮,应该只是对该条留言有效,而与其余的留言无关。因此我们可以在self2.asp中的适当位置加入以下的语句后另存成editself.asp,这便是留言编辑界面中,用来定义留言显示格式的程序。
Tab = Tab & "< TR>< TD>< A HREF=""delete.asp?ID=" & rs("ID") & """>"
Tab = Tab &" < b>删 除 留 言< /b> "& "< /TD>< /TR>"
'rs("ID")指ID字段的记录。rs("ID")完整的写法应该是“rs.Fields("ID").Value”,因为Fields是Recordset对象“默认的”属性,Value又是Field对象“默认的”属性,因此我们可以简写成rs("ID")。
同样,我们只需将page2.asp程序上面的< !--#include file="self2.asp" -->替换成< !--#include file="editself2.asp" -->这便是删除留言页面的留言处理程序editpage2.asp。
在完成了留言编辑的页面后,接下来让我们进一步来学习删除留言的处理程序(delete.asp)。
< !--#include file="adovbs.inc" -->
< %
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("book2.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql ="DELETE FROM guestbook WHERE (ID = " & Request.QueryString("id") & ")" Set rs = conn.Execute( sql )
%>
'因为我们要删除的留言记录是留言数据库中序列号ID与“删除留言”按钮所对应的ID相一致的留言记录,因此我们在这里通过 " & Request.QueryString("id") & "来获取当前操作的留言所对应的ID。上述的SQL命令即是表明:删除留言数据库中ID序列号与当前操作的留言所对应的ID相一致的留言记录。
< %
Sub delaySecond(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
%>
< % delaySecond(2) %>
'在删除留言操作后延时2秒。
< % Response.Redirect ("page2.asp") %>
'删除留言后将客户端浏览器指引到“观看留言”页面。 

ASP进阶教程Ⅵ:留言簿在线删除留言

[ 1 ]
ASP进阶教程Ⅵ:留言簿在线删除留言 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑