记录打勾得有关问题

记录打勾得问题
我想在一个列表的前面加一个checkbox 然后点击一个选择然后点击一个按钮比如修改等怎么通过打勾然后点击按钮把所选的纪律的id传过去谢谢大家

[解决办法]
<input type= "checkbox " name= "checkbox " value= "数据ID值（或不重复的唯一代表值 ">
例如：
<input type= "checkbox " name= "checkbox " value= " <%=bm( "id ")%> ">
放置在form的合适位置中
接收提交数据
id=request.form( "checkbox ")
if id= " " then
response.write "没选中数据呀呀呀！ "
else
sql= "select id from userinfo where id in ( "&id& ") "
set rs=server.createobject( "adodb.recordset ")
rs.open sql,conn,1,3
if rs.recordcount <> 0 then
response.write "咱们都被选中了，来排个队先，我开始数了... <br> "
while not rs.eof
id=rs( "id ")
response.write "我是序号为： "&id& "的，该下一位了！ "
response.write " <br> "
wend
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
[解决办法]
严重问题，少了个rs.movenext，现在就加上。

<input type= "checkbox " name= "checkbox " value= "数据ID值（或不重复的唯一代表值 ">
例如：
<input type= "checkbox " name= "checkbox " value= " <%=bm( "id ")%> ">
放置在form的合适位置中
接收提交数据
id=request.form( "checkbox ")
if id= " " then
response.write "没选中数据呀呀呀！ "
else
sql= "select id from userinfo where id in ( "&id& ") "
set rs=server.createobject( "adodb.recordset ")
rs.open sql,conn,1,3
if rs.recordcount <> 0 then
response.write "咱们都被选中了，来排个队先，我开始数了... <br> "
while not rs.eof
id=rs( "id ")
response.write "我是序号为： "&id& "的，该下一位哥们了！ "
response.write " <br> "
rs.movenext
wend
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
[解决办法]
把你需要提交的控件统一放到一个表单里面，提交就行，默认的form都不要的。
[解决办法]
仔细参考这里面的代码,有符合你的要求
<%Response.Buffer=true%>
<html>
<head>
<title> </title>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 " />
<link rel= "stylesheet " href= "admin.css " type= "text/css ">


</head>
<script language= "javascript ">
//全选或全取消
function selectall(str)
{
var aa = document.getElementsByName(str);
for (var i=0; i <aa.length; i++)
aa[i].checked = true;
}
function selectfan(str)
{
var aa = document.getElementsByName(str);
for (var i=0; i <aa.length; i++)
if(aa[i].checked)
aa[i].checked=false
else
aa[i].checked=true;
}
function del_equip()
{
if(confirm( '确定删除选定设备吗!? '))
{document.xoYuStudioH.action= "equipment_list.asp ";
document.xoYuStudioH.submit();
return true;
}
return false;

}
function edit_equip()
{
document.xoYuStudioH.action= "equipment_edit.asp ";
document.xoYuStudioH.submit();
return true;
}
</script>
<%
dim tp
tp=trim(request( "tp "))
if tp= "1 " then
dim equipment_no
equipment_no=trim(request( "equipment_no "))
conn.execute( "delete from equipment_info where academy_no= ' "&request( "equipment_no ")& " ' ")
conn.execute( "delete from equipment_state where equipment_no= ' "&request( "equipment_no ")& " ' ")
conn.execute( "delete from equipment_borrow where equipment_no= ' "&request( "equipment_no ")& " ' " )
conn.execute( "delete from equipment_check where equipment_no= ' "&request( "equipment_no ")& " ' " )
conn.execute( "delete from equipment_repair where equipment_no= ' "&request( "equipment_no ")& " ' " )
conn.execute( "delete from equipment_tell_repair where equipment_no= ' "&request( "equipment_no ")& " ' " )
conn.execute( "delete from equipment_maintain where equipment_no= ' "&request( "equipment_no ")& " ' " )
else
set deleteid=request( "equipment ")
acount=deleteid.count
for i=1 to acount
conn.execute( "delete from equipment_info where academy_no = ' "&deleteid(i)& " ' ")
conn.execute( "delete from equipment_state where equipment_no in ( ' "&deleteid(i)& " ') ")
conn.execute( "delete from equipment_borrow where equipment_no in ( ' "&deleteid(i)& " ') ")
conn.execute( "delete from equipment_check where equipment_no in ( ' "&deleteid(i)& " ') ")
conn.execute( "delete from equipment_repair where equipment_no in ( ' "&deleteid(i)& " ') ")
conn.execute( "delete from equipment_maintain where equipment_no in ( ' "&deleteid(i)& " ') ")
conn.execute( "delete from equipment_tell_repair where equipment_no in ( ' "&deleteid(i)& " ') ")
next
end if
%>
<body topmargin= "1 " leftmargin= "1 ">
<table width= "160% " border= "0 " cellspacing= "1 " cellpadding= "3 " align=center class= "tableBorder ">
<tr>
<th height= "25 " colspan= "16 " scope= "col " align= "left "> 设备信息 </th>
</tr>
<%
set rs=server.CreateObject( "ADODB.RecordSet ")
dim lab_no
lab_no=trim(request( "lab_no "))
dim manu_name
manu_name=trim(request( "manu_name "))
sql= "select * from equipment_info order by academy_no "
if lab_no <> " " then sql= "select * from equipment_info where incept_lab= ' "&lab_no& " ' order by academy_no "
if manu_name <> " " then sql= "select * from equipment_info where manufacturer= ' "&manu_name& " ' order by academy_no "
if not isempty(request( "page ")) then
currentPage=cint(request( "page "))
else
currentPage=1
end if
MaxPerPage=20 '###每页显示条数
rs.open sql,conn,1,1
if not rs.eof then
totalPut=rs.recordcount
rs.move (currentPage-1)*MaxPerPage

rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数

%>

<form action= " " method=post name= "xoYuStudioH ">
<tr>
<td width= "50 " align= "center " class=forumHeaderBackgroundAlternate> <a href= "javascript:xoYuStudio() "> <font width= "30 " color= "#FFFFFF "> 选择 </font> </a> </td>
<td width= "64 " align= "center " class=forumHeaderBackgroundAlternate> 学院编号 </td>
<td width= "63 " align= "center " class=forumHeaderBackgroundAlternate> 学校编号 </td>
<td width= "73 " align= "center " class=forumHeaderBackgroundAlternate> 生产编号 </td>
<td width= "67 " align= "center " class=forumHeaderBackgroundAlternate> 分类号 </td>
<td width= "80 " align= "center " class=forumHeaderBackgroundAlternate> 名称 </td>
<td width= "69 " align= "center " class=forumHeaderBackgroundAlternate> 型号 </td>
<td width= "72 " align= "center " nowrap class=forumHeaderBackgroundAlternate> 规格 </td>
<td width= "49 " align= "center " nowrap class=forumHeaderBackgroundAlternate> 单价 </td>
<td width= "95 " align= "center " nowrap class=forumHeaderBackgroundAlternate> 领用单位 </td>
<td width= "50 " align= "center " nowrap class=forumHeaderBackgroundAlternate> 领用人 </td>
<td width= "68 " align= "center " nowrap class=forumHeaderBackgroundAlternate> 购买日期 </td>
<td width= "68 " align= "center " nowrap class=forumHeaderBackgroundAlternate> 分配日期 </td>
<td width= "74 " align= "center " nowrap class=forumHeaderBackgroundAlternate> 接收实验室 </td>
<td align= "center " nowrap class=forumHeaderBackgroundAlternate> 生产商 </td>
<td width= "106 " align= "center " nowrap class=forumHeaderBackgroundAlternate> 单项操作 </td>
</tr>
<%
i=0
do while not rs.EOF

%>
<tr bgcolor= "#FFFFFF ">
<td width= "50 " class=forumrow align= "center "> <input type= "checkbox " name= "equipment " value= " <%=rs( "academy_no ")%> "> </td>
<td width= "64 " class=forumrow align= "center "> <%= rs( "academy_no ")%> </td>
<td width= "63 " align= "center " class=forumrow> <%=rs( "university_no ")%> </td>
<td align= "center " class=forumrow> <%=rs( "produce_no ")%> </td>
<td align= "center " class=forumrow> <%=rs( "class_no ")%> </td>
<td align= "center " class=forumrow> <%=rs( "name ")%> </td>
<td align= "center " class=forumrow> <%=rs( "model ")%> </td>
<td width= "72 " nowrap align= "center " class=forumrow> <%=rs( "spec ")%> </td>
<td width= "49 " nowrap align= "center " class=forumrow> <%=rs( "unit_price ")%> </td>
<td width= "95 " nowrap align= "center " class=forumrow> <%=rs( "draw_unit ")%> </td>

