asp全选框的问题！ - ASP技术论坛

得分:0

这是我的代码，请帮我分析下，谢谢哈。

<%
gyh=request.Form("gyh2")&request.QueryString("gyh")

Set zcrs=server.Createobject("ADODB.Recordset")
set zcrs.activeconnection=conn
zcrs.Cursortype=1
zcrs.LockType = 3
zcrs.open"SELECT * FROM info where sh=1 order by time desc"

%>
<div class=topinfo>
<div class=left><IMG src="images/home.gif"><SPAN style="FONT-WEIGHT: bold"><A href="http://nc.zzia. target="_blank">郑州航院网络中心</A></SPAN> - <SPAN style="FONT-WEIGHT: bold"><A href="index.asp">上网用户注册系统</A></SPAN> - 用户安装审核</div>
</div>

<P class=partition></P>
<P class=partition></P>

<div class=grid>
<div class=thall>
<div class=left>用户安装审核</div>
<div class=right><IMG id=btn_register src="images/folder_open.gif"></div>
</div>
<div id=register>

<table width="99%" cellspacing="0" class="inner" id="useronline" name="outtable">
  <form id="form1" name="form1" method="post" action="">

    <tr class="category forumtd" style="text-align:center">
      <td  width="62" align="left"><div align="left">

         <div align="left">
           <input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
           选中

         </div></td>

      <td align="left"  width="126"><div align="center"><a href="shazip.asp">帐号</a></div></td>
      <td width="125"><div align="center">姓名</div></td>
      <td width="139">IP地址</td>
      <td width="196">接入地址</td>
      <td width="160">接入时间</td>
      <td width="152">选择</td>
      </tr>
<%
if zcrs.eof then
response.Write"您查询的内容不存在！"
response.end
else
response.Write("   <font color='#000000'>共查到 </font>"&Cstr(zcrs.RecordCount)&"<font color='#000000'> 条记录</font>")
zcrs.Pagesize=30
Page=CLng(request.QueryString("page"))
if Page<1 then page=1 end if
if Page>zcrs.Pagecount then page=zcrs.pagecount end if
zcrs.AbsolutePage=page
for i=1 to zcrs.pagesize
if zcrs.eof then exit for
%>
    <tr class="forumtd" style="text-align:center">
      <td align="left" class="small"><div align="left">


          <div align="left">
            <input name="checkbox" type="checkbox" value="xh"  >


              </div>
      <td align="left" class="small"><div align="center"><%=zcrs.fields("zh")%></div></td>
      <td><div align="center"><%=zcrs.fields("name")%></div></td>
      <td class="small"><%=zcrs.fields("ip")%></td>
      <%
      sh=zcrs.fields("sh")
      if sh=0 then zt="<font color=red>未交费</font>" end if
      if sh=1 then zt="<font color=green>未安装</font>" end if
      if sh=2 then zt="已安装" end if
      %>
      <td><%=zcrs.fields("gyh")%>号楼<%=zcrs.fields("fjh")%>房间<%=zcrs.fields("xxd")%>点</td>
      <td><%=zcrs.fields("time")%></td>
      <td width="152"><a href="anz.asp?xh=<%=zcrs.fields("xh")%>">通过安装</a><a href="anz.asp?xh=<%=zcrs.fields("xh")%>"></a></td>
      </tr>

    </form>
    <script type="text/javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll"&&e.disabled!=true)
e.checked = form.chkAll.checked;
}
}
</script>

<%
zcrs.movenext()
next
end if
%>
</table>
</td>
</tr>

</tbody>
</table>
<div align="center"></div>
    <div align="center">
      <%
if page=1 then
response.Write("")
else
response.Write("<a href=shaz.asp?gyh="&gyh&"&page=1>第一页</a>")
end if
if page=1 then
response.Write("")
else
response.Write("<a href=shaz.asp?gyh="&gyh&"&page="&page-1&"> 上一页 </a>")
end if
if page=zcrs.PageCount then
response.Write("")
else
response.Write("<a href=shaz.asp?gyh="&gyh&"&page="&page+1&">下一页 </a>")
end if
if page=zcrs.PageCount then
response.Write("")
else
response.Write("<a href=shaz.asp?gyh="&gyh&"&page="& zcrs.PageCount &">最后一页</a>")
end if
%>
      <br />
    </div>

</div>

</div>