新微赢技术网

标题: 如何用副选框实现多个数据选择性删除？？？？ [打印本页]
作者: 轻松由我    时间: 2010-1-7 00:59
标题: 如何用副选框实现多个数据选择性删除？？？？
如何用副选框实现多个数据选择性删除？？？？
<input type=checkbox name=a value=1>
<input type=checkbox name=a value=2>
如果都选中交上去后怎么处理？？？
作者: ￡籍の口∮    时间: 2010-1-7 01:00
以下是引用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號    时间: 2010-1-7 01:00
<%
IdArr = Replace(Request.Form("a")," ","")
delsql = "delete from [table] where id in("& IdArr &")"
Conn.Execute(delsql)
%>
作者: 灬☆爱你    时间: 2010-1-7 01:00
把你的代码帖上来看看
作者: tp寶寶^ō^    时间: 2010-1-7 01:00
我没用他前台的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'
作者: 夜来香    时间: 2010-1-7 01:00
没用还是
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'mid'


我自己写个算了,郁闷
作者: 阿玛比雷    时间: 2010-1-7 01:00
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    时间: 2010-1-7 01:00
试了下好像不行啊
作者: 「①冄12號    时间: 2010-1-7 01:00
javascript提交示例
a.asp

  2. <html>
  3. <head>
  4. <title>多复选框提交示例</title>
  5. <script language="javascript" >
  6. //返回选中项的字符串
  7. function getSelStr()
  8. {
  9. var reVal="";
  10. for(var i=0;i<this.a.length;i++)
  11. {
  12. if(this.a[i].checked)//如果选中
  13. {
  14. reVal+=this.a[i].value+"|";则将选中项的值得到
  15. }
  16. }
  17. return reVal.substr(0,(reVal.length-1));//返回选中项的字符串
  18. }
  19. function SubBtn_Click()
  20. {
  21. var selStr=getSelStr();
  22. if(selStr=="")
  23. {
  24. alert("请至少选择一项");
  25. return false;
  26. }
  27. //表单提交代码
  28. /*
  29. document.SubForm.selAStr.value=selStr;
  30. document.SubForm.submit();
  31. */
  32. }
  33. </script>
  34. </head>
  35. <body>
  36. 选项1<input type=checkbox name=a value=1 ><br>
  37. 选项2<input type=checkbox name=a value=2 ><br>
  38. 选项3<input type=checkbox name=a value=3 ><br>
  39. 选项4<input type=checkbox name=a value=4 ><br>
  40. 选项5<input type=checkbox name=a value=5 ><br>
  41. 选项6<input type=checkbox name=a value=6 ><br>
  42. 选项7<input type=checkbox name=a value=7 ><br>
  43. 选项8<input type=checkbox name=a value=8 ><br>
  44. 选项9<input type=checkbox name=a value=9 ><br>
  45. 删除选中项<input type=button name=SubBtn onClick=SubBtn_Click(); >
  46. <form name=SubForm action=b.asp method=post >
  47. <input name=selAStr type=hidden >
  48. </form>
  49. </body>
  50. </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
作者: 停淼心泪    时间: 2010-1-7 01:00
del_str = Request.Form("复选框名称")
If del_str <> "" Then
call VerifyDelStr(del_str,"id","number",p_news,conn)
End If



欢迎光临 新微赢技术网 (http://bbs.weiying.cn/) Powered by Discuz! X3.2