<td width= "50 " nowrap align= "center " class=forumrow> <%=rs( "drawer ")%> </td>
<td align= "center " nowrap class=forumrow> <%=rs( "purchase_date ")%> </td>
<td align= "center " nowrap class=forumrow> <%=rs( "assign_date ")%> </td>
<td align= "center " nowrap class=forumrow> <%=rs( "incept_lab ")%> </td>
<td align= "center " nowrap class=forumrow> <%=rs( "manufacturer ")%> </td>
<td align= "center " nowrap class=forumrow> <a href= 'equipment_list.asp?tp=1&equipment_no= <%=rs( "academy_no ")%> ' onClick= "{if(confirm( '确定删除吗? ')){this.document.xoYuStudioH.submit();return true;}return false;} "> 删除 </a> | <a href=equipment_edit.asp?tp=1&equipment_no= <%=rs( "academy_no ")%> > 修改 </a> </td>
</tr>
<%i=i+1
if i> =MaxPerPage then exit do
rs.movenext
loop
%>
<tr>
<td width= "50 " class=forumHeaderBackgroundAlternate align= "center "> <a href= "javascript:xoYuStudio() "> <font width= "30 " color= "#FFFFFF "> 选择 </font> </a> </td>
<td width= "64 " class=forumHeaderBackgroundAlternate align= "center "> 学院编号 </td>
<td width= "63 " class=forumHeaderBackgroundAlternate align= "center "> 学校编号 </td>
<td align= "center " class=forumHeaderBackgroundAlternate> 生产编号 </td>
<td align= "center " class=forumHeaderBackgroundAlternate> 分类号 </td>
<td align= "center " class=forumHeaderBackgroundAlternate> 名称 </td>
<td align= "center " class=forumHeaderBackgroundAlternate> 型号 </td>
<td width= "72 " class=forumHeaderBackgroundAlternate align= "center " nowrap> 规

[解决办法]
格 </td>
<td width= "49 " align= "center " nowrap class=forumHeaderBackgroundAlternate> 单价 </td>
<td width= "95 " class=forumHeaderBackgroundAlternate align= "center " nowrap> 领用单位 </td>
<td width= "50 " class=forumHeaderBackgroundAlternate align= "center " nowrap> 领用人 </td>
<td align= "center " nowrap class=forumHeaderBackgroundAlternate> 购买日期 </td>
<td align= "center " nowrap class=forumHeaderBackgroundAlternate> 分配日期 </td>
<td align= "center " nowrap class=forumHeaderBackgroundAlternate> 接收实验室 </td>
<td align= "center " nowrap class=forumHeaderBackgroundAlternate> 生产商 </td>
<td align= "center " nowrap class=forumHeaderBackgroundAlternate> 单项操作 </td>
</tr>
<tr>
<td colspan= "16 " class=forumrow> <p>
<input onClick= "javascript:del_equip(); " name= "xoYuStudioDo " value= "删除 " type= "button " title= "删除选定记录 ">
|
<input onClick= "window.location.href= 'equip_add.asp ' " name= "xoYuStudioDo " value= "增加 " type= "button " title= "添加记录 ">
|
<input onClick= "javascript:edit_equip(); " name= "xoYuStudioDo " value= "修改 " type= "button ">

|
<input onClick= "javascript:selectall( 'equipment ') " name= "xoYuStudioDo2 " value= "全选 " type= "button ">
|
<input onClick= "javascript:selectfan( 'equipment ') " name= "xoYuStudioDo " value= "反选 " type= "button ">
|
<input onClick= "javascript:document.location.reload() " name= "shuaxin " value= "刷新 " type= "button ">
</td>
</tr>
<tr>
<td colspan= "16 " class=forumrow> <%
call page()
sub page()%>
页次： <b> <font color= "#FF0000 "> <%=currentPage%> </font> / <%=mpage%> </b> ,每页 <b> <%=MaxPerPage%> </b> 个, 当前设备 <b> <%=totalPut%> </b> 个
<%
pageno=currentPage
if isempty(pageno) or cint(pageno) <1 or cint(pageno)> mpage then
pageno=1
end if
%>
[
<%if cint(pageno)> 1 then%>
<a href=equipment_list.asp>
<%end if%>
< <- </a>
<%if cint(pageno)> 1 then%>
<a href=equipment_list.asp?page= <%=pageno-1%> >
<%end if%>
<- </a>
<%
pp=cint(pageno)-3
if pp <1 then
pp=1
end if
for pno=pp to mpage
p=p+1
if pno=cint(pageno) then%>
<font color= "#FF0000 "> <%=pno%> </font>
<%else%>
<a href=equipment_list.asp?page= <%=pno%> > <%=pno%> </a>
<%end if%>
<%
if p> =7 then exit for
next%>
<%if cint(pageno) < mpage then%>
<a href=equipment_list.asp?page= <%=pageno+1%> >
<%end if%>
-> </a>
<%if cint(pageno) < mpage then%>
<a href=equipment_list.asp?page= <%=mpage%> >
<%end if%>
->> </a> ]
<%
end sub%> </td>
</tr>
<%else%>
<tr height= "25 " colspan= "16 " scope= "col " align= "left "> <td colspan= "16 " scope= "col " class=forumrow> 无设备信息 </td> </tr>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</form>
</table>

</body>
</html>

记录打勾得有关问题

热点推荐