shouzy.asp

来自「（1）管理员能够实现会员管理 （2）教师管理 （3）资料管理及资料显示等操作」· ASP 代码 · 共 172 行

<!--#include file="inc/dbconn.inc"-->
<% 
tname=request.cookies("tname")
if tname="" then
response.write"<SCRIPT language=JavaScript>alert('非法登录！');"    
response.write"this.location.href='default.htm';</SCRIPT>"
  end if
Set rs = Server.CreateObject("ADODB.Recordset")
if not isempty(request("page")) then   
	          pagecount=cint(request("page"))   
              else   
	          pagecount=1   
              end if
			  sql="select * from zuoye where teacherid='"& tname &"'  and biaozhi=1 order by id desc"
			  
			  rs.open sql,conn,3,3   
              if rs.eof and rs.bof then   
              response.write"<SCRIPT language=javascript>alert('对不起，没有符合搜索条件的记录！');"
              response.write"javascript:window.close();</SCRIPT>"
			  else              totalrecs=rs.recordcount
              rs.pagesize=10
              if pagecount>rs.pagecount or pagecount<=0 then              
              pagecount=1              
              end if    
              totalpages=cint(rs.pagecount)          
              rs.AbsolutePage=pagecount 
              end if%>

<html>
<head>
<title>远程教育网欢迎你</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/index.css" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #FFFFCC;
}
-->
</style></head>
<SCRIPT language=JavaScript src="VREG.js"></SCRIPT>
<SCRIPT language=JavaScript src="inc/f-index.js"></SCRIPT>
<body text="#000000" leftmargin="0" topmargin="0">
<TABLE width=776 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD rowSpan=2 width=34>&nbsp;</TD>
    <TD bgColor=#639aff height=62>&nbsp;</TD>
  </TR>
  <TR>
<TD background=inc1/top.files/top-3.gif><IMG height=31 
      src="inc1/top.files/top-3.gif" width=100></TD></TR></TBODY></TABLE>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="183" valign="top" rowspan="5"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0" background=inc1/left.files/left-2.gif>
        <tr> 
          <td width="10" height="60"></td>
          <td valign="top" colspan="2"> 
            <table width="100%" border="0" cellpadding="0" cellspacing="0" >
              <tr> 
                <td height="60" width="173" valign="top" align="right"><img src="inc1/left.files/left.gif" width="171" height="60"></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td height="237"></td>
          <td width="13"></td>
          <td width="160" valign="top">
            <TABLE border=0 cellPadding=0 cellSpacing=0 width=150>
        <TBODY>
        
        <TR>
          <TD colSpan=3 height=5></TD></TR>
        <TR>
          <TD height=12><IMG height=12 src="inc1/left.files/left-3.gif" 
width=12></TD>
          <TD height=12>&nbsp;</TD>
          <TD height=12 vAlign=bottom><A class=dh01 
            href="tmain.asp">教师首页</A></TD></TR>
        <TR>
          <TD colSpan=3 height=5></TD></TR>
        <TR>
          <TD height=12><IMG height=12 src="inc1/left.files/left-3.gif" 
width=12></TD>
          <TD height=12>&nbsp;</TD>
          <TD height=12 vAlign=bottom><A class=dh01 
            href="txgmm.asp">修改密码</A></TD></TR>
        <TR>
          <TD colSpan=3 height=5></TD></TR>
        <TR>
          <TD height=12><IMG height=12 src="inc1/left.files/left-3.gif" 
width=12></TD>
          <TD height=12>&nbsp;</TD>
          <TD height=12 vAlign=bottom><A class=dh01 
            href="cktly.asp" >查看留言</A></TD></TR>
        <TR>
          <TD colSpan=3 height=5></TD></TR>
        <TR>
          <TD height=12 vAlign=center><IMG align=top height=12 
            src="inc1/left.files/left-3.gif" width=12></TD>
          <TD height=12>&nbsp;</TD>
          <TD height=12 vAlign=bottom><A class=dh01 
            href="glst.asp">查看试题</A></TD></TR>
	    <TR>
          <TD colSpan=3 height=5></TD></TR>
        <TR>
          <TD height=12 vAlign=center><IMG align=top height=12 
            src="inc1/left.files/left-3.gif" width=12></TD>
          <TD height=12>&nbsp;</TD>
          <TD height=12 vAlign=bottom><A class=dh01 
            href="tjtk.asp">添加试题</A></TD></TR>
        <TR>
          <TD colSpan=3 height=5></TD></TR>
		          <TR>
          <TD height=12 vAlign=center><IMG align=top height=12 
            src="inc1/left.files/left-3.gif" width=12></TD>
          <TD height=12>&nbsp;</TD>
          <TD height=12 vAlign=bottom><A class=dh01 
            href="shouzy.asp">收作业</A></TD></TR>
        <TR>
          <TD colSpan=3 height=5></TD></TR>
        <TR>
          <TD height=12 vAlign=center><IMG align=top height=12 
            src="inc1/left.files/left-3.gif" width=12></TD>
          <TD height=12>&nbsp;</TD>
          <TD height=12 vAlign=bottom><A class=dh01 
            href="exit.asp" >退出登录</A></TD></TR></TBODY></TABLE></td>
        </tr>
        <tr>
          <td height="190"></td>
          <td></td>
          <td></td>
        </tr>
      </table>
    </td>
    <td width="79" height="20"></td>
    <td width="401"></td>
    <td width="113"></td>
  </tr>
  <tr> 
    <td height="74"></td>
    <td valign="top"> 
      <table width=455 border=1 borderColor=#ffffff borderColorDark=#ffffff 
            borderColorLight=#3399cc cellPadding=0 cellSpacing=0 >
        <tr> 
          <td width="80" height="27" valign="middle">&nbsp;学生帐号</td>
          <td valign="middle" width="80">&nbsp;上交老师</td>
          <td valign="middle" width="100">&nbsp;上传时间</td>
          <td valign="middle" width="50">&nbsp;下载</td>
          <td valign="middle" width="50">&nbsp;评分</td>

        </tr>
        
          <% do while not rs.eof %>
		  <tr> 
          <td valign="middle" height="31">&nbsp;<%=rs("studentid")%></td>
          <td valign="middle"> &nbsp;<%=rs("teacherid")%> </td>
          <td valign="middle">&nbsp;<%=rs("datetime")%></td>
          <td valign="middle">&nbsp;<a href=<%=rs("lujin")%>>下载</a></td>
          <td valign="middle">&nbsp;<a href=zuoyepf.asp?id=<%=rs("id")%> target="_blank">评分</a></td>

		  </tr>
		  <% i=i+1                                                                                                                                            
          rs.movenext                                                                                                                                            
          if i>=rs.PageSize then exit do                
		  loop  %>
        
      </table>