todayorder.asp
来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 131 行
ASP
131 行
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
%>
<%
if session("admin_rank")<>1 and session("admin_rank")<>3 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>
<%
dim start_year,start_month,start_date,end_year,end_month,end_date,start_day,end_day
if request("start_year")<>"" then
start_year=srequest(request("start_year"),0)
start_month=srequest(request("start_month"),0)
start_date=srequest(request("start_date"),0)
start_day=start_year&"-"&start_month&"-"&start_date &" 00:00:00"
end_day=start_year&"-"&start_month&"-"&start_date &" 23:59:59"
else
start_year=year(now())
start_month=month(now())
start_date=day(now())
start_day=start_year&"-"&start_month&"-"&start_date &" 00:00:00"
end_day=start_year&"-"&start_month&"-"&start_date &" 23:59:59"
end if
%>
<script>
function openbag(id) { window.open("submore.asp?sub_id="+id,"","height=400,width=600,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");}
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Refresh" content="100; url=subpass.asp">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body style="background-color: #F0FBF1">
<form method="POST" action="searchsub.asp?soutype=3">
<div align="center">
<table border="0" width="778" cellspacing="1" bordercolorlight="#2F94F9" bordercolordark="#FFFFFF">
<tr>
<td> 输入邮箱：
<input type="text" name="keywords" size="12" class=ipt> <input type="submit" value="查看订单" name="B4" class=input> </td>
</tr>
</table>
</div>
</form>
<form method="POST" action="searchsub.asp?soutype=2">
<div align="center">
<table border="0" width="778" cellspacing="1" bordercolorlight="#2F94F9" bordercolordark="#FFFFFF">
<tr>
<td> 输入订单号：
<input type="text" name="keywords" size="12" class=ipt> <input type="submit" value="查看订单" name="B4" class=input> </td>
</tr>
</table>
</div>
</form>
<%
rs.open "select * from sub where sub_date > #"&start_day&"# and sub_date < #"&end_day&"#",conn,3,3
if rs.eof then
response.write "暂且没有任何订单"
response.end
end if
rs.pagesize=15
page = cint(request("page"))
if page = "" then page = 1
if page < 1 then page=1
if page >= rs.pagecount then page = rs.pagecount
rs.absolutepage = page
%>
<div align="center">
<table border="1" width="778" cellspacing="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="165" cellpadding="0">
<tr>
<td width="77" style="padding: 5px" height="30">订单号</td>
<td width="80" style="padding: 5px" height="30">姓名</td>
<td width="125" style="padding: 5px" height="30">订购商品</td>
<td width="83" style="padding: 5px" height="30">E-mail</td>
<td width="63" style="padding: 5px" height="30">QQ</td>
<td width="87" style="padding: 5px" height="30">订购数量</td>
<td width="85" style="padding: 5px" height="30">卡发完否</td>
<td width="86" style="padding: 5px" height="30">日期</td>
</tr>
<%
for i=1 to rs.pagesize
%>
<tr>
<td width="77" style="padding: 5px" height="30"><a href='submore.asp?sub_id=<%=rs("sub_id")%>'><font color="#FF0000"><%=rs("sub_number")%> </font></a></td>
<td width="80" style="padding: 5px" height="30"><font color="#FF0000"><%=rs("sub_to")%> </font></td>
<td width="125" style="padding: 5px" height="30"><%=rs("hw_name")%> </td>
<td width="83" style="padding: 5px" height="30"><font color="#FF0000"><%=rs("sub_mail")%> </font></td>
<td width="63" style="padding: 5px" height="30"><%=rs("sub_qq")%> </td>
<td width="87" style="padding: 5px" height="30"><%if rs("sub_cz")="1" then%>充值商品<%end if%><%=rs("hw_count")%>张 </td>
<td width="85" style="padding: 5px" height="30"><%if not rs("sub_payok") then %>未付款
<%elseif rs("sub_cz")=1 then %>已付款待处理
<%elseif rs("sub_yuka")="0" then%>卡全发<%else%>还有<%=rs("sub_yuka")%>卡没发<%end if%> </td>
<td width="86" style="padding: 5px" height="30"><font color="#FF0000"><%=rs("sub_date")%> </font></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<tr>
<td width="100%" colspan="8" style="padding: 5px" height="30">
<p align="center">共有记录<%=rs.recordcount%>条
<%=page%>/<%=rs.pagecount%> <A href="<%request.servervariables("document_name")%>?start_year=<%=int(start_year)%>&start_month=<%=int(start_month)%>&start_date=<%=int(start_date)%>&end_year=<%=int(end_year)%>&end_month=<%=(end_month)%>&end_date=<%=(end_date)%>&page=<%=page-1%>">上一页</A> <A href="<%request.servervariables("document_name")%>?start_year=<%=int(start_year)%>&start_month=<%=int(start_month)%>&start_date=<%=int(start_date)%>&end_year=<%=int(end_year)%>&end_month=<%=int(end_month)%>&end_date=<%=int(end_date)%>&page=<%=page+1%>">下一页</A>
转到第 <select onchange="window.location='?start_year=<%=int(start_year)%>&start_month=<%=int(start_month)%>&start_date=<%=int(start_date)%>&end_year=<%=int(end_year)%>&end_month=<%=int(end_month)%>&end_date=<%=int(end_date)%>&page='+this.value" name="gopage">
<%for x=1 to rs.pagecount%>
<OPTION <%if x=page then%>selected<%end if%> value=<%=x%>><%=x%></OPTION>
<%next%>
</SELECT>页
</div>
<%rs.close%> </td>
</tr>
</table>
</div>
<%
set rsq=conn.execute("select sum(sub_totalcash) from sub where sub_date > #"&start_day&"# and sub_date < #"&end_day&"# and sub_payok=true")
set rst=conn.execute("select sum(sub_totalcash) from sub where sub_date > #"&start_day&"# and sub_date < #"&end_day&"# and sub_payok=false")
a1=rsq(0)
a2=rst(0)
if rsq(0)&"1"="1" then a1=0
if rst(0)&"1"="1" then a2=0
%><br><br><br>
<%=start_year%>年<%=start_month%>月<%=start_date%>日成交订单总额为：<font color="#FF0000"><%=a1%></font><br><br>
<%=start_year%>年<%=start_month%>月<%=start_date%>日未成交订单总额为：<font color="#FF0000"><%=a2%></font><br>
<%
set rs=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?