📄 list.asp

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

%>

<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#CDC8CF" leftmargin="0" topmargin="10" >
<!--下面包含头文件-->
<!--#include file="Header.asp"-->
<!--下面包含显示所有用户的列表-->
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
  <tr> 
    <td bgcolor="#8C9A8C" width="3"></td>
    <td width="764" bgcolor="#EFEFEF" height="20" valign="bottom">　你现在的位置：会议室管理－所有会议室列表</td>
    <td bgcolor="#8C9A8C" width="3"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3" height="15"></td>
    <td width="764" height="15">&nbsp; </td>
    <td bgcolor="#8C9A8C" width="3" height="15"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3"></td>
    <td width="764" valign="top"> 
    <form method="post" name="formDelete" id="formDelete">
        <table class=unnamed1  border=0 cellspacing="1" cellpadding="5" bgcolor="C1C8C1" align="center" width="98%" >
          <tr valign=center bgcolor="#E3E3E3"> 
            <td width="143" class="unnamed1"><b>会议室名</b></td>
            <td width="51" class="unnamed1"><b>主持人</b></td>
            <td width="50" class="unnamed1"><b>在线/与会人数</b></td>
            <td width="87" class="unnamed1"><b>多播地址</b></td>
            <td width="34" class="unnamed1"><b>多播端口</b></td>
            <td width="65" class="unnamed1"><b>多播带宽</b></td>
            <td width="102" class="unnamed1"><b>所属公司</b></td>
            <td width="34"><b>用户</b></td>
            <td width="35" class="unnamed1"> 
              <div align="center"><b>修改 </b></div>
            </td>
            <td width="39" class="unnamed1"> 
              <div align="center"><b>删除 </b></div>
            </td>
          </tr>
          <%
		set cn=server.CreateObject("ADODB.connection")
		    cn.Open DSN_ACLASS
		set rsClassUser=server.CreateObject("ADODB.recordset")
		set rs=server.CreateObject("ADODB.recordset")
		rs.Open "select * from CLASS where SCHOOLID in (select SID from TBL_ASADMIN_SCHOOL where UID="&session("userid")&") order by SCHOOLID",cn
		while not rs.eof 
			rsClassUser.Open "select * from CLASSUSER where CID="&rs("ID")&"", cn,adOpenStatic
			count_cu=rsClassUser.RecordCount
			rsClassUser.Close
		%>
          <tr bgcolor="EFEFEF"> 
            <td width="143" class="unnamed1"><a href="../Course/list.asp?class_id=<%=rs("ID")%>&class_name=<%=rs("NAME")%>" title="会议日程管理"><%=rs("name")%></a></td>
            <td width="51" class="unnamed1"><%=rs("TName")%></td>
            <td width="50" class="unnamed1"><%=rs("ONLINE_USER")%>/<%=count_cu%></td>
            <td width="87" class="unnamed1"><%=rs("MULTICAST_IP")%></td>
            <td width="34" class="unnamed1"><%=rs("MULTICAST_port")%></td>
            <%if rs("BANDWIDTH")>0 then 
		  	bandwidth=cstr(rs("BANDWIDTH"))+"Kbps"
		  else
		  	bandwidth="不限"
		  end if%>
            <td width="65" class="unnamed1"><%=bandwidth%></td>
            <td width="102" class="unnamed1"><%=NameFromID(cn, "SCHOOL", "ID", "NAME", rs("SCHOOLID"))%></td>
            <td width="34"><a href="listclassuser.asp?class_id=<%=rs("ID")%>" target=blank>查看</a></td>
            <td width="35" class="unnamed1"> 
              <div align="center"><a href="edit.asp?Class_ID=<%=rs("ID")%>">修改</a> 
              </div>
            </td>
            <td width="39" class="unnamed1"> 
              <div align="center"><a href=# onClick="jscript:OnDelete('delete.asp?Class_ID=<%=rs("ID")%>')">删除</a> 
              </div>
            </td>
          </tr>
          <%
		rs.movenext
		wend
		%>
        </table>
	</form>
      <br>
    </td>
    <td bgcolor="#8C9A8C" width="3"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3" height="21"></td>
    <td width="764" bgcolor="EFEFEF" height="21"> 
      <div align="center"><%=COMPANY%></div>
    </td>
    <td bgcolor="#8C9A8C" width="3" height="21"></td>
  </tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#8C9A8C" align="center">
  <tr> 
    <td height="4"></td>
  </tr>
</table>

<script language=jscript>
	function OnDelete(action)
	{
		var ret=showModalDialog("dlgyesno.asp","真要删除会议室吗？","dialogWidth:300px;dialogHeight:120px;status:0;");
		if (ret == "YES")
		{
			formDelete.action=action;
			dodelete=true;
		}
	}
	function timer()
	{
		if (dodelete)
			formDelete.submit();
		else
			timer_id = setTimeout("timer()", 200); // every 200ms
	}
	timer_id = setTimeout("timer()", 200); // every 200ms
	dodelete=false;
</script>

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

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