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