ad_orderno.asp 运动用品商城网站系统源代码程序 - ASP源码程序

www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_orderno.asp
    <!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 and Request.Cookies("venshop")("admin_class")<>2 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
selectid=request("selectid")
no=request("type")
if no="" then no=1
if request("action")="del" then
conn.execute "delete from venshop_basket where basket_id in ("&selectid&")"
call deleok(delet,"ad_orderno.asp?type="&no)
end if
%>
<div class="help">备注：<br><%if no=2 then%>此处是当天以前已登录客户加入购物车的信息，不建议删除，因为你的客户可能在此登录，底部有全选删除连接！<%else%>此处是当天以前未登录客户加入购物车的信息，可以放心删除，底部有全选删除连接！<%end if%></div>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<tr><td align="center" width="200" class="sa">产品</td>
<td align="center" width="75" class="sa">用户</td>
<td align="center" width="150" class="sa">日期</td>
<td align="center" width="75" class="sa">数量</td>
<td align="center" width="75" class="sa">单价</td>
<td align="center" width="75" class="sa">选择</td></tr>
<form name="form" method="post" action = "ad_orderno.asp?action=del&type=<%=no%>">
<%set rs=server.CreateObject("adodb.recordset")
nowdate=date()
sql="select * from venshop_basket where basket_check=0 and basket_date<#"&nowdate&"# order by basket_id desc"
rs.open sql,conn,1,1
if rs.eof And rs.bof then%>
<tr><td align="center" bgcolor="#FFFFFF" width="575" colspan="6">No Date</td></tr>
<%
else
i=0
do while not rs.eof
username=rs("user_name")
set rsu=server.CreateObject("adodb.recordset")
sql="select * from venshop_user where username='"&username&"'"
rsu.open sql,conn,1,1
if no=2 then
if not rsu.eof then
i=i+1
%>
<tr><td align="center" class="s<%=i mod 2%>"><a href=views.asp?hw_id=<%=rs("hw_id")%> target=_blank><%=rs("hw_name")%></a></td>
<td align="center" class="s<%=i mod 2%>"><%=rs("user_name")%></td>
<td align="center" class="s<%=i mod 2%>"><%=rs("basket_date")%></td>
<td align="center" class="s<%=i mod 2%>"><%=rs("basket_count")%></td>
<td align="center" class="s<%=i mod 2%>"><%=trim(rs("hw_price"))%></td>
<td align="center" class="s<%=i mod 2%>"><input name="selectid" type="checkbox" id="selectid" value="<%=rs("basket_id")%>"></td></tr>
<%end if
else
if rsu.eof and rsu.bof then
i=i+1
%>
<tr><td align="center" class="s<%=i mod 2%>"><a href=views.asp?hw_id=<%=rs("hw_id")%> target=_blank><%=rs("hw_name")%></a></td>
<td align="center" class="s<%=i mod 2%>">未登录客户</td>
<td align="center" class="s<%=i mod 2%>"><%=rs("basket_date")%></td>
<td align="center" class="s<%=i mod 2%>"><%=rs("basket_count")%></td>
<td align="center" class="s<%=i mod 2%>"><%=trim(rs("hw_price"))%></td>
<td align="center" class="s<%=i mod 2%>"><input name="selectid" type="checkbox" id="selectid" value="<%=rs("basket_id")%>"></td></tr>
<%end if
end if
rsu.close
set rsu=nothing
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</table>全选  <input type="checkbox" name="checkbox2" value="Check All" onClick="mm()">
<input type="submit" name="Submit" value="删除" onClick="return test();">
<script language=javascript>
function test()
{
  if(!confirm('确认进行删除操作吗？')) return false;
}

function mm()
{
   var a = document.getElementsByTagName("input");
   if(a[0].checked==true){
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = false;
   }
   else
   {
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = true;
   }
}
</script><!--#include file="ad_bottom.asp"-->