在ASP页面上的表示删除的复选框，点中提交后却未执行删除操作。

Try----
-------添加js
<SCRIPT LANGUAGE="JavaScript">
function DelInfo(){
  if(confirm("你真的要删除吗?"))   document.form1.submit()
  }
</SCRIPT>
<%
dim mi
dim gqfla
dim meth
dim chb()
meth=request.QueryString("meth")
if (meth="del") and request.form("checkb")<>"" Then
'--------------------
'response.write   "<script   language=javascript>   if(!confirm('你确定要删除吗?'))   "&"     history.back(0)  </script>"
'---------------
chb=split(request.form("checkb"),",") for each box in chb------------------------------这里没有执行到，为何？
response.write "chb的值依次是："&box
cn.execute  "delete * from gqinfo where  infoid="&box
next
elseif (meth="del") and (request.form("checkb")="") then
response.write   "<script   language=javascript>alert('请选择要删除的信息行！');history.back(0)</script>"

end if
mi=request.QueryString("id")
sq="select * from gqinfo where infomaster='"&mi&"' order by date desc,infoid desc"
set rd=cn.execute(sq)response.write"<form name='form1' method=post action=masgq.asp?meth=del&id=mi><table width='100%'>"
response.write"<tr><td width='2%' height=6></td><td width='19%'><div align='center'>发布日期</div></td><td width='15%'><div align='center'>信息类型</div></td><td width='48%'><div align='center'>信息标题</div></td><td width='16%'><div align='center'>是否删除</div></td></tr>"
response.write"<TR><TD background=images/line.gif colSpan=5  height=2></TD></TR>"do while not rd.eof
if rd("gqflag")=true then
  gqfla="出售"
  else gqfla="求购"
end ifresponse.write"<tr><TD>·</TD><TD>"&rd("date")&"</td><td><div align='center'>["&gqfla&"]</div></td>"
response.write"<td><A href='gqdetail.asp?id="&rd("infoid")&"' target=_blank>"&rd("infotitle")&"</A></TD><td><div align='center'><input type='checkbox' name='checkb' value="&rd("infoid")&"></div></td></TR>"
response.write"<TR><TD background=images/point.gif colSpan=5  height=2></TD></TR>"rd.movenext
loop
response.write"<tr><td colSpan=5><div align='center'>
------------------------------------------------------
<input type='submit' name='Submit' value='提交'>
修改为:<input name="submit1" type='button' onclick="DelInfo()" value='提交'>
-------------------------------------------------------
</div></td></tr>"
response.write"</form></table>"%>

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

楼上的没有解决我删除未成功的问题，用了楼上的代码改进了下，又出现选中某个复选框后在确认删除提示选取消后，再点提交按钮，就不会出现确认删除的提示框了？！！！！------问题2下面贴上最新的代码，删除不成功的问题依旧存在，有谁可以解决？？？
.....
<body topMargin=0>
<script   language=javascript>

  </script>
<%
dim mi
dim gqfla
dim meth
dim chb()
meth=request.QueryString("meth")
if (meth="del") and request.form("checkb")<>"" then chb=split(request.form("checkb"),",") for each box in chb
response.write "chb的值依次是："&box
cn.execute  "delete * from gqinfo where  infoid="&box
next

end if
mi=request.QueryString("id")
sq="select * from gqinfo where infomaster='"&mi&"' order by date desc,infoid desc"
set rd=cn.execute(sq)response.write"<form name='form1' method=post onsubmit='return check()' action=masgq.asp?meth=del&id=mi><table width='100%'>"
response.write"<tr><td width='2%' height=6></td><td width='19%'><div align='center'>发布日期</div></td><td width='15%'><div align='center'>信息类型</div></td><td width='48%'><div align='center'>信息标题</div></td><td width='16%'><div align='center'>是否删除</div></td></tr>"
response.write"<TR><TD background=images/line.gif colSpan=5  height=2></TD></TR>" do while not rd.eof
if rd("gqflag")=true then
  gqfla="出售"
  else gqfla="求购"
end ifresponse.write"<tr><TD>·</TD><TD>"&rd("date")&"</td><td><div align='center'>["&gqfla&"]</div></td>"
response.write"<td><A href='gqdetail.asp?id="&rd("infoid")&"' target=_blank>"&rd("infotitle")&"</A></TD><td><div align='center'><input type='checkbox' name='checkb' value="&rd("infoid")&"></div></td></TR>"
response.write"<TR><TD background=images/point.gif colSpan=5  height=2></TD></TR>"

rd.movenext
loop
response.write"<tr><td colSpan=5><div align='center'><input type='submit' name='Submit' value='提交'></div></td></tr>"
response.write"</form></table>"
%>
</body>
</html>
针对删除不了的问题，我接着在ASP代码开头的if部分做了更改：------------》<%
dim mi
dim gqfla
dim meth
dim chb()
dim i
dim uc
meth=request.QueryString("meth")
if (meth="del") and request.form("checkb")<>"" then
  response.write(request.form("checkb"))
chb=split(request.form("checkb"),",")
uc=ubound(chb)
for i=0 to uc
response.write "chb的值依次是："
cn.execute  "delete * from gqinfo where  infoid="&CInt(chb(i))------我的access数据库里infoid字段是自动编号型。
next

end if----------------------------
发现不论我选中的是一个还是两个复选框， response.write "chb的值依次是："这行代码只执行一次，而  response.write(request.form("checkb"))却打得出选中的两复选框的值！如12,13   真是奇怪了
<%
dim mi
dim gqfla
dim meth
dim chb()
dim i
dim uc,checkb,sql,rs
meth=request.QueryString("meth")
if (meth="del") and request.form("checkb")<>"" then
  checkb=request.form("checkb"))
  set rs=server.createobject("adodb.recordset")
  sql="select infoid from gqinfo where infoid in ("&checkb&")"
  rs.open sql,cn,1,1
  if rs.recordcount<>0 then
    while not rs.eof
      response.write "chb的值依次是："&rs("infoid")&"<br>"
      rs.movenext
    wend
  end if
  rs.close
  set rs=nothing
  sql="delete * from gqinfo where infoid in ("&checkb&")"
  cn.execute sql
end if
用for i=0 to UBound(x)
  试试看
删除成功了，以下是最新的代码-------》但存在问题：
1、选中某个复选框后在确认删除提示选取消后，再点提交按钮，就不会出现确认删除的提示框了，而是直接给删除掉！
2、未选中复选框后点提交，第一次有提示"请选择要删除的信息行"，但再点提交没有该提示，第三次点提交才有该提示。接着随便选一个复选框后点提交，就不会出现"你真的要删除吗?"的提示，而是直接给删除掉！！
-------------------------------------------------------敬候高手~~~~~~~~~~~~~~~~~
<%
dim mi
dim gqfla
dim meth
dim i
dim checkb
meth=request.QueryString("meth")
if (meth="del") and request.form("checkb")<>"" then checkb=request.form("checkb")

sql="delete * from gqinfo where  infoid in ("&checkb&")"
cn.execute  sql

end if
mi=request.QueryString("id")
sq="select * from gqinfo where infomaster='"&mi&"' order by date desc,infoid desc"
set rd=cn.execute(sq)response.write"<form name='form1' method=post onsubmit='return check()' action=masgq.asp?meth=del&id="&mi&"><table width='100%'>"
response.write"<tr><td width='2%' height=6></td><td width='19%'><div align='center'>发布日期</div></td><td width='15%'><div align='center'>信息类型</div></td><td width='48%'><div align='center'>信息标题</div></td><td width='16%'><div align='center'>是否删除</div></td></tr>"
response.write"<TR><TD background=images/line.gif colSpan=5  height=2></TD></TR>" do while not rd.eof
if rd("gqflag")=true then
  gqfla="出售"
  else gqfla="求购"
end ifresponse.write"<tr><TD>·</TD><TD>"&rd("date")&"</td><td><div align='center'>["&gqfla&"]</div></td>"
response.write"<td><A href='gqdetail.asp?id="&rd("infoid")&"' target=_blank>"&rd("infotitle")&"</A></TD><td><div align='center'><input type='checkbox' name='checkb' value="&rd("infoid")&"></div></td></TR>"
response.write"<TR><TD background=images/point.gif colSpan=5  height=2></TD></TR>"

rd.movenext
loop
response.write"<tr><td colSpan=5><div align='center'><input type='submit' name='Submit' value='提交'></div></td></tr>"
response.write"</form></table>"
%>
加上这个script<script type="text/javascript">
function check(){
  return confirm("真的要删除吗?");
}
</script>
ID = Replace(request.form("checkb")," ","")
cn.execute("delete * from gqinfo where  infoid  IN (" & ID & ")")
我在ASP代码前加了如下代码：问题依旧，还是上面那两个问题。错在哪呢？？？？？？？？？？
<body topMargin=0>
<script   language=javascript>

  </script>
if (check) {
  if(return confirm("你真的要删除吗?"))  {return true;}
  else{return false;}
  }改为if(check){
  return confirm("你真的要删除吗?");
}
这个:mi=request.QueryString("id")
下面又有:
response.write"<form name='form1' method=post
action=masgq.asp?meth=del&id=mi><table width='100%'>"
上面个mi 是个变量,下面个mi是个字符串,请问这两个mi是不同还是相同呢?
<%
dim mi
dim gqfla
dim meth
dim i
dim checkb
meth=request.QueryString("meth")checkb=request.form("checkb")if (meth="del") and checkb<>"" then sql="delete * from gqinfo where  infoid in ("&checkb&")"
cn.execute  sql

end ifmi=request.QueryString("id")sq="select * from gqinfo where infomaster='"&mi&"' order by date desc,infoid desc"
set rd=cn.execute(sq)response.write"<form name='form1' method=post action=masgq.asp?meth=del&id="&mi&"><table width='100%'>"
response.write"<tr><td width='2%' height=6></td><td width='19%'><div align='center'>发布日期</div></td><td width='15%'><div align='center'>信息类型</div></td><td width='48%'><div align='center'>信息标题</div></td><td width='16%'><div align='center'>是否删除</div></td></tr>"
response.write"<TR><TD background=images/line.gif colSpan=5  height=2></TD></TR>"do while not rd.eof
if rd("gqflag")=true then
  gqfla="出售"
  else gqfla="求购"
end ifresponse.write"<tr><TD>·</TD><TD>"&rd("date")&"</td><td><div align='center'>["&gqfla&"]</div></td>"
response.write"<td><A href='gqdetail.asp?id="&rd("infoid")&"' target=_blank>"&rd("infotitle")&"</A></TD><td><div align='center'><input type='checkbox' name='checkb' value="&rd("infoid")&"></div></td></TR>"
response.write"<TR><TD background=images/point.gif colSpan=5  height=2></TD></TR>"rd.movenext
loop
response.write"<tr><td colSpan=5><div align='center'><input type='button' name='Submit' value='提交' onClick='return check()'></div></td></tr>"
response.write"</form></table>"
%>我又修改了一下，你试试看。
注意：
（1）在接收前页传来的参数时，不要对同一个参数多次用Request.form()函数，因为第一次用的时候可能获取不到参数的真实值。
例：test.asp?tt=1234
1:  if Request.form("tt") <> "" Then         '这里的Request.form("tt")将取得值“1234”
2:    Response.write Request.form("tt")      '这里的Request.form("tt")将可能将取不得真实值，而得到的是空字符串。
3:  end if（2）对于前页传来的复选框的值，有多种方法进行引用：
1:　　直接使用Request.form，将取得以“,”逗号分隔的值
例：　如果前页有三个名称为“tt”的复选框被选中，这三个复选框的值分别为3,5,6的话，Request.form("tt") 获取到的值将是“3,5,6”
2:    可以用for each 来获取
例：　for each box in tt
         response.write tt & "<br>"
       next
简单一点点的：<a onclick="javascript:return confirm("确认删除么?");"  href="Url.asp">hrelLink</a>
if (meth="del") and request.form("checkb")<>"" then
response.write   "<script   language=javascript>   if(!confirm('你确定要删除吗?'))   "&"     history.back(0)  </script>"   ]]
=====这些是客户端的东西，最好还是写到客户端吧
不行啊！以下是masgq.asp页面最后的代码，action后提交给本页进行处理，打开数据库部分代码未附上。存在的问题是：1、选中某个复选框后在确认删除提示选取消后，再点提交按钮，就不会出现确认删除的提示框了，而是直接给删除掉！
2、未选中复选框后点提交，第一次有提示"请选择要删除的信息行"，但再点提交没有该提示，第三次点提交才有该提示。接着随便选一个复选框后点提交，就不会出现"你真的要删除吗?"的提示，而是直接给删除掉！！--------------------------------------请看清我的问题再回复。敬候高手！！！！！！！！
<body topMargin=0>
<script   language=javascript>

  </script>
<%
dim mi
dim gqfla
dim methdim i
dim checkb
meth=request.QueryString("meth")
if (meth="del") and request.form("checkb")<>"" then
checkb=request.form("checkb")
  sql="delete * from gqinfo where  infoid in ("&checkb&")"
cn.execute  sql

end if
mi=request.QueryString("id")
sq="select * from gqinfo where infomaster='"&mi&"' order by date desc,infoid desc"
set rd=cn.execute(sq)response.write"<form name='form1' method=post onsubmit='return check()' action=masgq.asp?meth=del&id="&mi&"><table width='100%'>"
response.write"<tr><td width='2%' height=6></td><td width='19%'><div align='center'>发布日期</div></td><td width='15%'><div align='center'>信息类型</div></td><td width='48%'><div align='center'>信息标题</div></td><td width='16%'><div align='center'>是否删除</div></td></tr>"
response.write"<TR><TD background=images/line.gif colSpan=5  height=2></TD></TR>" do while not rd.eof
if rd("gqflag")=true then
  gqfla="出售"
  else gqfla="求购"
end ifresponse.write"<tr><TD>·</TD><TD>"&rd("date")&"</td><td><div align='center'>["&gqfla&"]</div></td>"
response.write"<td><A href='gqdetail.asp?id="&rd("infoid")&"' target=_blank>"&rd("infotitle")&"</A></TD><td><div align='center'><input type='checkbox' name='checkb' value="&rd("infoid")&"></div></td></TR>"
response.write"<TR><TD background=images/point.gif colSpan=5  height=2></TD></TR>"

rd.movenext
loop
response.write"<tr><td colSpan=5><div align='center'><input type='submit' name='Submit' value='提交'></div></td></tr>"
response.write"</form></table>"%>

</body>
</html>
复选框是一个数据集，你在接收时要当成数组来读取才行，否则的话，无法获取其值的。----------------------------------------------------------------------
为感谢各位帮忙，我常上这些兼职项目网站赚点外块的，呵呵。大家一起分享一下。
http://www.sp339.com     小项目论坛
你说的。。JS我不会处理。。不过我的想法是：可以提交后判断是否有选中。。先用split分开。。判断是否为数组（就是是否是多选）如果不是数组再request后看值是否为空。。为空就表示没有选中。。
to xb_juan(有无之道)：如果提交后再判断是否有选中及选值的话，会页面跳转后没有内容时跳出个提示框提示没选中或是否删除，界面效果不好所以我才改成目前这样的。to suloeveryday()：我是当成数组来读的啊？删除问题已经解决了，数组的值也取得到。请看清我要问的问题，目前是在JS部分。谢谢！敬候高手！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
楼主。。为何不试试改成VBscript呢。。一样的可用dom，一样的效果。相信你也熟习vbscript。。怎么说那些个涵数都知道。。加上去用就好了。。有时候JS没有这些个涵数。。好麻烦。。不知是否能行得通。。呵呵。。不过我觉得应该可以行得通。。只是改成VBscript..其它的没有变。。
看了,楼主的根本原因就在于基础没有打好,
最基本的asp页面流程不清楚,
客户端和服务器端代码组织的比较凌乱,
而且,像这种批量删除的例子很多很多,
你耐下心来找个看看人家是怎么写的,
找个免费的论坛源代码,读读代码,
想想设计.程序不是用代码简单的堆切成的.
我的基础的确没打好学ASP也只是看了一本《快学易用ASP》就开始做网站，JS根本没学过，目前只想知道我的JS代码错在哪里。要不也不会把帖子转到JS这里来。请指教我的JS代码错在哪里行吗？
将check()改成
function check()
{
  if(!confirm('确认删除吗？')) return false;
}另外你在check()里面存在check变量
请不要这样子写!!!!
to rjzou2006(一个小泡)：check()的功能不单是提示确认删除的，还有检查有没选择复选框并且提示，所以我不能照你说的改啊。还有谁有办法吗？知道原因吗？
问题解决了！谢谢rjzou2006(一个小泡)，我把check变量改了个名，竟然好了！
谢谢！我会记住这次教训，养成编程的好习惯的：）