日期:2014-05-16  浏览次数:20972 次

同时提交多条记录,实现不了,求帮助
本帖最后由 jvxie 于 2012-12-16 14:32:08 编辑
<!--#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>请输入查询关键词:&nbsp;<input type="text" name="cxsj" size="25">&nbsp;<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 
%>&n