?? 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 + -