📄 add.asp

📁 ASP原码
💻 ASP
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS

	set rsClass=server.CreateObject("ADODB.recordset")
	rsClass.Open "select ID from CLASS where SCHOOLID="&session("school_id")&"",cn,adOpenStatic
	classcount=rsClass.RecordCount
	rsclass.close
	if classcount >= session("school_max_class") then
		Response.Write "<p align=center>对不起，您最多只能添加"&session("school_max_class")&"个会议室。</p>"
		Response.Write "<p align=center><a href='vbscript:history.back'>返回</a></p>"
		
		cn.close
		response.end
	end if
	
	set rsUser=server.CreateObject("ADODB.recordset")
	rsUser.Open "select * from "&TBL_USER&" where TYPE="&UTP_TEACHER&" and SCHOOLID="&session("school_id")&"",cn
	
	if rsUser.EOF then
		Response.Write "<p align=center>新建会议室之前，请首先在“用户管理”里面添加主持人。</p>"
		Response.Write "<p align=center><a href='vbscript:history.back'>返回</a></p>"
		
		rsUser.close
		cn.close
		response.end
	end if

	set rsBandwidth=server.CreateObject("ADODB.recordset")
	rsBandwidth.Open "select * from DIC_BANDWIDTH",cn
%>

<HTML>
<BODY bgcolor="#CFC9CD" 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="14"></td>
    <td width="764" height="14">&nbsp; </td>
    <td bgcolor="#8C9A8C" width="3" height="14"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3"></td>
    <td width="764" valign="top"> 
      <form name="form1" method="post" action="add2.asp">
        <table width="95%" border="1" align="center" bgcolor="#E3E3E3">
          <tr bgcolor="EFEFEF"> 
            <td width="32%">会议室名</td>
            <td width="68%" bgcolor="EFEFEF"> 
              <input alt="会议室名***" type=text name=class_name maxlength="20">
              *** </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">主持人</td>
            <td width="68%"> 
              <select name="class_teacher" alt>
                <% 
                rsUser.movefirst
			   do while not rsUser.eof %>
                <option value=<% =cstr(rsUser("id"))+"|"+rsUser("nickname")%> > 
                <% =rsUser("username")+"("+rsUser("nickname")+")" %>
                </option>
                <% rsUser.movenext
			   loop
				%>
              </select>
            </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">多播(Multicast)地址</td>
            <td width="68%"> 
              <input alt="多播(Multicast)地址..." type=text name=class_multicast_ip value="238.221.204.8" maxlength="15">
              (224.0.0.0 ~ 239.255.255.255)*** </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">多播(Multicast)端口</td>
            <td width="68%"> 
              <input alt="多播(Multicast)端口###" type=text name=class_multicast_port value="11011" maxlength="5">
              *** </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">多播(Multicast)带宽限定</td>
            <td width="68%"> 
              <select name="class_bandwidth">
                <% 
			   do while not rsBandwidth.eof %>
                <option value=<%=rsBandwidth("VALUE")%> > <%=rsBandwidth("NAME")%> 
                </option>
                <% rsBandwidth.movenext
			   loop
				%>
              </select>
            </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">文字过滤字典（回车换行，分号作为单词分隔符）</td>
            <td width="68%"> 
              <TextArea alt="文字过滤字典$$$" name=class_FilterDic rows=10 cols=80></textarea>
            </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">单收</td>
            <td width="68%"> 
              <input type="checkbox" name="class_CanFreeRcv" value="TRUE">
              免费 (如果免费，则允许任何人通过录像播放器接收广播)</td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td colspan="2"> 
              <div align="center"> 
                <input type="button" value="确定" onClick="jscript:OnSubmitGeneral(form1)" name="buttonsubmit">
                <input type="button" value="返回" onClick="jscript:OnReturn()" name="button">
              </div>
            </td>
          </tr>
        </table>
        </form>
    </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>

<!--#include file="../../System/miscJScript.asp"-->

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

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