delete.asp

来自「本系统采用ASP作为开发环境」· ASP 代码 · 共 39 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="../../Conn/conn.asp" -->
<%	
if Request.QueryString("action")="all" then 
	sql="delete * from tb_Log"
else	
	sql="delete * from tb_Log where IssueDate between #"&Cdate(date()&_
	" 00:00:01")&"# And #"&Now()&"#"
end if 
rs.open sql,conn
set rs=nothing
conn.close
set conn=nothing
if Request.QueryString("action")="all" then 
%>
<!-- #include file="../../Conn/conn.asp" -->
<% 
	sql="insert into tb_Log(Name,Content,IssueDate) values('"&_
	 session("Admin")&"','全部日志被删除','"&Now()&"')"
	rs.open sql,conn
	set rs=nothing
	conn.close
	set conn=nothing
else%>
<!-- #include file="../../Conn/conn.asp" -->
<% 
	sql="insert into tb_Log(Name,Content,IssueDate) values('"&_
	 session("Admin")&"','当天日志被删除','"&Now()&"')"
	rs.open sql,conn
	set rs=nothing
	conn.close
	set conn=nothing
end if%> 
<script language="javascript">
	alert("日志已经删除");
	window.close();
	opener.location.reload();
</script>