📄 wuzi_move.asp

📁 对学校物资管理系统的一份设计

💻 ASP

字号:

<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<%
call adminer()
Call jifanggl()

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>物资转移</title>
<link href="common.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
if request("id")<>"" then
%>
<div align="center">
  <p>&nbsp;</p>
  <form name="form1" method="post" action="wuzi_move2.asp">
    <table width="200" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
      <tr align="center"> 
        <td colspan="2" bgcolor="#F0F0F0">物资转移</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="61">转移部门：</td>
        <td width="124"><select name="jfbm">
                      <%
					    response.write "<option style=color:#ff0000>请选择部门</option>"
						set rs3=server.createObject("adodb.recordset")
						sql3="select * from bumen"
						rs3.open sql3,oconn,1,1
						do while not rs3.eof
						bumen=rs3("部门名称")
						response.write "<option value=1"&bumen&">"&bumen&"</option>"
						rs3.movenext
						loop
						rs3.close
			         %>
                      <%
					    response.write "<option style=color:#ff0000>请选择机房</option>"
						set rs4=server.createObject("adodb.recordset")
						sql4="select * from jifang"
						rs4.open sql4,oconn,1,1
						do while not rs4.eof
						jifang=rs4("机房编号")
						response.write "<option value=1"&jifang&">"&jifang&"</option>"
						rs4.movenext
						loop
						rs4.close
			         %>
          </select></td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF"> 
        <td colspan="2"><input name="id" type="hidden" id="id" value="<%=replace(trim(request("id")),",","")%>">
          <input type="submit" name="Submit" value="转  移">
          　 </td>
      </tr>
    </table>
  </form>
  <p>&nbsp;</p>
</div>
<%
else
%>
<script>
alert("操作错误！");
window.close();
</script>
<%
end if 
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -