📄 search.asp

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

if session("userclass")=2 then
set usrs=server.CreateObject("adodb.recordset")
ussql="select * from shcool_class where 物资管理员='"&session("username")&"'"
usrs.open ussql,oConn,1,1
ssxq=usrs("校区名称")
usrs.close
end if 

if session("userclass")=3 then
set usrs=server.CreateObject("adodb.recordset")
ussql="select * from jifang where 机房管理员='"&session("username")&"'"
usrs.open ussql,oConn,1,1
ssxq=usrs("所属校区")
jfbh=usrs("机房编号")
usrs.close

end if 

%>
<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>
<p>&nbsp;</p>
<form name="form1" method="post" action="searchinfo.asp">
  <table width="500" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
    <tr align="center" bgcolor="#E4E4E4"> 
      <td colspan="2">物资信息搜索</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="156">名称：</td>
      <td width="329"><input name="wzname" type="text" id="wzname"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>编号：</td>
      <td><input name="bianhao" type="text" id="bianhao"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>物资状态：</td>
      <td><select name="zhuangtai" id="select3">
          <option value="">请选择状态</option>
          <%
						set rs5=server.createObject("adodb.recordset")
						sql5="select * from 状态"
						rs5.open sql5,oconn,1,1
						do while not rs5.eof
						banji=rs5("状态")
						response.write "<option "&s&" value="&banji&">"&banji&"</option>"
						rs5.movenext
						loop
						rs5.close
			         %>
        </select></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>物质类别：</td>
      <td><select name="wzclass" id="wzclass">
          <option value="">请选择分类</option>
          <%
						set rs2=server.createObject("adodb.recordset")
						sql2="select * from wuzi"
						rs2.open sql2,oconn,1,1
						do while not rs2.eof
						banji=rs2("物资名称")
						response.write "<option "&s&" value="&banji&">"&banji&"</option>"
						rs2.movenext
						loop
						rs2.close
			         %>
        </select></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>所属机房或办公室：</td>
      <td><select name="jfcode" id="select2">
          <%
					  if jfbh="" then
					    response.write "<option value=>请选择机房</option>"
						set rs4=server.createObject("adodb.recordset")
						if ssxq<>"" then
						sql4="select * from jifang where 所属校区='"&ssxq&"'"
						else
						sql4="select * from jifang"
						end if 
						rs4.open sql4,oconn,1,1
						do while not rs4.eof
						banji=rs4("机房编号")
						response.write "<option "&s&" value="&banji&">"&banji&"</option>"
						rs4.movenext
						loop
						rs4.close
					  else
						response.write "<option selected value="&jfbh&">"&jfbh&"</option>"
					  end if 
			         %>
        </select></td>
    </tr>
	<%
   if session("userclass")<>3 then
	%>
    <tr bgcolor="#FFFFFF"> 
      <td>所属部门：</td>
      <td><select name="bmname" id="bmname">
          <option value="">请选择部门</option>
          <%
						set rs3=server.createObject("adodb.recordset")
						if ssxq<>"" then
						sql3="select * from bumen where 所属校区='"&ssxq&"'"
						else
						sql3="select * from bumen"
						end if 
						rs3.open sql3,oconn,1,1
						do while not rs3.eof
						banji=rs3("部门名称")
						response.write "<option "&s&" value="&banji&">"&banji&"</option>"
						rs3.movenext
						loop
						rs3.close
			         %>
        </select></td>
    </tr>
	<%
	end if 
	%>
    <tr bgcolor="#FFFFFF"> 
      <td>所属校区：</td>
      <td><select name="shcoolname" id="shcoolname">
          <%
					  if ssxq="" then
                        response.write "<option value=>请选择校区</option>"
						set rs2=server.createObject("adodb.recordset")
						sql2="select * from shcool_class"
						rs2.open sql2,oconn,1,1
						do while not rs2.eof
						banji=rs2("校区名称")
						response.write "<option "&s&" value="&banji&">"&banji&"</option>"
						rs2.movenext
						loop
						rs2.close
					  else
						response.write "<option selected value="&ssxq&">"&ssxq&"</option>"
					  end if 
			         %>
        </select></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>供应商：</td>
      <td><input name="gongyin" type="text" id="gongyin"></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td colspan="2"><input type="submit" name="Submit" value="提交">
        　　 
        <input type="submit" name="Submit2" value="重填"></td>
    </tr>
  </table>
</form>
<p>&nbsp;</p>
</body>
</html>
⌨️ 快捷键说明

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