📄 depart.asp
字号:
<!--#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="添加院系">
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -