📄 adminscoreedit.asp

📁 该系统测试用户信息主要由数据库直接输入
💻 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">&nbsp;<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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</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 + -