如何用副选框实现多个数据选择性删除？？？？ - ASP

轻松由我

电梯直达

1^#

发表于 2010-1-7 00:59:58 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

如何用副选框实现多个数据选择性删除？？？？
<input type=checkbox name=a value=1>
<input type=checkbox name=a value=2>
如果都选中交上去后怎么处理？？？

收藏0

使用道具举报

￡籍の口∮

2^#

发表于 2010-1-7 01:00:05 | 只看该作者

以下是引用dh2007在2007-3-21 17:25:31的发言：
1:Select Case FType
Case "text"
WheSql=WheSql&Field&"='"&DelAry(i)&"'|"
Case "number"
WheSql=WheSqlField&"="&DelAry(i)&"|"
End Select
我不会用 select case 语句
麻烦帮我解释下好吗?

select case是选择性判断语句

这里的意思是如果FType这个变量的值等于text则执行text下面的语句。

如果FType等于number则执行number下面的语句。

'Field条件字段名称
'FType条件字段是文本型还是字符串型

2:field到底是什么是用来分割 request取得数据的字符吗?

3:FType又有什么用呢?
Field是根据什么删除这些数据，也就是说，删除数据首先要找到数据才能删除。
打个比方来说删除ID为10的数据，那么ID是条件字段，10就是这个字段的值。
FType指的是条件字段的数据类型，比如ID是数字型那么FType就应该是number
或者说ID是文本型那么FType就是text

回复支持反对

使用道具举报

「①冄12號

3^#

发表于 2010-1-7 01:00:08 | 只看该作者

<%
IdArr = Replace(Request.Form("a")," ","")
delsql = "delete from [table] where id in("& IdArr &")"
Conn.Execute(delsql)
%>

回复支持反对

使用道具举报

灬☆爱你

4^#

发表于 2010-1-7 01:00:11 | 只看该作者

把你的代码帖上来看看

回复支持反对

使用道具举报

tp寶寶^ō^

5^#

发表于 2010-1-7 01:00:14 | 只看该作者

我没用他前台的javascript,是直接交的
'批量删除数据的函数
'参数:
'DelStr上一个网页提交过来的Request.Form("selAStr")
'Field条件字段名称
'FType条件字段是文本型还是字符串型
'TBName删除数据的表名
'conn数据库连接对象(ADODB.Connection)
sub VerifyDelStr(DelStr,Field,FType,TBName,conn)
Dim DelAry
Dim i
Dim WheSql
Dim tSql
tSql="Delete * From "&TBName&" Where "
WheSql=""
DelAry=Split(DelStr,",")
For i=0 To UBound(DelAry)-1
Select Case FType
Case "text"
WheSql=WheSql&Field&"='"&DelAry(i)&"'|"
Case "number"
WheSql=WheSqlField&"="&DelAry(i)&"|"
End Select
Next
WheSql=mid(WheSql,1,Len(WheSql)-1)
WheSql=Replace(WheSql,"|"," Or ")
conn.Execute(tSql&WheSql)
End sub
call VerifyDelStr(del_str,"id","number",p_news,conn)

Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'mid'

回复支持反对

使用道具举报

夜来香

6^#

发表于 2010-1-7 01:00:17 | 只看该作者

没用还是
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'mid'

我自己写个算了,郁闷

回复支持反对

使用道具举报

阿玛比雷

7^#

发表于 2010-1-7 01:00:23 | 只看该作者

1:Select Case FType
Case "text"
WheSql=WheSql&Field&"='"&DelAry(i)&"'|"
Case "number"
WheSql=WheSqlField&"="&DelAry(i)&"|"
End Select
我不会用 select case 语句
麻烦帮我解释下好吗?

'Field条件字段名称
'FType条件字段是文本型还是字符串型

2:field到底是什么是用来分割 request取得数据的字符吗?

3:FType又有什么用呢?

回复支持反对

使用道具举报

aiq無奈tx

8^#

发表于 2010-1-7 01:00:26 | 只看该作者

试了下好像不行啊

回复支持反对

使用道具举报

「①冄12號

9^#

发表于 2010-1-7 01:00:29 | 只看该作者

javascript提交示例
a.asp

<html>
<head>
<title>多复选框提交示例</title>
<script language="javascript" >
//返回选中项的字符串
function getSelStr()
{
var reVal="";
for(var i=0;i<this.a.length;i++)
{
if(this.a[i].checked)//如果选中
{
reVal+=this.a[i].value+"|";则将选中项的值得到
}
}
return reVal.substr(0,(reVal.length-1));//返回选中项的字符串
}
function SubBtn_Click()
{
var selStr=getSelStr();
if(selStr=="")
{
alert("请至少选择一项");
return false;
}
//表单提交代码
/*
document.SubForm.selAStr.value=selStr;
document.SubForm.submit();
*/
}
</script>
</head>
<body>
选项1<input type=checkbox name=a value=1 ><br>
选项2<input type=checkbox name=a value=2 ><br>
选项3<input type=checkbox name=a value=3 ><br>
选项4<input type=checkbox name=a value=4 ><br>
选项5<input type=checkbox name=a value=5 ><br>
选项6<input type=checkbox name=a value=6 ><br>
选项7<input type=checkbox name=a value=7 ><br>
选项8<input type=checkbox name=a value=8 ><br>
选项9<input type=checkbox name=a value=9 ><br>
删除选中项<input type=button name=SubBtn onClick=SubBtn_Click(); >
<form name=SubForm action=b.asp method=post >
<input name=selAStr type=hidden >
</form>
</body>
</html>

复制代码

服务器端的几个处理函数
'批量删除数据的函数
'参数:
'DelStr上一个网页提交过来的Request.Form("selAStr")
'Field条件字段名称
'FType条件字段是文本型还是字符串型
'TBName删除数据的表名
'con数据库连接对象(ADODB.Connection)
Function VerifyDelStr(DelStr,Field,FType,TBName,con)
Dim DelAry
Dim i
Dim WheSql
Dim tSql
tSql="Delete * From "&TBName&" Where "
WheSql=""
DelAry=Split(DelStr,"|")
For i=0 To UBound(DelAry)-1
Select Case FType
Case "text"
WheSql=WheSql&Field&"='"&DelAry(i)&"'|"
Case "number"
WheSql=WheSqlField&"="&DelAry(i)&"|"
End Select
Next
WheSql=Mid(WheSql,1,Len(WheSql)-1)
WheSql=Replace(WheSql,"|"," Or ")
con.Execute(tSql&WheSql)
End Function

回复支持反对

使用道具举报

停淼心泪

10^#

发表于 2010-1-7 01:00:32 | 只看该作者

del_str = Request.Form("复选框名称")
If del_str <> "" Then
call VerifyDelStr(del_str,"id","number",p_news,conn)
End If

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册