📄 editdingdan_fhy.asp
字号:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>3 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
<tr>
<td width="1%"> </td>
<td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="48%"> <strong><font color="#000000">管理非会员商品订单 </font></strong><font color="#000000"><a href="editdingdan_fhy.asp?zhuangtai=888">查询所有订单(包括废订单)</a> <a href="deldingdan.asp?action=000">删除所有不完整订单</a></font></td>
<td align="right"> </td>
</tr>
</table></td>
</tr>
</table>
<%dim zhuangtai,namekey,dd,day1,day2
namekey=trim(request("namekey"))
zhuangtai=trim(request("zhuangtai"))
dd=trim(request("dd"))
if trim(request("year1"))<>"" then
day1=trim(Request.Form("year1"))&"-"&trim(Request.Form("month1"))&"-"&trim(Request.Form("day1"))
else
day1=trim(request("day1"))
end if
if trim(request("year2"))<>"" then
day2=trim(Request.Form("year2"))&"-"&trim(Request.Form("month2"))&"-"&trim(Request.Form("day2"))
else
day2=trim(request("day2"))
end if
if zhuangtai="" then zhuangtai=0
if namekey="" then namekey=request.querystring("namekey")
if dd="" then dd=request.querystring("dd")
%>
<br>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td>
<div align="right"> </div></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40">
<form name="form1" method="post" action="editdingdan_fhy.asp?zhuangtai=8">
开始：
<select name="year1" class="wenbenkuang">
<%for i=2005 to 2100%>
<option value="<%=i%>" <%if year(now())=i then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
年
<select name="month1" class="wenbenkuang">
<%for i=1 to 12%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
月
<select name="day1" class="wenbenkuang">
<%for i=1 to 31%>
<option value="<%=i%>" ><%=i%></option>
<%next%>
</select>
日 到结束：
<select name="year2" class="wenbenkuang">
<%for i=2005 to 2100%>
<option value="<%=i%>" ><%=i%> </option>
<%next%>
</select>
年
<select name="month2" class="wenbenkuang">
<%for i=1 to 12%>
<option value=<%=i%> ><%=i%> </option>
<%next%>
</select>
月
<select name="day2" class="wenbenkuang">
<%for i=1 to 31%>
<option value=<%=i%> <%if year(date())=i then%>selected<%end if%>><%=i%> </option>
<%next%>
</select>
日
<input type="submit" class="go-wenbenkuang" name="Submit3" value="统 计">
<select name="select2" class="wenbenkuang" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<base target=Right>
<option value="editdingdan_fhy.asp?zhuangtai=0" selected>--款到发货--</option>
<option value="editdingdan_fhy.asp?zhuangtai=0" >全部订单状态</option>
<option value="editdingdan_fhy.asp?zhuangtai=1" >未作任何处理</option>
<option value="editdingdan_fhy.asp?zhuangtai=2" >订单已确认款未到</option>
<option value="editdingdan_fhy.asp?zhuangtai=3" >款已到，正在备货</option>
<option value="editdingdan_fhy.asp?zhuangtai=4" >货已发出</option>
<option value="editdingdan_fhy.asp?zhuangtai=5" >货已收到谢谢定购 </option>
</select>
</form></td>
</tr>
</table>
<br>
<%'开始分页
Const MaxPerPage=12
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
if namekey="" then
'//按状态查询
if zhuangtai=0 then
rs.open "select distinct(dingdan),userid,username,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai,new from shop_action_fhy where zhuangtai<6 and zt<>2 order by actiondate desc",conn,1,1
elseif zhuangtai=8 then
'day1=trim(Request.Form("year1"))&"-"&trim(Request.Form("month1"))&"-"&trim(Request.Form("day1"))
' day2=trim(Request.Form("year2"))&"-"&trim(Request.Form("month2"))&"-"&trim(Request.Form("day2"))
rs.open "select distinct(dingdan),userid,username,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai,new from shop_action_fhy where (datediff(dd,actiondate,'"&day2&"')>=0) and (datediff(dd,'"&day1&"',actiondate)>=0) and (zhuangtai<6) and (zt<>2) order by actiondate",conn,1,1
elseif zhuangtai=888 then
rs.open "select distinct(dingdan),userid,username,userzhenshiname,shouhuoname,actiondate,songhuofangshi,zhifufangshi,zhuangtai,new from shop_action_fhy order by actiondate",conn,1,1
else
rs.open "select distinct(dingdan),userid,username,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai,new from shop_action_fhy where zhuangtai="&zhuangtai&" and zt<>2 order by actiondate desc",conn,1,1
end if
else
'//按用户查询
if zhuangtai=9 then
if dd=1 then
rs.open "select distinct(dingdan),userid,username,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai,new from shop_action_fhy where username='"&namekey&"' and zt<>2 order by actiondate desc",conn,1,1
elseif dd=2 then
rs.open "select distinct(dingdan),userid,username,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai,qlr,new from shop_action_fhy where qlr='"&namekey&"' and zt<>2 order by actiondate desc",conn,1,1
elseif dd=5 then
rs.open "select distinct(dingdan),userid,username,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai,new from shop_action_fhy where dingdan='"&namekey&"' and zt<>2 order by actiondate desc",conn,1,1
else
rs.open "select distinct(dingdan),userid,username,shouhuoname,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai,new from shop_action_fhy where shouhuoname='"&namekey&"' and zt<>2 order by actiondate",conn,1,1
end if
end if
end if
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起，您选择的状态目前还没有订单！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"editdingdan_fhy.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim shopmark
shopmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"editdingdan_fhy.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"editdingdan_fhy.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<form name="form1" method="post" action="deldingdan.asp?action=fhy">
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
<tr bgcolor="#C7D3E6">
<td><div align="center">删除</div></td>
<td height="22">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -