📄 frmusercourselog.asp

📁 ASP原码
💻 ASP
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
	if session("usertype")<>UTP_TEACHER and session("usertype")<>UTP_STUDENT then 
		Response.Redirect "../../system/relogin.asp?Info=你的身份检查，出现错误！"
	end if	
%>

<%
	class_id=request("class_id")

	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS
	
	set rsCourse=server.CreateObject("ADODB.recordset")
	set rsUserCourse=server.CreateObject("ADODB.recordset")
	set rsUserCourseLog=server.CreateObject("ADODB.recordset")
%>

<link rel="stylesheet" href="header.css" type="text/css">
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="10" >

<table width="530" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
  <tr> 
    <td width="568" height="15">&nbsp; </td>
  </tr>
  <tr> 
    <td width="568" valign="top"> 
      <table class=unnamed1  border=0 cellspacing="1" cellpadding="5" bgcolor="C1C8C1" align="center" width="100%" >
        <tr valign=center bgcolor="#E3E3E3"> 
          <td colspan="4" class="unnamed1" height="19"><b>会议室:</b> <%=request("class_name")%>&nbsp;&nbsp;&nbsp;<b>会员: </b><%=request("user_name")%> 
            </td>
        </tr>
        <tr valign=center bgcolor="#E3E3E3"> 
          <td width="153" class="unnamed1"><b>会议日程名</b></td>
          <td width="124" class="unnamed1"><b>开会时间</b></td>
          <td width="169" class="unnamed1"><b>考勤记录</b></td>
          <td width="48" class="unnamed1"><b>分数</b></td>
        </tr>
        <%
		sql="select * from COURSE where CID="&request("class_id")&" order by START_TIME"
		rsCourse.Open sql,cn
		while not rsCourse.eof 
		%>
        <tr bgcolor="EFEFEF"> 
          <td width="153" class="unnamed1"><%=rsCourse("NAME")%></td>
          <td width="124" class="unnamed1"><%=SimpleTime(rsCourse("START_TIME"))%> 
            - <%=SimpleTime(rsCourse("END_TIME"))%></td>
          <td width="169" class="unnamed1"> 
            <%usercourselog=""
			rsUserCourseLog.Open "select * from "&TBL_USER&"_COURSE_LOG where COURSEID="&rsCourse("ID")&" and UID="&request("user_id")&" order by LOGIN_TIME",cn
			while not rsUserCourseLog.EOF
				usercourselog=usercourselog+SimpleTime(timevalue(rsUserCourseLog("LOGIN_TIME")))+"-"+SimpleTime(timevalue(rsUserCourseLog("LOGOUT_TIME")))+"; "
				rsUserCourseLog.MoveNext
			wend
			rsUserCourseLog.Close
			%>
            <%=usercourselog%> </td>
          <td width="48" class="unnamed1"> 
            <%
			rsUserCourse.Open "select * from "&TBL_USER&"_COURSE where COURSEID="&rsCourse("ID")&" and UID="&request("user_id")&"",cn
			quizfrac=0
			if not rsUserCourse.eof then quizfrac=rsUserCourse("QUIZFRAC")
			rsUserCourse.close
		  %>
            <%=quizfrac%> </td>
        </tr>
        <%
		rsCourse.movenext
		wend
		rsCourse.close
		%>
      </table>
    </td>
  </tr>
</table>
<a href="#" onclick="vbscript:history.back()">返回</a>

<script language=vbscript>

</script>

</BODY>
</HTML>
⌨️ 快捷键说明

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