求助版主或大侠们帮加个【分页和选择框代码】
<%if request("action")="edit" then
Dim total
total=Request.Form("total")
Dim j,chinese,math,english,strSql1
For j=1 To total
chinese=Request.Form("chinese" & j)
math=Request.Form("math" & j)
english=Request.Form("english" & j)
strSql1="Update grade Set chinese='" & chinese & "',math='" & math & "',english='" & english & "' Where id=" & Request.Form("id" & j)
db.execute(strSql1)
Next
Response.Redirect "update_form.asp"
end if
%>
<html>
<head>
<title>成绩表</title>
</head>
<body>
<h2 align="center">批量修改成绩表</h2>
<center>
<form action="?action=edit" method="post">
<table border="0" width="90%">
<tr bgcolor="#B7B7B7" align="center">
<td width="20%">学号</td>
<td width="20%">姓名</td>
<td width="20%">语文</td>
<td width="20%">数学</td>
<td width="20%">英语</td>
</tr>
<%
Dim strSql,rs
strSql="Select id,stu_code,stu_name,chinese,math,english From grade Order By stu_code"
Set rs=db.execute(strSql)
Dim I
I=0
Do While Not rs.Eof
I=I+1
%>
<tr bgcolor="#F2F2F2" align="center">
<td><%=rs("stu_code")%></td>
<td><%=rs("stu_name")%></td>
<td>
<input type="hidden" name="id<%=I%>" value="<%=rs("id")%>">
<input type="text" name="chinese<%=I%>" size="5" value="<%=rs("chinese")%>">
</td>
<td>
<input type="text" name="math<%=I%>" size="5" value="<%=rs("math")%>">
</td>
<td>
<input type="text" name="english<%=I%>" size="5" value="<%=rs("english")%>">
</td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<P><input type="hidden" name="total" value="<%=I%>">
<input type="submit" value=" 确 定 ">
</form>
</center>
</body>
</html>
