?? adminscoreedit.asp
字號:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
userid=request("userid")
sql="SELECT * from tbuser where userid="&userid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
username=rs("username")
nianji=rs("nianji")
banji=rs("banji")
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>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<center><b><%=nianji%>級--<%=banji%>——<%=username%></b></center>
<%
i=1
%><br>
<center>
<form method="post">
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" id="AutoNumber2" width="100%">
<tr class="trh">
<td height="22" width="46" bgcolor="#799AE1">
<p align="center"><font color="#FFFFFF"><b>序號</b></font></td>
<td bgcolor="#799AE1" width="128">
<p align="center"><font color="#FFFFFF"> <b>科目名稱</b></font></td>
<td bgcolor="#799AE1" width="105">
<p align="center"><font color="#FFFFFF">試卷名稱</font></td>
<td bgcolor="#799AE1" width="69">
<p align="center"><font color="#FFFFFF"><b>狀態</b></font></td>
<td bgcolor="#799AE1" width="72">
<p align="center"><font color="#FFFFFF"><b>是否批改</b></font></td>
<td bgcolor="#799AE1" width="64">
<p align="center">
<font color="#FFFFFF">
<input type='submit' class=s02 value='重考'></font></td>
<td bgcolor="#799AE1" width="78">
<p align="center"><font color="#FFFFFF"><b>練習部分</b></font></td>
</tr>
<%
'----列出考試科目
sql3="SELECT * from tbkc order by kcid"
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
do while not rs3.eof
kcid=rs3("kcid")
%>
<tr class="trh1">
<td align="center" height="20" width="46" ><%=i%></td>
<td width="128">
<p align="center"><%=rs3("kcm")%></td>
<td width="70"><p align="center"><%
sql4="SELECT * from tbscore where kcid="&kcid&" and username='"&username&"'"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
do while not rs4.eof
sql5="SELECT * from tbpaper where paperno="&rs4("paperno")
set rs5=server.createobject("adodb.recordset")
rs5.open sql5,conn,3,2
%><a href="adminscoretype.asp?paperno=<%=rs4("paperno")%>&username=<%=username%>&userid=<%=userid%>"><%=rs5("info")%></a><br>
<%
rs5.close
rs4.movenext
loop
rs4.close
%>
</td>
<td width="69"><p align="center"><%
sql4="SELECT * from tbscore where kcid="&kcid&" and username='"&username&"'"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
do while not rs4.eof
if rs4("isexam")=1 then
%>已經考完<br>
<%
else
%>尚未考試<br>
<%
end if
rs4.movenext
loop
rs4.close
%>
</td><td width="69"><p align="center"><%
sql4="SELECT * from tbscore where kcid="&kcid&" and username='"&username&"'"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
do while not rs4.eof
if rs4("isadmin")=1 then
%><a href="adminscoretype.asp?paperno=<%=rs4("paperno")%>&username=<%=username%>&userid=<%=userid%>"><font color="#0000FF">已經批改</font></a><br>
<%
else
%><a href="adminscoretype.asp?paperno=<%=rs4("paperno")%>&username=<%=username%>&userid=<%=userid%>"><font color="#FF0000">尚未批改</font></a><br>
<%
end if
rs4.movenext
loop
rs4.close
%>
</td>
<td width="64"><p align="center"><%
sql4="SELECT * from tbscore where kcid="&kcid&" and username='"&username&"'"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
do while not rs4.eof
%><input type='checkbox' name='selAnnounce' value='<%=cstr(rs4("paperno"))%>'><br>
<%
rs4.movenext
loop
rs4.close
%></td>
<td width="78">
<p align="center"><a href="adminscorechapter.asp?kcid=<%=rs3("kcid")%>&username=<%=username%>&userid=<%=userid%>">查看練習</a></td>
</tr>
<%
i=i+1
rs3.movenext
loop
sub deleteannounce(id)
set rs3=server.createobject("adodb.recordset")
sql3="select * from tbscore where username='"&username&"' and paperno="&id
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='"&username&"' and paperno="&id
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='"&username&"' and tmid="&rsdel1("tmid")&" and paperno="&id&" "
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
%>
</table></form>
</center>
<p align="center">
<INPUT class="s02" onclick="window.location='adminscoreedit.asp?userid=<%=userid%>'" type=button value="刷 新" name=close><span lang="en-us">
</span><input type="button" value="關閉窗口" name="B2" onclick="self.close()" class="s02"> </p>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -