您的位置:首页精文荟萃软件资讯 → ASP进阶教程Ⅵ:留言簿在线删除留言

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

时间:2004/10/7 19:17:00来源:本站整理作者:蓝点我要评论(0)

还记得我们在第三章中作删除留言的事么?为了删掉那条往你脸上抹黑的留言,我们当时唯一能用上的方法竟然只有直接在留言数据库上进行查找和删除。(而即使是学习了第七章之后,我们也仅仅只能繁锁地先通过“留言管理”的密码验证,然后下载整个留言数据库,删除更改以后再上传。)天啊!你总没法保证:当你看到那些你不喜欢的留言时,正是当你正在使用着那台放了你留言簿的服务器的时候吧?假如有一天你出差在外,或是你正在使用的计算机根本就没有安装什么上传软件......是不是?无计可施了吧?那么难道我们就只能眼光光地放任某些“好事者”来捣乱我们的留言簿吗?

  我们当然不会容忍让“好事者”来我们的留言簿肆意涂乌,因此在这一章里我将讲述一下,如何给我们的留言簿添加在线留言删除的功能。

  既然要添加在线留言删除功能,留言编辑的页面总不能没,于是我把在前面章节已介绍过的留言显示页面程序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") %>

'删除留言后将客户端浏览器指引到“观看留言”页面。  


相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本