📄 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")
if request("last_days")="" then
last_days=-30
else
last_days=clng(request("last_days"))
end if
set cn=server.CreateObject("ADODB.connection")
cn.Open DSN_ACLASS
set rsClass=server.CreateObject("ADODB.recordset")
set rsCourse=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
set rs=server.CreateObject("ADODB.recordset")
rs.Open "select * from DEFINE where DEF_NAME='SERVER_IP'", cn
server_ip=rs("DEF_VALUE")
rs.close
rs.Open "select * from DEFINE where DEF_NAME='SERVER_PORT'", cn
server_port=rs("DEF_VALUE")
rs.close
rs.Open "select * from "&TBL_USER&" where ID="&session("userid")&"", cn
user_name=rs("username")
user_password=rs("password")
rs.close
%>
<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#version=1,0,0,2">
</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">
<form name="form1" method="post" action="frmCourse.asp">
<input type="hidden" name="class_id" value="<%=class_id%>">
<select name="last_days" onChange="OnLastDaysChanged(this.options[this.selectedIndex].value)">
<option <%=SELECTED(last_days, -365)%> value="-365">全部会议日程表</option>
<option <%=SELECTED(last_days, -30)%> value="-30">最近30天会议日程表 </option>
</select>
</form>
<%
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>(当前在线用户：<%=rsClass("ONLINE_USER")%>人)</td>
<td class="unnamed1" height="19"><a href="#" onClick="vbscript:OnEnterClass('<%=""&server_ip&";"&user_name&";"&user_password&";"&class_id&";"&server_port&";"%>')" title="登录该会议室，进入视频会议">进入会议室</a> </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>
<td width="57" class="unnamed1"><b>会议记录</b></td>
</tr>
<%
sql="select * from COURSE where CID="&class_id&" order by START_TIME"
rsCourse.Open sql,cn,adOpenStatic
while not rsCourse.eof
diff=DateDiff("d", date()+time(), rsCourse("START_TIME"))
if diff >= last_days then %>
<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"><%=rsCourse("REMARK")%></td>
<td width="30" class="unnamed1">
<%acc_url=trim(rsCourse("ACC_URL"))
if isnull(acc_url) or acc_url="" then%>
<font color="#CCCCCC">点播</font>
<%else
if not InStr(1, acc_url, "http://", 1) then acc_url=session("HOME_DIR")+acc_url
if InStr(1, acc_url, ".acc", 1) then%>
<a href="#" onClick="vbscript:OnPlayACC('<%=IA_URLUnicode(acc_url)%>')">点播</a>
<%else%>
<a href="<%=IA_URLUnicode(acc_url)%>" target="blank">点播</a>
<%end if%>
<%end if%>
</td>
<td width="57" class="unnamed1">
<a href="frmusercourselog.asp?course_id=<%=rsCourse("ID")%>&class_name=<%=rsClass("NAME")%>&course_name=<%=rsCourse("NAME")%> (<%=rsCourse("START_TIME")%> - <%=rsCourse("END_TIME")%>)">会议记录</a></td>
</tr>
<%
end if
rsCourse.movenext
wend
rsCourse.close
%>
</table>
<%
rsClass.MoveNext
loop
rsClass.close
%>
<p> </p></td>
</tr>
</table>
<script language=vbscript>
Sub OnPlayACC(acc_url)
if acc_url<>"" then
document.ACStart.Start "SOFTWARE\iActive\ActiveMeeting", "ACPlayer.exe", acc_url
end if
End Sub
Sub OnEnterClass(param)
document.ACStart.Start "SOFTWARE\iActive\ActiveMeeting", "ActiveMeeting.exe", param
End Sub
</script>
<SCRIPT LANGUAGE=javascript>
function OnLastDaysChanged(value)
{
form1.submit();
}
</SCRIPT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -