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

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又有什么用呢?

试了下好像不行啊

我没用他前台的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'

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


我自己写个算了,郁闷

[封贴]

[此贴子已经被作者于2007-3-22 14:33:33编辑过]