?? frmcourse.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 rsClass=server.CreateObject("ADODB.recordset")
set rsCourse=server.CreateObject("ADODB.recordset")
set rsUserCourse=server.CreateObject("ADODB.recordset")
set rsUserCourseLog=server.CreateObject("ADODB.recordset")
set rsACCDir=server.CreateObject("ADODB.recordset")
rsACCDir.Open "select * from ACC_DIR", cn
if not rsACCDir.EOF then
acc_vdir=rsACCDir("VDIR")
acc_rdir=rsACCDir("RDIR")
end if
rsACCDir.Close
set rsACCDir=nothing
%>
<link rel="stylesheet" href="header.css" type="text/css">
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="10" >
<object classid="clsid:1C38561E-32E7-43D0-9AEF-7C7CA45039E5" id="IAFTPClt" width="0" height="0" codebase="../../system/IAFTPClt.ocx#version=1,0,0,3">
</object>
<object classid="clsid:79B13EA1-83FB-49FD-A0D0-3F10C447DF75" id="ACStart" width="0" height="0" codebase="../../system/acstart.ocx">
</object>
<table width="554" 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">
<%
if request("class_id")=0 then
sql="select * from CLASS where ID in (select CID from CLASSUSER where UID="&session("userid")&")"
else
sql="select * from CLASS where ID="&request("class_id")&""
end if
'response. write sql
'response.end
rsClass.Open sql, cn
do while not rsClass.EOF
class_id=rsClass("ID")
%>
<form name="formUploadAcc" method="post" ></form>
<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>會議室: <%=rsClass("NAME")%>
</b></td>
</tr>
<tr valign=center bgcolor="#E3E3E3">
<td width="137" class="unnamed1"><b>會議日程名</b></td>
<td width="111" class="unnamed1"><b>開會時間</b></td>
<td width="162" class="unnamed1"><b>考勤記錄</b></td>
<td width="30" class="unnamed1"><b>分數</b></td>
</tr>
<%
sql="select * from COURSE where CID="&class_id&" order by START_TIME"
rsCourse.Open sql,cn
while not rsCourse.eof
%>
<tr bgcolor="EFEFEF">
<td width="137" class="unnamed1"><%=rsCourse("NAME")%></td>
<td width="111" class="unnamed1"><%=SimpleTime(rsCourse("START_TIME"))%>
- <%=SimpleTime(rsCourse("END_TIME"))%></td>
<td width="162" class="unnamed1">
<%usercourselog=""
rsUserCourseLog.Open "select * from "&TBL_USER&"_COURSE_LOG where COURSEID="&rsCourse("ID")&" and UID="&session("userid")&" 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="30" class="unnamed1">
<%
rsUserCourse.Open "select * from "&TBL_USER&"_COURSE where COURSEID="&rsCourse("ID")&" and UID="&session("userid")&"",cn
quizfrac=0
if not rsUserCourse.eof then quizfrac=rsUserCourse("QUIZFRAC")
rsUserCourse.close
%>
<%=quizfrac%>
</td>
</tr>
<%
rsCourse.movenext
wend
rsCourse.close
%>
</table>
<%
rsClass.MoveNext
loop
rsClass.close
%>
</td>
</tr>
</table>
<script language=vbscript>
</script>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -