📄 frmusercourselog.asp
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
if 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 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="568" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
<tr>
<td width="568" height="15"> </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 class="unnamed1" height="19"><b>会议室:</b> <%=request("class_name")%>
<b>会议日程:</b> <%=request("course_name")%> </td>
<td class="unnamed1" height="19"></td>
</tr>
<tr valign=center bgcolor="#E3E3E3">
<td class="unnamed1"><b>考勤记录</b></td>
<td width="31" class="unnamed1"><b>分数</b></td>
</tr>
<%
sql="select * from "&TBL_USER&"_COURSE where COURSEID="&request("course_id")&" and UID="&session("userid")&" order by QUIZFRAC DESC"
'response.write sql
'response.end
rsUserCourse.Open sql,cn
while not rsUserCourse.eof
%>
<tr bgcolor="EFEFEF">
<td class="unnamed1">
<%usercourselog=""
rsUserCourseLog.Open "select * from "&TBL_USER&"_COURSE_LOG where COURSEID="&request("course_id")&" and UID="&rsUserCourse("UID")&" 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="31" class="unnamed1"><%=rsUserCourse("QUIZFRAC")%></td>
</tr>
<%
rsUserCourse.movenext
wend
rsUserCourse.close
%>
</table>
<p align="center"><a href="#" onclick="vbscript:history.back()">返回</a></p>
</td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -