?? del.asp
字號:
<!--#include file="conn.asp" -->
<HTML>
<HEAD>
<TITLE></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #FFffff;
}
-->
</style>
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FF0000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<div align="center">
<table width="100%" border="0" cellspacing="5" cellpadding="5">
<tr>
<td> <div align="right">
<% If session("admin")<>"yes" Then
response.write("系統超時，您需要<font color=red><b>重新登陸</font></b>。 ")
response.end
Else %>
您現在處于管理狀態。
<%end if%>
<strong><a href="javascript:self.location.reload();"><font color="#FF0000">刷新</font></a></strong>
</div></td>
</tr>
<tr>
<td valign="top"> <strong>數據刪除：</strong><br> <br> <br> </td>
</tr>
<tr>
<td><font color="#FF0000">刪除數據前請備份數據，如果今后做數據恢復請將備份文件還原。</font></td>
</tr>
<tr>
<td><form name="form1" method="post" action="">
選擇年份：
<select name="nian" id="nian">
<%j= year(date())-1
for i=2003 to j%>
<option value="<%=i%>" selected><%=i%></option>
<%next
i=i+1%>
</select>
是否刪除月份記錄：否
<input name="yue" type="radio" value="否" checked>
是
<input type="radio" name="yue" value="是">
<input name="act" type="submit" id="act" value="提交">
</form></td>
</tr>
<tr>
<td>（系統將清空該年度的每日做工記錄）</td>
</tr>
<tr>
<td><%if request("act")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from daylu where year(日期)="&request("nian")&" "
rs.open sql,conn,1,3
do while not rs.eof
msg="<font color=red>已經成功刪除"&request("nian")&"年每日數據</font>"
rs.delete
if not rs.eof or not rs.bof then rs.movenext
loop
rs.close
end if%>
<%if request("act")<>"" and request("yue")="是" then
set rs=server.createobject("adodb.recordset")
sql="select * from monthlu where 年份="&request("nian")&" "
rs.open sql,conn,1,3
do while not rs.eof
msg2="<font color=red>已經成功刪除"&request("nian")&"年每月數據</font>"
rs.delete
if not rs.eof or not rs.bof then rs.movenext
loop
rs.close
end if%><%= msg %> <%= msg2 %></td>
</tr>
</table>
</div>
</BODY>
</HTML> <%
conn.close%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -