快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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

还记得我们在第三章中作删除留言的事么?为了删掉那条往你脸上抹黑的留言,我们当时唯一能用上的方式竟然只有直接在留言数据库上进行查找和删除。(而即使是学习了第七章之后,我们也仅仅只能繁锁地先通过“留言治理”的密码验证,然后下载整个留言数据库,删除更改以后再上传。)天啊!你总没法保证:当你看到那些你不喜欢的留言时,正是当你正在使用着那台放了你留言簿的服务器的时候吧?如果有一天你出差在外,或是你正在使用的计算机根本就没有安装什么上传软件......是不是?无计可施了吧?那么难道我们就只能眼光光地放任某些“好事者”来捣乱我们的留言簿吗?
  我们当然不会容忍让“好事者”来我们的留言簿肆意涂乌,因此在这一章里我将讲述一下,如何给我们的留言簿添加在线留言删除的功能。
  既然要添加在线留言删除功能,留言编辑的页面总不能没,于是我把在前面章节已介绍过的留言显示页面程序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图像组件来生成图像的ASP计数器程序(二)
下一教程: ASP中SQL语句导致的性能问题

您可以阅读与"ASP进阶教程Ⅵ:留言簿在线删除留言"相关的教程:
· ASP进阶教程Ⅴ:留言簿在线留言编辑(二)
· ASP进阶教程Ⅴ:留言簿在线留言编辑
· ASP进阶教程Ⅴ:留言簿在线留言编辑(一)
· ASP进阶教程Ⅱ:一个简朴的留言簿
· ASP进阶教程Ⅶ:留言簿设置密码验证
    微笑服务 优质保证 索取样品