求各位老大帮帮忙看看

<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
if request.QueryString("action")="del" and request("selectdel1")<>"" then
conn.execute "delete from shop_news where newsid in ("&request("selectdel")&")"
response.Redirect  "editnews.asp"
end ifif request.QueryString("action")="del" and request("selectdel2")<>"" then
'response.Write("3333333"&request("selectdel2")&"<br>")
sql="update shop_news set roll=1 where newsid in ("&request("selectdel2")&")"
conn.execute sql
sql1="update shop_news set roll=0 where newsid not in ("&request("selectdel2")&")"
conn.execute sql1
response.Redirect  "editnews.asp"
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
<style>
td{font-size:9pt;line-height:120%;color:#353535} 
body{font-size:9pt;line-height:120%} a:link          { color: #000000; text-decoration: none }
a:visited       { color: #000000; text-decoration: none }
a:active        { color: #000000; text-decoration: none }
a:hover         { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head><body bgcolor="#D9E6FF" onLoad="amd();">
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td  rowspan="2"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
              <tr> 
                <td class="12v" > 
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
                    <tr> 
                      <td> 
                        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="20"> 
                              <div align="center"><font color="#FF0000">行业新闻修改</font></div>
                            </td>
                          </tr>
                          <tr> 
                            <td height="140" valign="top"><br>
                              <%'开始分页
Const MaxPerPage=20 
    dim totalPut   
    dim CurrentPage
    dim TotalPages
    dim j
    dim sql
     if Not isempty(request("page")) then
       currentPage=Cint(request("page"))
    else
       currentPage=1
    end if 
 set rs=server.createobject("adodb.recordset")
rs.open "select newsid,newsname,addname,adddate,roll from shop_news where newsid<>88 order by adddate desc",conn,1,1
  
if err.number<>0 then
response.write "数据库中无数据"
end if

   if rs.eof And rs.bof then
        Response.Write "<p align='center' class='contents'> 您还没有添加新闻！</p>"
    else
   totalPut=rs.recordcount       if currentpage<1 then
           currentpage=1
       end if       if (currentpage-1)*MaxPerPage>totalput then
    if (totalPut mod MaxPerPage)=0 then
      currentpage= totalPut \ MaxPerPage
    else
       currentpage= totalPut \ MaxPerPage + 1
    end if
       end if        if currentPage=1 then
             showContent
             showpage totalput,MaxPerPage,"editnews.asp"
        else
           if (currentPage-1)*MaxPerPage<totalPut then
             rs.move  (currentPage-1)*MaxPerPage
             dim book
             book=rs.book
             showContent
              showpage totalput,MaxPerPage,"editnews.asp"
         else
         currentPage=1
            showContent
            showpage totalput,MaxPerPage,"editnews.asp"
       end if
    end if
        end if    sub showContent
        dim i
    i=0 %>
                              <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
                                <form name="form1" method="post" action="editnews.asp?action=del">
                                  <tr bgcolor="#E8F1FF"> 
                                    <td height="22"> 
                                      <div align="center">主题</div>                                    </td>
                                    <td height="22"> 
                                      <div align="center">发布人</div>                                    </td>
                                    <td height="22"> 
                                      <div align="center">发布时间</div>                                    </td>
                                    <td height="22"> 
                                      <div align="center">选 择</div>                                    </td>
                                    <td>
<div align="center">是否为滚动</div> </td>
                                  </tr>
                                  <%do while not rs.eof%>
                                  <tr> 
                                    <td bgcolor="#E8F1FF" style="PADDING-LEFT: 6px"><a href=newsedit.asp?id=<%=rs("newsid")%>><%=trim(rs("newsname"))%></a></td>
                                    <td bgcolor="#E8F1FF"> 
                                      <div align="center"><%=trim(rs("addname"))%></div>                                    </td>
                                    <td bgcolor="#E8F1FF"> 
                                      <div align="center"><%=rs("adddate")%></div>                                    </td>
                                    <td bgcolor="#E8F1FF"> 
                                      <div align="center"> 
                                        <input name="selectdel" type="checkbox" id="selectdel" value=<%=rs("newsid")%>>
                                      </div>
  </td>
                                    <td bgcolor="#E8F1FF"><div align="center">
<input name="selectdel2" type="checkbox" id="selectdel2" value=<%=rs("newsid")%> onClick="choosepro(this)" <%if rs("roll")=1 then%>checked="true"<%end if%>>
                                    </div></td>
                                  </tr>
                                  <%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
  loop
  rs.close
  set rs=nothing%>
                                  <tr> 
                                    <td height="30" colspan="5" bgcolor="#E8F1FF"> 
                                      <div align="center"> 
                                        <input type="submit" name="Submit" value="删除所选">
                                        全选 
  

解决方案 »

  1.   

    <input type="checkbox" name="checkbox" value="Check All" onClick="selectAll()">
                                            <input type="submit" name="Submit2" value="设置滚动新闻" onClick="return check();">
    <input name="roll" type="hidden" value="">
    <input name="allt" type="hidden" value="<%=request("cid")%>">
                                          </div>                                    </td>
                                      </tr>
                                    </form>
       </table>
                                  <%  
    End Sub   
      
    Function showpage(totalnumber,maxperpage,filename)  
       Dim n
    If totalnumber Mod maxperpage=0 Then  
    n= totalnumber \ maxperpage  
    Else
    n= totalnumber \ maxperpage+1  
    End If

    Response.Write "<form method=Post action="&filename&">"  
    Response.Write "<p align='center' class='contents'> " 
    If CurrentPage<2 Then  
    Response.Write "<font class='contents'>首页 上一页</font> "  
    Else  
    Response.Write "<a href=""javascript:location.href='"&filename&"?page=1&roll='+document.form1.roll.value+'&cid='+document.form1.allt.value;"" class='contents'>首页</a> "  
    Response.Write "<a href=""javascript:location.href='"&filename&"?page="&(CurrentPage-1)&"&roll='+document.form1.roll.value+'&cid='+document.form1.allt.value;"" class='contents'>上一页</a> "  
    End If

    If n-currentpage<1 Then  
    Response.Write "<font class='contents'>下一页 尾页</font>"  
    Else  
    'Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&" class='contents'>"  
    Response.Write "<a href=""javascript:location.href='"&filename&"?page="&(CurrentPage+1)&"&roll='+document.form1.roll.value+'&cid='+document.form1.allt.value;"" class='contents'>"  
    Response.Write "下一页</a> <a href=""javascript:location.href='"&filename&"?page="&n&"&roll='+document.form1.roll.value+'&cid='+document.form1.allt.value;"" class='contents'>尾页</a>"  
    End If

     
    Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
    Response.Write "<font class='contents'> 共有"&totalnumber&"条新闻 " 
    Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"  
    Response.Write "&nbsp;<input type='submit'  class='contents' value='GO' name='cndok'></form>"  
    End Function  
    %>
                                </td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                      </table>
                    </td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
    <br>
    <!--#include file="copyright.asp"-->
    </body>
    </html>
    <script language=javascript>
    //function mm()
    //{
    //   var a = document.getElementsByTagName("input");
    //   if(a[0].checked==true){
    //   for (var i=0; i<a.length; i++)
    //      if (a[i].type == "checkbox") a[i].checked = false;
    //   }
    //   else
    //   {
    //   for (var i=0; i<a.length; i++)
    //      if (a[i].type == "checkbox") a[i].checked = true;
    //   }
    //}
    // 全选
    function  selectAll()  
    {   
        var obj = document.form1;  
    var state = obj.checkbox.checked; 
    for(var  i  =  0;i<obj.elements.length;i++)  
    if(obj.elements[i].type  ==  "checkbox" && obj.elements[i].name  == "selectdel" && !obj.elements[i].disabled)  
    obj.elements[i].checked = state;
    }
    <%
    dim content
    if request("roll")="" then
    content=0
    end if
    if request("roll")<>"" then
    content=request("roll")
    end if
    %>
    //alert("查看ｒｅｑｕｅｓｔ"+"<%=request("roll")%>");
    var cont=<%=content%>;
    alert("ttttt========"+cont);
    //alert("计数器============"+cont);
    var tmpid;
    function choosepro(aa)
    {
        tmpid="";
    var checkCount = 3;
    var iTemp =cont;
    alert("abcabsadsd="+iTemp);
    var len = document.getElementsByName("selectdel2");
    var arr; //= new Array(3);
    // if(iTemp>3)
    // {
    // alert("您选的滚动新闻大于"+checkCount+"条");
    // aa.checked=false;
    // return;
    // }
    if(len.length)
    {
       for(var i=0;i<len.length;i++)
       {
     if(len[i].checked)
     {
    alert("进入");
    // if(document.form1.elements[i].type  ==  "checkbox" && document.form1.elements[i].name  == "selectdel2" && !document.form1.elements[i].checked=="ture")
    // {
    // alert("进入22222222222");
    // }
     document.getElementsByName("selectdel2").value=len[i].value;
     arr=document.getElementsByName("selectdel2").value;
     iTemp++;
     alert("ajjjjjjjjjjjjjj======="+iTemp);
     if(checkCount<iTemp)
     {
     alert("ttttttttttt您选的滚动新闻大于"+checkCount+"条");
     aa.checked=false;
     return;
     }
     document.form1.allt.value=arr;
     alert("aaaaaaaaaaaaaaaaa11="+document.form1.allt.value);
     tmpid+=arr+",";  document.form1.allt.value=tmpid;
     alert("bbbbbbbbbbbbb="+document.form1.allt.value);
     alert("已经选中"+iTemp+"条")
    } //alert("tmpid=========="+cont);
        }
      }document.form1.roll.value=iTemp;//alert("aaaaaaaaaaaaaaaaaaaaaa==================="+document.form1.roll.value);
    //cont=iTemp;
    //alert(cont);
    //document.form1.all.value=document.form1.selectdel2.value;
    //alert("隐藏与的值"+document.form1.roll.value);  
    }function check() 
    { 
    var selected=<%=content%> ; 
    var selectdel2=document.getElementsByName("selectdel2"); 
    if(selected<3)
    {
    for(i=0;i<selectdel2.length;i++) 
    {
    if (document.form1.selectdel2[i].checked) 
    { 
    selected++;
    } 
    } 
    if (selected==0) 
    {
     alert("您还没有选择要滚动的新闻"); 
    return false;
    }
    if (selected<3) 
    {
     alert("请选择要滚动的新闻不能少于3条"); 
    return false;
    }
    if (selected>3) 
    {
    alert(selected);
     alert("请选择要滚动的新闻不能大于3条"); 
    return false;
    }
    document.form1.submit;
    }
    }
    function amd()
    {
    <%
    dim n
    if request("check")<>"" then 
    n =request("check")
    %>
    cont=<%=n%>
    alert("aaaaaaaaaaaaaaa====="+cont);
    <%
    end if
    %>
    // var checkCount = 3;
    // var iTemp =cont;
    // alert("iiiiiiiiiiiiiiiiiii=========="+iTemp);
    // var len = document.getElementsByName("selectdel2");
    // if(am=3)
    // {
    // alert("111111111=========="+am);
    // document.form1.roll.value=am;
    // iTemp=am;
    // alert("11222222222222222=========="+iTemp);
    // return;
    // }
    // alert(11111111111);
    // if(iTemp<3)
    // {
    // if(len.length)
    // {
    //    for(var i=0;i<len.length;i++)
    //    {
    //  if(len[i].checked)
    //  {
    //  iTemp++;
    //
    //  if(checkCount<iTemp)
    //  {
    //  alert("您选的滚动新闻大于"+checkCount+"条");
    //  document.form1.selectdel2.checked=false;
    //  return;
    //  }
    ////  alert("已经选中"+iTemp+"条")
    //  }
    //    }
    // }
    // }
    document.form1.roll.value=cont;
    alert("3333333333===="+document.form1.roll.value);
    }
    </script>这是一个设置 滚动的程序  数据库里只能有3条信息是滚动的  在页面加载的时候运行amd()  在后台连接这个页面的时候 在地址传了一个参数check  只在页面加载的时候有这个参数 并把这个参数赋值给roll这个隐藏域 这个参数是数据库里有几条 信息  现在有3条信息  不管怎么分页  都会提示我  选中的 已经大于3条  不如许添加  但是 当我把 已经是滚动的复选框的钩点，没他也提示这个！我想有没有 当我选中我  已经选中的复选框 时候 JS 对我的计数器做减减的操作那？ 还有比如我第一页选中了1个  第二页选中了1个  第三页选中了1个 我用一个隐藏域allt来存这个参数   但是怎么  能把这几个参数 以20,19,30 表示那   现在只能在每个选中的ID后面都在,  就会成了20,19,30,       请各老大帮我看看看！ 万分感激！