| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 922 人关注过本帖
标题:[求助] 复选框问题
只看楼主 加入收藏
firever
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2006-7-20
收藏
得分:0 
只听说过批量删除。。没有听说过批量编辑的。。。

Firever Zone
2006-07-22 12:01
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
如果不是批量编辑文章内容的话就没什么奇怪的

http://www./
2006-07-22 12:08
craft001wen
Rank: 2
等 级:论坛游民
帖 子:242
专家分:62
注 册:2006-5-4
收藏
得分:0 
呵呵,不是批量编辑,而是,编辑和删除都 同时由一个复选框定位

2006-07-22 14:01
craft001wen
Rank: 2
等 级:论坛游民
帖 子:242
专家分:62
注 册:2006-5-4
收藏
得分:0 

action的值edit,和del都传过去了,而且都执行相应的函数调用!

就是调用的值,也就是在ID定位是出错了


2006-07-22 14:04
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 

客户端页面
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
<script language=JavaScript>
var SelStr='';//声明变量接收选择的值
function ShowSelVal()
{
//获得所选服选框的函数
var MsgStr='您选择了\n';
//循环判断所有服选框
for(var j=0;j<this.SeC.length;j++)
{
if(this.SeC[j].checked)
{
//如果服选框的选中状态属性checked为真
//得到选中复选框的值
MsgStr+='第'+this.SeC[j].value+'个选项\n';
SelStr+=this.SeC[j].value+'|';
}
}
if(MsgStr!='您选择了\n')
alert(MsgStr);
else
alert('您没有选择任何选项');
}
function Page_Load()
{
//网页加载时调用的函数
var TempHTML;
TempHTML='';
//在网页中循环显示复选框
for(var i=0;i<100;i++)
{
TempHTML+='<input type=checkbox value='+i+' name=SeC >第'+i+'个选项<br>';
}
this.ShD.innerHTML=TempHTML;
}
function SelAll()
{
//全选服选框的onClick事件处理函数
for(var a=0;a<this.SeC.length;a++)
{
if(this.SA.checked)
this.SeC[a].checked=true;
else
this.SeC[a].checked=false;
}
}
function SubPage()
{
//页面提交函数
if(confirm('确定要提交吗?'))
{
document.SubForm.SelStr.value=SelStr;
document.SubForm.submit();
}
}
</script>
</head>
<body onLoad=Page_Load() >
<a href=# onClick=ShowSelVal(); >点击察看</a>|<input type=checkbox name=SA onClick=SelAll(); >全选</a>
<input type=button name=SubPage onClick=SubPage() value=提交 >
<div id=ShD></div>
<form name=SubForm action=abc.asp method=post >
<input name=SelStr type=hidden >
</form>
</body>
</html>
服务器页面abc.asp
<!--此处省略数据库打开代码-->
<%
Dim TAry'声明数组变量接收所有选择的ID
Dim TSQL'声明T-SQL语句变量用于向数据库发出删除命令
Dim i'循环变量
IF Request.Form("SelStr")="" Then
'判断字符串为空证明没有被选择任何服选框
Response.Write("您没有选择任何内容,请返回前一页面先选择至少一项。")
Else
'利用Split函数将字符串[类似于"12|23|56|"这样的从客户端接收的字符串]转换为数组[加SPACE防止转换出错误]
TAry=Split(Request.Form("SelStr")&"SPACE","|")
IF UBound(TAry)<>0 Then
'如果数组元素个数不为0则执行以下操作
TSQL="delete * from [tableName] Where "'给数据库删除命令写前缀。
'一下内容将选择的ID坐位数据库删除条件给数据库删除命令字符串
For i=0 To UBound(TAry)-1
TSQL="ID="&TAry(i)&" Or "
Next
'用ADODB.Connection对象[con]的Execute方法向数据库发送删除命令并执行删除操作。
con.Execute(Mid(TSQL,1,Len(TSQL)-4))
Response.Write "所选记录已经全部被删除"
End IF
End IF
%>

[此贴子已经被作者于2006-7-23 14:02:21编辑过]

2006-07-23 14:01
craft001wen
Rank: 2
等 级:论坛游民
帖 子:242
专家分:62
注 册:2006-5-4
收藏
得分:0 

谢谢 yms123

我去试试


2006-07-24 08:04
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 

我写的那个只是示范代码,删除命令里面的[tablename]要替换为楼主要删除的表面
TSQL="ID="&TAry(i)&" Or "这个ID要与楼主表里的主键字段名一致。

2006-07-24 09:36
快速回复:[求助] 复选框问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019969 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved