实现有批量删除功能的ASP留言板
发布时间:2007-10-31 07:27:00
标签:留言板,删除,批量,asp
今天我们来写一个有管理功能的留言板程序。所谓的管理功能,其实就是每条留言前有一个选择框,点中要删除的留言,或者点“删除所有留言”,就完成了批量删除。通过这一实例,我们可以初步了解ASP中对数据库的基本操作。
一、建立数据库(ACCESS2000中文版)
myid 文本型 20字节 这是发言的唯一标志
myname 文本型 10字节 这是保存留言人姓名的
nowtime 日期/时间型 这里记录了留言时间
mytitle 文本型 30字节 这是留言的题目
mybody 备注 留言内容
其中的myid字段是关键,它是删除的唯一标志。
二、管理程序
manage.asp代码
'先定义变量
dim listrs,conn,cmd
'可根据实际留言数量修改i的循环次数
for i=1 to 100
if request("delit"&i)<>empty then
'上面这条语句为关键部分,检查第i条留言是否被选中,若被选中,则执行下面的删除操作
Set conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("guestbook.mdb")&";"
'mappath函数要用一个参数guestbook.mdb,表示要连接的数据库,注意路径问题
conn.Open sConnection
'再连接数据表
set cmd=Server.Createobject("ADODB.Command")
set cmd.activeconnection=conn
cmd.commandtext="delete from guest where myid='"&request("delit"&i)&"'"
'上面的guest是数据表的表名,myid是字段名
cmd.execute
set conn=Nothing
set cmd=Nothing
'执行SQL指令及释放对象
end if
next
'输出表单,注意action属性指向manage.asp
response.write ""
'连接数据库
set conn=Server.CreateObject("ADODB.Connection")
set listrs=server.createobject("ADODB.Recordset")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("guestbook.mdb")&";"
conn.Open sConnection
listrs.open "select * from guest",conn,2,2
'上面打开了数据库的guest表
i=1
'变量i开始记数
while not listrs.eof
response.write "来自:"&listrs("myname")&"----"&listrs("mytitle")&"时间:"&listrs("nowtime")&"
"&listrs("mybody")&"
"
i=i+1
'上面两步是关键处,输出每条留言的同时,输出一个checkbox复选框,此框功能是选中与不选中将返回不同值
listrs.movenext
wend
set listrs=Nothing
'输出提交按钮和表单结束标志
response.write
三、代码分析
代码不太好理解,且听我说来:
1.程序首次执行时,if request("delit"&i)<>empty then总是返回假值,因为复选框未被选中,接着输出所有的留言。
2.在选中了要删除的留言后,按下“删除按钮”,重新执行。
3.删除全部选中的留言后,再输出留言板。
0
投稿
猜你喜欢
- 问题:这里只解决一个问题,到底什么是Access?设计一个数据库管理系统,用access在access里面设计好表,查询,然后再用vb做窗体
- <% Function FileCounter(counter_file) Dim fs,txt,fi
- 第一章:日志管理 1.forcing log switchessql> alter system switch logfile;2.f
- asp禁止站外盗链,站外提交方法、以及asp判断星期几方法.防盗链,主要通过判断上一页面来源是否是本站来实现的,不是本站的链接就
- 原文:Unobtrusive Ajax。今天才看见的一个Presentation,是Jesse Skinner在06年10月发表的。虽然题目
- 以下是几个文件操作过程,创建文件,删除文件,修改文件:
- 问:如何给导入文件加上时间戳标记?答:请参考下文中介绍的两种方法:1.在DOS下从系统获得时间戳利用Dos命令取得时间戳:C:\>ec
- 好多同志对 iframe 是如何控制的,并不是十分了解,基本上还处于一个模糊的认识状态.注意两个事项,ifr 是一个以存在的 iframe
- 运行以下代码: Dim com As ADODB.Command Dim rst
- 因为工作的原因,开发过一个拆分字符串的SQL函数,现在把它贴出来,与大家共勉学习。该函数如下: &
- 什么是Firebug从事了数年的Web开发工作,越来越觉得现在对WEB开发有了更高的要求。要写出漂亮的HTML代码;要编写精致的CSS样式表
- CREATE TABLE table1( [ID] [bigint] IDENTITY(1,1) NOT NULL, [Name] [nva
- /usr/sbin/groupadd mysql/usr/sbin/useradd -g mysql mysqlunzip mysql-5.
- 描述 嵌入在你的web页面中的导航元素能够降低你的搜索引擎评价排名并且降低你的网站的响应性能。本文作者想同你一起探讨如何使用AJAX技术来解
- 缓动,学名为Tween,缓冲移动的简称。要想页面内容切换起来舒服,就使用淡入淡出特效,要想让页面元素动起来自然,就要使用缓动效果。这两个混合
- 每个写asp程序人必会的知识!在ASP编程中使用数组数组的定义Dim MyArrayMyArray = Array(1,5,123,12,9
- IIS上设置301 跳转相信大家都会,只要在网站-属性-主目录里 选择重定向URL就行了,这样整站就跳转到目标站点了,但是有个问
- 方法1:/** 功能:数据备份/恢复文件简易方法* 以日期为单位,一天一个备份文件,以当天最后备份为准* 用提交表单的形式进行操作,* 其中
- 首先说明一下SQL Server内存占用由哪几部分组成。SQL Server占用的内存主要由三部分组成:数据缓存(Data Buffer)、
- Balloons(气球状提示)问题摘要气球状提示(Balloon)是一个小型的弹出窗口,用于通知用户出现非关键性问题或控件处于某种特殊情况。