<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>cjluru</title>
<style type="text/css">
<!--
.STYLE1 {
color: #FF9966;
font-weight: bold;
font-size: 24px;
}
-->
</style>
</head>
<body bgcolor="#CCFFFF">
<form action="chjluru.asp" method="post">
<div align="center" class="STYLE1">学生成绩录入</div>
<!--#include file=".../xsglb/open.asp"-->
<p>系名：
<select name="select" size="1">
<option>信息工程系</option>
<option>财经系</option>
<option>民商系</option>
<option>艺术系</option>
<option>中文系</option>
<option>数学系</option>
<option>英语系</option>
</select>
</p>
<p>班级：
<select name="bj" size="1" onchange="">
<% set rsbj=server.createobject("adodb.recordset")
sqlbj="select * from bj where xi='"&request.form("xi")&"' "
rsbj.open sqlbj,con,1,3
<option value="<%=rsbj("bj")%>">selected<%=rsbj("bj")%></option>
<% rsbj.movenext()
loop
%>
</select>
<%
set rsbj=nothing
rsbj.close
set con=nothing
%>
教师名:
<select name="js" size="1" onchange="">
<% set rsbj=server.createobject("adodb.recordset")
sqljs="select * from js where xi='"&request.form("xi")&"' "
rsjs.open sqljs,con,1,3
<option value="<%=rsjs("jsxm")%>">selected<%=rsbj("jsxm")%></option>
<% rsjs.movenext()
loop
%>
</select>
<%
set rsjs=nothing
rsjs.close
set con=nothing
%>
课程：
<select name="kc" size="1" onchange="">
<% set rsbj=server.createobject("adodb.recordset")
sqlkc="select * from kc where xi='"&request.form("xi")&"' "
rskc.open sqlkc,con,1,3
<option value="<%=rskc("kc")%>">selected<%=rsbj("kc")%></option>
<% rskc.movenext()
loop
%>
</select>
<%
set rskc=nothing
rskc.close
set con=nothing
%>
</p>
<%
set rsxh=server.createobject("adodb.recordset")
sqlxh="select * from xs where bj='"&request.form("bj")&"'"
rsxh.open sqlxh,con,1,3
rsxh.pagesize=12
page=clng(Request("page"))
if page<1 then
page=1
end if
rsxh.absolutepage=page
%>
<table width="272" border="0.5" align="center" cellpadding="0" cellspacing="0">
<tr align="center">
<td width="104">学号</td>
<td width="168">成绩</td>
</tr>
<tr>
response.write "<td>"<%=rsxh("xh")%>"</td>"
<td><label for="textfield"></label>
<input type="text" name="cj" id="cj" /></td>
</tr>
</table>
<table width="556"border="0"cellspacing="-2"cellpadding="-2">
<tr>
<td><div align="right">
<% if page<>1 then %>
<a href=<%=path%>?page=1>第一页</a>
<a href=<%=path%>?page=<%=（page-1）%>>上一页</a>
<%else
if page<>rs.pagecount then %>
<a href=<%=path%>?page=<%=（page+1）%>>下一页</a>
<a href=<%=path%>?page=<%=rsxh.pagecount%>>最后一页</a>
<%end if %>
<%end if %>
</div></td>
</table>
<p>
<label for="Submit"></label>
<input type="submit" name="Submit" value="提交" >
</p>
<%
dim stuid,score,kc
dim cj()
kc=request.form("cj")
cj=split(request.form(cj),",")
for i=0 to Request.Form("cj").Count-1
stuid=trim(request.form("xh")(i))
score=trim(request.form("cj")(i))
if stuid<>"" then
sqlstr="insert into cj(xh,kc,cj) values('"&stuid&"','"&kc&"','"&score&"')"
con.execute(sqlstr)
else
exit for
end if
next
con.close
response.write"数据成功录入"
%>
<%
set rs=nothing
con.close
set con=nothing
%>
</body>
</html>
rYus5hhg.rar
