📄 adminkcname.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
kcid=request("kcid")
paperno=request("paperno")
%>
<%
Page = CLng(Request("Page"))
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统管理 | 试卷批改 | 课程模式 | 试卷批改</title>
<script language="javascript">
function editit(id,paperno,kcid)
{
page="adminscoretype1.asp?userid="+id+"&paperno="+paperno+"&kcid="+kcid;
window.open (page,'编辑用户','width=500,height=400,resizable=1,scrollbars=1')
}
function FanAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}
</script>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置：<span lang="en-us"> </span><a href="news.asp">系统管理</a> >
<a href="adminscorechoice.asp">试卷批改</a> <span lang="en-us">></span>
<a href="adminkcscore.asp">课程模式</a> <span lang="en-us">> </span> </td>
</tr>
</table>
<center>
<%
sql1="select * from tbkc where kcid="&kcid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
sqlp="select * from tbpaper where paperno="&paperno
set rsp=server.createobject("adodb.recordset")
rsp.open sqlp,conn,3,2
sql="select * from tbscore,tbuser where tbscore.kcid="&kcid&" and tbscore.paperno="&paperno&" and tbuser.username=tbscore.username and isexam=1 order by nianji,banji,tbuser.userid"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
rs.PageSize = 10
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
%><center><h5><%=rs1("kcm")%>——<%=rsp("info")%></h5></center>
<%if rs.eof then %><center><h5><font color="#FF0000">没有用户</font></h5></center><br>
<INPUT class="s02" onclick="window.location='adminkcscore.asp'" type=button value="返 回" name=close1>
<%else%>
<form action="adminkcname.asp?kcid=<%=kcid%>&paperno=<%=paperno%>" method="post" name="viewaddform">
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber1">
<tr class="trh">
<td width="30" align="center" bgcolor="#799AE1" height="20">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="center" bgcolor="#799AE1" width="87">
<p align="center"><font color="#FFFFFF"><b>用户名</b></font></td>
<td align="center" bgcolor="#799AE1" width="84">
<font color="#FFFFFF">
<b>姓 名</b></font></td>
<td align="center" bgcolor="#799AE1" width="70">
<p align="center"><font color="#FFFFFF"><b>年级</b></font></td>
<td align="center" bgcolor="#799AE1" width="120"><font color="#FFFFFF"><b>班级</b></font></td>
<td align="center" bgcolor="#799AE1" width="60"><font color="#FFFFFF"><b>是否批改</b></font></td>
<td align="center" bgcolor="#799AE1" width="51"><font color="#FFFFFF"><b>批改</b></font></td>
<td align="center" bgcolor="#799AE1" width="50"><font color="#FFFFFF"><b>成绩</b></font></td>
<td align="center" bgcolor="#799AE1" width="45">
<input type='submit' class="s02" value='重考'></td>
</tr>
<%
For iPage = 1 To rs.PageSize
username=rs(0)
%>
<tr class="trh1">
<td align="center" height="20" width="30"><%=i%></td>
<td align="center" width="87"><%=rs(0)%></a> </td>
<td align="center" width="84"><a href="javascript:editit(<%=rs("userid")%>,<%=paperno%>,<%=kcid%>)"><%=rs("tname")%></a> </td>
<td align="center" width="70"><%=rs("nianji")%> </td>
<td align="center" width="120"><%=rs("banji")%> </td>
<td align="center" width="60"><% if rs("isadmin")=1 then %><font color="#0000FF">已批改</font>
<%else%>
<font color="#FF0000">尚未改</font>
<%end if %></td>
<td align="center" width="51">
<a href="javascript:editit(<%=rs("userid")%>,<%=paperno%>,<%=kcid%>)">
<img border="0" src="images/edit_2.gif" alt="查看/编辑"></a></td>
<td align="center" width="50">
<%
'-----------------
sqltm1="SELECT * FROM tbkcconfig where kcid="&kcid&" and category=1 and paperno="&paperno
set rstm1=server.createobject("adodb.recordset")
rstm1.open sqltm1,conn,3,2
if not rstm1.eof then
tmno1=rstm1("datano")
else
tmno1=0
end if
sqltm2="SELECT * FROM tbkcconfig where kcid="&kcid&" and category=2 and paperno="&paperno
set rstm2=server.createobject("adodb.recordset")
rstm2.open sqltm2,conn,3,2
if not rstm2.eof then
tmno2=rstm2("datano")
else
tmno2=0
end if
sqltm3="SELECT * FROM tbkcconfig where kcid="&kcid&" and category=3 and paperno="&paperno
set rstm3=server.createobject("adodb.recordset")
rstm3.open sqltm3,conn,3,2
if not rstm3.eof then
tmno3=rstm3("datano")
else
tmno3=0
end if
sqltm4="SELECT * FROM tbkcconfig where kcid="&kcid&" and category=4 and paperno="&paperno
set rstm4=server.createobject("adodb.recordset")
rstm4.open sqltm4,conn,3,2
if not rstm4.eof then
tmno4=rstm4("datano")
else
tmno4=0
end if
sqltm5="SELECT * FROM tbkcconfig where kcid="&kcid&" and category=5 and paperno="&paperno
set rstm5=server.createobject("adodb.recordset")
rstm5.open sqltm5,conn,3,2
if not rstm5.eof then
tmno5=rstm5("datano")
else
tmno5=0
end if
sqltm6="SELECT * FROM tbkcconfig where kcid="&kcid&" and category=6 and paperno="&paperno
set rstm6=server.createobject("adodb.recordset")
rstm6.open sqltm6,conn,3,2
if not rstm6.eof then
tmno6=rstm6("datano")
else
tmno6=0
end if
sqltm7="SELECT * FROM tbkcconfig where kcid="&kcid&" and category=7 and paperno="&paperno
set rstm7=server.createobject("adodb.recordset")
rstm7.open sqltm7,conn,3,2
if not rstm7.eof then
tmno7=rstm7("datano")
else
tmno7=0
end if
sqltm8="SELECT * FROM tbkcconfig where kcid="&kcid&" and category=8 and paperno="&paperno
set rstm8=server.createobject("adodb.recordset")
rstm8.open sqltm8,conn,3,2
if not rstm8.eof then
tmno8=rstm8("datano")
else
tmno8=0
end if
'----------------
zong=0
set rs_zong=server.createobject("adodb.recordset")
if tmno1<>0 then
zong_fen="SELECT top "&tmno1&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and userdata.paperno="&paperno&" and category=1 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if
if tmno2<>0 then
zong_fen="SELECT top "&tmno2&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and userdata.paperno="&paperno&" and category=2 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if
if tmno3<>0 then
zong_fen="SELECT top "&tmno3&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and userdata.paperno="&paperno&" and category=3 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if
if tmno4<>0 then
zong_fen="SELECT top "&tmno4&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and userdata.paperno="&paperno&" and category=4 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if
if tmno5<>0 then
zong_fen="SELECT top "&tmno5&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and userdata.paperno="&paperno&" and category=5 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if
if tmno6<>0 then
zong_fen="SELECT top "&tmno6&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and userdata.paperno="&paperno&" and category=6 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if
if tmno7<>0 then
zong_fen="SELECT top "&tmno7&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and userdata.paperno="&paperno&" and category=7 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if
if tmno8<>0 then
zong_fen="SELECT top "&tmno8&" userdata.fen,userdata.tmid,userdata.dataid FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and userdata.paperno="&paperno&" and category=8 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong_fen1="SELECT * FROM userdataread where username='"&username&"' and dataid="&rs_zong("dataid")&" and tmid="&rs_zong("tmid")&" and paperno="&paperno&""
set rs_zong1=server.createobject("adodb.recordset")
rs_zong1.open zong_fen1,conn,3,2
do while not rs_zong1.eof
zong=rs_zong1("fen")+zong
rs_zong1.movenext
loop
rs_zong.movenext
loop
rs_zong.close
end if
response.write zong
'----------------------- 把成绩加入数据库
sql4="select * from tbscore where username='"&username&"' and kcid="&kcid&" and paperno="&paperno&" "
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
rs4("score")=zong
rs4.update
%> </td>
<td align="center" width="45"> <input type='checkbox' name='selAnnounce' value='<%=cstr(rs("userid"))%>'></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
<caption></caption>
</table><br>
<INPUT class="s02" onclick="window.location='adminkcname.asp?kcid=<%=kcid%>&paperno=<%=paperno%>'" type=button value="刷 新" name=close><span lang="en-us">
</span>
<INPUT class="s02" onclick="window.location='adminkcscore.asp'" type=button value="返 回" name=close1><br>
</form></center>
<center>
<form ACTION="<%=Myself%>" METHOD="GET">
<table width="386">
<tr>
<td width="380">
<p ALIGN="right"> <input type=checkbox name=del_all1 value=1 onclick=FanAll(viewaddform)>全选<span lang="en-us"> </span>
<%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&kcid=<%=kcid%>&paperno=<%=paperno%>">第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&kcid=<%=kcid%>&paperno=<%=paperno%>">上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&kcid=<%=kcid%>&paperno=<%=paperno%>">下一页</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&kcid=<%=kcid%>&paperno=<%=paperno%>">最后一页</a>
<% End If %>
<font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
<p> </td>
</tr>
</table> <input type='hidden' name="kcid" value='<%=kcid%>'>
<input type='hidden' name="paperno" value='<%=paperno%>'>
</form></center>
<%
sub deleteannounce(id)
dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select username from tbuser where userid="&id
rs2.open sql2,conn,3,2
un=rs2("username")
set rs3=server.createobject("adodb.recordset")
sql3="select * from tbscore where username='"&un&"' and kcid="&kcid&" and paperno="&paperno
rs3.open sql3,conn,3,2
rs3("score")=0
rs3("isexam")=0
rs3("isadmin")=0
rs3.update
sqldel1="select dataid,username,uans,fen,userdata.tmid,userdata.isread from userdata,tbtk where userdata.tmid=tbtk.tmid and kao=1 and username='"&un&"' and paperno="&paperno
set rsdel1=server.createobject("adodb.recordset")
rsdel1.open sqldel1,conn,3,2
do while not rsdel1.eof
if rsdel1("isread")=1 then
sqldel2="SELECT * from userdataread where username='"&un&"' and tmid="&rsdel1("tmid")&" and paperno="&paperno&" "
set rsdel2=server.createobject("adodb.recordset")
rsdel2.open sqldel2,conn,3,2
do while not rsdel2.eof
rsdel2("ruans")=""
rsdel2.update
rsdel2.movenext
loop
end if
rsdel1("uans")=""
rsdel1.update
rsdel1.movenext
loop
End sub
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -