📄 office_set.asp

📁 对学校物资管理系统的一份设计
💻 ASP
字号:
<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<%
call adminer()
Call ComeUrl()
Call xiaoquandadmin()
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="common.css" type="text/css" rel="stylesheet">
<title>无标题文档</title>
</head>
<body>
<table width="100%" height="100%" border="0">
  <tr>
    <td align="center" valign="top"> <p>&nbsp;</p>
      <table width="500" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" >
        <tr align="center" bgcolor="#E0E0E0"> 
          <td  width="25%" height="20" align="left"><strong> <font color="#FF0000">办公室名称</font></strong></td>
          <td width="25%" height="20" align="left"><strong> <font color="#FF0000">所属校区</font></strong></td>
          <td width="20%" height="20" align="left"><strong> <font color="#FF0000">物资责任人</font></strong></td>
		  <%if session("userclass")=1 then%>
          <td  width="15%" align="center"><strong><font color="#FF0000">修改</font></strong></td>
	      <td  width="15%" align="center"><strong><font color="#FF0000">操作</font></strong></td>
		  <%end if %>
        </tr>
        <%
  xiaoqu=trim(request("所属校区"))
  if xiaoqu<>"" then
  sql="select * from office where 所属校区='"&xiaoqu&"'"
  else
  sql="select * from office"
  end if 
  set rs=server.createobject("adodb.recordset")
  rs.open sql,oconn,1,2
  if rs.eof then
  response.Write("暂无办公室！")
  else
  do while not rs.eof
          id=rs("id")
		  s=rs("办公室名称")
		  response.write "<tr align=left bgcolor=#ffffff><form name=form2 method=post action=office_edt.asp>"
		  response.write "<td bgcolor=#ffffff><a href='wuzi_magic.asp?所属办公室="&s&"&所属校区="&rs("所属校区")&"&utype=3' title='点击可查看该办公室所有设备' target='_self'>"& s &"</a></td>"
		  response.write"<td bgcolor=#ffffff>"& rs("所属校区")&"</td>"
		  if session("userclass")=1 then
		  response.write"<td bgcolor=#ffffff><input value="& rs("物资责任人")&" type=text name=officeadmin size=15></td>"
		  response.write"<td bgcolor=#ffffff  align=center><input type=hidden name=id value="&rs("id")&"><input value=修改 type=submit></a></td>"
		  response.write"<td bgcolor=#ffffff align=center><a href=deloffice.asp?id="&id&">删除</a></td>"
		  else
		  response.write"<td bgcolor=#ffffff>"& rs("物资责任人")&"</td>"
		  end if 
		  response.write "</form></tr>"  
  rs.movenext
  loop
  end if
  %>
      </table>
	<%If session("userclass")=1 Then%>
      <table width="80%" border="0">
        <tr>
          <td align="center">
<form name="form1" method="post" action="office_add.asp">
              <table width="500" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
                <tr align="center" bgcolor="#FFFFFF"> 
                  <td width="25%"> <input name="officename" type="text" id="officename" value="输入办公室名称" size="15"></td>
                  <td width="25%"><input name="officeadmin" type="text" id="officeadmin" value="输物资责任人" size="15"></td>
                  <td width="25%"><select name="ssxq">
                      <option>所属校区</option>
                      <%
					  set xqrs=server.createobject("adodb.recordset")
					  xqsql="select 校区名称 from shcool_class"
					  xqrs.open xqsql,oConn,1,1
					  do while not xqrs.eof 
					  response.write "<option value="&xqrs("校区名称")&">"&xqrs("校区名称")&"</option>"
					  xqrs.movenext
					  loop
					  xqrs.close
					  %>
                    </select></td>				  <td width="25%"> <input type="submit" name="Submit" value="添加办公室"></td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table>
      <%end if %>
	  
	  </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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