searchpasssave.asp

来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 91 行

ASP
91 行
字号 
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
%>
<%
if session("admin_rank")<>1 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body style="background-color: #F0FBF1">
<p align="center">
<b><font size="3">
<%
yearfrom=request("yearfrom")
monthfrom=request("monthfrom")
dayfrom=request("dayfrom")
yearto=request("yearto")
monthto=request("monthto")
dayto=request("dayto")
if len(yearfrom&"/"&monthfrom&"/"&dayfrom)<8 and len(yearto&"/"&monthto&"/"&dayto)<8 then%>
您选择的日期有错误,您重新选择!<a href="searchpass.asp"><font color="#FF0000">返回</font></a><font color="#FF0000">!</font>
<%else%>
<% 
dnow=cdate(yearfrom&"/"&monthfrom&"/"&dayfrom)
tnow=cdate(yearto&"/"&monthto&"/"&dayto)
%>
 <%end if%>
从<%=dnow%>到<%=tnow%>订单明细表
 <br>
　</font></b></p>
 </p>
 <table border="1" width="100%" bordercolorlight="#C0C0C0" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" height="80">
	<tr>
		<td width="197" align="center" height="25">时&nbsp; 间</td>
		<td width="183" align="center" height="25">订单号</td>
		<td width="203" align="center" height="25">零售价</td>
		<td width="161" align="center" height="25">进价</td>
	        <td width="110" align="center" height="25">订购数量</td>
	        <td width="109" align="center" height="25">盈利</td>
	</tr>
<%
tnow=dateadd("h",24,cdate(yearto&"/"&monthto&"/"&dayto))
sql="select hw.hw_jj,sub.hw_cash,sub.sub_number,sub.hw_name,sub.hw_count,sub.sub_date,hw.hw_cz from hw,sub where hw.hw_name = sub.hw_name and sub.sub_date <= #" & tnow & "# and sub.sub_date >= #"& dnow & "#  and sub_payok = true"
rs.open sql,conn,3,3
totalcash=0
totalcash1=0
totalcash2=0
do while not rs.eof

    zhuan=rs("hw_count")*Round(rs("hw_cash")-rs("hw_jj"),2)
    if rs("hw_cz")="0" then
	totalcash1=totalcash1+zhuan
	 else
	totalcash2=totalcash2+zhuan
	end if
%>
  	<tr>
		<td width="197" align="center" height="25"><%=rs("sub_date")%></td>
		<td width="183" align="center" height="25"><A href="searchorder_jg.asp?ordernumber=<%=rs("sub_number")%>"><font color="0000ff"><%=rs("sub_number")%></font></A></td>
		<td width="203" align="center" height="25"><%=rs("hw_cash")%></td>
		<td width="161" align="center" height="25"><%=rs("hw_jj")%>　</td>
	    <td width="110" align="center" height="25"><%=rs("hw_count")%></td>
	    <td width="109" align="center" height="25"><%=zhuan%>　</td>
	</tr>
<%
rs.movenext
loop
rs.close
totalcash=totalcash1+totalcash2
%></table>
 
 　<p><b><font color="#FF0000">共盈利金额 <%=totalcash%>元
</font></b></p>
<p><font color="#FF0000"><b>其中在线充值卡盈利：<%=totalcash2%>元

</b></font></p>
<p><font color="#FF0000"><b>非在线充值卡类盈利：<%=totalcash1%>元

</b></font></p>
<%
set rs=nothing

conn.close
set conn=nothing
%>

searchpasssave.asp - 源码说明

本页面展示了「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测试」中的 searchpasssave.asp 源码文件，采用 ASP 编程语言编写，共 91 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与MD5相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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