depart.asp

来自「学生档案管理系统。。 调试测试可以用。」· ASP 代码 · 共 64 行

ASP
64
字号
<!--#include file=conn.asp-->
<%
 GName=request.form("GName")
sqlstr="select * from department where 1=1 "
 if GName<>"" then
  sqlstr=sqlstr &" and 系别 like '%"&GName&"%'"
  end if
sqlstr=sqlstr & " Order by ID"
   set rs=conn.execute(sqlstr)
%>
<HTML>
 <HEAD>
  <TITLE> New Document </TITLE>
 </HEAD>

 <BODY>
 <p align="center">院系信息</p>
 <table border="1">
   <tbody>
<tr>
   <td align=middle" width="12%" bgcolor="#D6D3CE">系别</td>
   <td align=middle" width="10%" bgcolor="#D6D3CE">系主任</td>
   <td align=middle" width="6%" bgcolor="#D6D3CE">修改</td>
 <td align=middle" width="6%" bgcolor="#D6D3CE">删除</td>
</tr>
<% do while not rs.eof '开始循环,显示每条记录%>
 <tr>
<td align="middle" bgColor="#ffffff"width="12%"><%=rs("系别")%></td>
<td align="middle" bgColor="#ffffff"width="10%"><%=rs("系主任")%></td>
<td align="middle" bgColor="#ffffff"width="6%">
<%Response.write"<a href='updatedepart.asp?id="&Rs("id")&"'>修改</a>"%>
	</td>
	<td align="middle" bgColor="#ffffff"width="6%">
     <a href="deletedeapret.asp?ID=<%=rs("ID")%>" onclick="return(confirm('确实要删除吗?'))">删除</a>
</td>
	</tr>
	<%
	rs.movenext
	loop
	'循环结束
	%>
	<%
	rs.close
	Set rs=Nothing
	%>
  </tbody>
 </table>
 <div>
	<center><input name="bt1" onClick="document.location.href='writedepart.asp';"style="cursor: hand;"type="button"value="添加院系">&nbsp;
	<input name="bt2" onClick="document.location.href='depart.asp';"style="cursor: hand;"type="button"value="显示所有系别"> 
	</center>
	</div>
	<!--以下是查询表单-->
	<form method = "POST" action="depart.asp">
	
  <p>按[系别]模糊查询: 
    <input type="text" name="GName"size="20">
	<p>
	  <input type="submit" value="查询"name="B1">
	  <input type="reset" value="清除"name="B2">
	<p align="center" class="STYLE3">    
</form>
 </BODY>
</HTML>

⌨️ 快捷键说明

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