📄 adminkcscore.asp

📁 该系统测试用户信息主要由数据库直接输入
💻 ASP
字号:
<!--#include file="conn.asp"--> <%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  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>

<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> &gt; 
    <a href="adminscorechoice.asp">试卷批改</a> <span lang="en-us">&gt;</span> 课程模式</td>
  </tr>
</table>
 

 <br>
<br>
 
 <center>
  <table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="323" height="25">
    <tr class="trh">
      <td width="48" height="25" bgcolor="#799AE1"><b><center>
      <font color="#FFFFFF">序号</font></center></b></td>
      <td width="138" height="25" bgcolor="#799AE1"><b><center>
      <font color="#FFFFFF">课程名</font></center></b></td>
      <td width="140" height="25" bgcolor="#799AE1"><b><center>
      <font color="#FFFFFF">试卷</font></center></b></td>
    </tr>
    <%

i=1

  '-----------------权限设定
      power=session("power")
      	 
			dim arr,id1
	 if instr(power,",")>0 then
			Arr=split(power)
		    for j = 0 to ubound(arr)
	       		id1=clng(arr(j))
	       		
	  sql="select * from tbkc where kcid="&id1
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2	
		
		 if not rs.eof then
%>
    <tr class="trh1">
    <td   width="48" height="28"  ><center><%=i%></center></td>
    <td   width="138" height="28"  ><center><%=rs("kcm")%></center></td>
    <td   width="140" height="28"  ><%
     kcid=rs("kcid")
     sql1="select * from tbpaper where kcid="&kcid
      set rs1=server.createobject("adodb.recordset")
      rs1.open sql1,conn,3,2	
      
      do while not rs1.eof
      %><center><a href="adminkcname.asp?kcid=<%=kcid%>&paperno=<%=rs1("paperno")%>"><%=rs1("info")%></a><p><br>
	</p>
	</p>
	</center>
      
      <% 
      rs1.movenext
      loop
    
    %></td>
  </tr>
  <%    i=i+1
      end if
         next
else

		 if   power<=0 then 
		 
      sql="select * from tbkc order by kcid"
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2	
       
       do while not rs.eof %>
       <tr class="trh1">
    <td   width="48" height="28"  ><center><%=i%></center></td>
    <td   width="138" height="28"  ><center><%=rs("kcm")%></center></td>
    <td   width="140" height="28"  ><%
     kcid=rs("kcid")
     sql1="select * from tbpaper where kcid="&kcid
      set rs1=server.createobject("adodb.recordset")
      rs1.open sql1,conn,3,2	
      
      do while not rs1.eof
      %><center><a href="adminkcname.asp?kcid=<%=kcid%>&paperno=<%=rs1("paperno")%>"><%=rs1("info")%></a><br>

	</center>
      
      <% 
      rs1.movenext
      loop
    
    %></td>
    </tr>
      <% rs.movenext
       i=i+1
      loop
      
        else
      
       sql="select * from tbkc where kcid="&power
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2	
       
        if not rs.eof then
%>
    <tr class="trh1">
    <td   width="48" height="28"  ><center><%=i%></center></td>
    <td   width="138" height="28"  ><center><%=rs("kcm")%></center></td>
    <td   width="140" height="28"  ><%
     kcid=rs("kcid")
     sql1="select * from tbpaper where kcid="&kcid
      set rs1=server.createobject("adodb.recordset")
      rs1.open sql1,conn,3,2	
      
      do while not rs1.eof
      %><center><a href="adminkcname.asp?kcid=<%=kcid%>&paperno=<%=rs1("paperno")%>"><%=rs1("info")%></a><br>

	</center>
      
      <% 
      rs1.movenext
      loop
    
    %></td>
  </tr>
<%       end if
        end if

	  end if


%>
  </table>
  </center>
 

<p align="center">
<INPUT  class="s02" onclick="window.location='adminscorechoice.asp'" type=button value="返  回" name=close1></p>
 

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -