想同时修改表单显示出来的多条记录，实现不了，求帮助，小弟我是初学者，希望能给改个完整的，多谢
日期：2014-05-16 浏览次数：21051 次
想同时修改表单显示出来的多条记录，实现不了，求帮助，我是菜鸟，希望能给改个完整的，谢谢！
<!--#include file="CONN.ASP"-->
<html>
<title>奖惩记录登记...</title>
<body>
<script>
function btn_ck_bh_Click()
{
var cx = document.form1.cxsj.value;
form1.action ="Bmxt_admin_modi_jiangcheng.asp?cx="+cx;
}
</script>
<table width="100%" align="center" border="0" cellspacing="0" bgcolor="#E1F4EE" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" style="word-break:break-all">
<tr>
<td width="100%" align="center" valign="middle" > <br><font size="2" color="#6A6A6A"><b>
<form method="POST" name="form1" action=Bmxt_Admin_Info.asp>请输入查询关键词： <input type="text" name="cxsj" size="25"> <input type="submit" value="查询" name="B1" LANGUAGE="javascript" onClick="btn_ck_bh_Click()"> <input type="reset" value="重写" name="B2"> </form></b></font>
</td>
</tr>
</table>
<form method="post" action="index_edit_jiangcheng.asp?action=edit&id=<%=id%>">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr>
<td height="25" width="5%"><b>班级</b></td>
<td width="5%"><b>学号</b></td>
<td width="5%"><b>姓名</b></td>
<td width="5%"><b>性别</b></td>
<td width="6%"><b>本人手机</b></td>
<td width="5%"><b>政治面貌</b></td>
</tr>
<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("MDB/sztt0805designbylbm.asa") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
' 获取产品的名字记录集（从 news表中）
if cx <> "" then
sql = "SELECT * from bmxt where T1 like '%"&cx&"%' or T2 like '%"&cx&"%' order by T4"
else
sql ="select * from bmxt order by T4 "
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+"<br>"+"<li>"+keyword+"没有记录,换个关键词试试^^!!"
response.write errmsg
response.end
end if
' 设置记录集在每页的总行数，也就是 PageSize属性
RS.PageSize=25
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号（ AbsolutePage属性）
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录（ PageSize中设置的行数）
WHILE NOT RS.EOF AND NumRows<RS.PageSize
%>
<tr align="center" class="td
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
