📄 bm_list.asp

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

💻 ASP

字号:

<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<%
call adminer()
Call ComeUrl()
Call adminqx()
bmclass=request("bmclass")
%>
<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="500" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" >
  <tr align="center" bgcolor="#E0E0E0"> 
    <td width="50%" height="20" align="left"><strong> <font color="#FF0000">部门名称</font></strong></td>
    <td height="20" align="left"><strong><font color="#FF0000">负责人</font></strong></td>
  </tr>
  <%
  set rs=server.createobject("adodb.recordset")
  sql="select * from bumen where 所属校区='"&bmclass&"' "
  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=editschool.asp>"
		  response.write "<td bgcolor=#ffffff><a href='searchinfo.asp?bmname="&s&"&shcoolname="&bmclass&"' title='点击可查看该部门各办公室' target='_self'>"& s &"</a></td>"
		  response.write"<td bgcolor=#ffffff><input type=text name=fuzeren size=15 value="& rs("部门主管")&"></td>"
		  response.write "</form></tr>"  
  rs.movenext
  loop
  end if
  %>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -