📄 delall.asp

📁 一个功能很全面占用空间的小商城程序,适合个人网上开店使用
💻 ASP
字号:
<%
if session("admin_name")="" then response.redirect "login.asp"
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"-->

<%
if request("action")="del" then
    user_company=request("user_company")
    sql="select * from hw where user_company='"&user_company&"' hw_id="&request("hw_id")
    rs.open sql,conn,3,3
    if rs.eof then
        response.redirect "delall.asp"
    else
    rs.delete
    rs.update
    end if
    rs.close
end if%>
<html>
<head>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>

<body bgcolor="#9CC7EF" text="#000000" leftmargin="0" topmargin="4">
<div align="center">批量删除 </div>
<table width="98%" border="1" bordercolordark=#9CC7EF bordercolorlight=#145AA0 cellspacing="0" cellpadding="4" align="center">

<form action="delall.asp?action=time" method="post">
        <tr> 
    <td width="35%">
删除多少天前的所有商品
</td><td valign=middle width=15%>请输入天数</td><td><input name="TimeLimited" value=0 size=30>&nbsp;<input type=submit name="submit" value="删 除"></td>
  </tr>
</form>

</table>
<p>
	<%select case request("action")
	case "alldel"
		call alldel()
	case "com"
		call com()
	case "time"
		call time()
	end select%>
<%
	sub com()

		if request("user_name")="" then
			founderr=true
			errmsg=errmsg+"<br>"+"<li>请输入商店名。"
                        response.write errmsg
			exit sub
		end if

    user_company=request("user_name")
    sql="select * from hw where user_company='"&user_company&"'"
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "<font color=red>该商店没有任何商品呀</font>"
    else
    goodsno=rs.recordcount
    goodno=goodsno
    response.write "<font color=red>该商店共有"&goodsno&"件商品</font>"
    end if
    rs.close
   do while goodsno>0
    sql="select * from hw where user_company='"&user_company&"'"
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "<font color=red>该商店已经没有任何商品</font>"
    else
    rs.delete
    rs.update
    end if
    rs.close
    goodsno=goodsno-1
   loop
     response.write "<font color=red><p>"&goodno&"件商品被成功删除</font>"
end sub
sub time()
TimeLimited=request.form("TimeLimited")
		if TimeLimited="" then
			founderr=true
			errmsg=errmsg+"<br>"+"<li>请输入天数哦。"
                        response.write errmsg
			exit sub
		end if
    sql="select * from hw where datediff('d',hw_date,Now())>"&TimeLimited&""
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "<font color=red>该时间段没有任何商品呀</font>"
    else
    goodsno=rs.recordcount
    goodno=goodsno
    response.write "<font color=red>该时间段共有"&goodsno&"件商品</font>"
    end if
    rs.close
   do while goodsno>0
    sql="select * from hw where datediff('d',hw_date,Now())>"&TimeLimited&""
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "<font color=red>该时间段已经没有任何商品</font>"
    else
    rs.delete
    rs.update
    end if
    rs.close
    goodsno=goodsno-1
   loop
     response.write "<font color=red><p>"&goodno&"件商品被成功删除</font>"
end sub
sub alldel()
TimeLimited=request.form("TimeLimited")
    user_company=request("user_name")
		if TimeLimited="" then
			founderr=true
			errmsg=errmsg+"<br>"+"<li>请输入天数哦。"
                        response.write errmsg
			exit sub
		end if
		if request("user_name")="" then
			founderr=true
			errmsg=errmsg+"<br>"+"<li>请输入商店名。"
                        response.write errmsg
			exit sub
		end if
    sql="select * from hw where datediff('d',hw_date,Now())>"&TimeLimited&" and  user_company='"&user_company&"'"
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "<font color=red>该商店在该时间段没有任何商品呀</font>"
    else
    goodsno=rs.recordcount
    goodno=goodsno
    response.write "<font color=red>该商店在该时间段共有"&goodsno&"件商品</font>"
    end if
    rs.close
do while goodsno>0
    sql="select * from hw where datediff('d',hw_date,Now())>"&TimeLimited&" and  user_company='"&user_company&"'"
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "<font color=red>该商店在该时间段已经没有任何商品</font>"
    else
    rs.delete
    rs.update
    end if
    rs.close
    goodsno=goodsno-1
   loop
     response.write "<font color=red><p>"&goodno&"件商品被成功删除</font>"
end sub
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -