?? 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 + -