📄 daysale.asp
字号:
<%
IF not(Session("Rightword")="admin" or session("Rightword")="check" ) THEN
response.write "<script language='javascript'>alert('您没有进出该模块的权限');</script>"
response.end
END IF
%>
<!-- pingmac www.pingmac.com -->
<!--#include file="../inc/SysLoginCheck.inc.asp" -->
<!--#include file="../dbconnect/conn.asp" -->
<%
msaleyear=year(now())
msalemonth=month(now())
msaleday=day(now())
'on error resume next
dim pmcount,pageno
dim rs,sql
set rs=server.createobject("adodb.recordset")
s_saletypes = trim(request("saletypes"))
s_keyword = trim(request("keyword"))
%>
<HTML><HEAD><TITLE>拼码科技有限公司内部帐务管理系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=AwcJ1RsIjWE0wvytYsiTLpqeJX0k6iRED0vPUQTzXsg= name=verify-v1>
<META http-equiv=Pragma content=no-cache>
<SCRIPT language=javascript src="java/Public.htm"></SCRIPT>
<LINK href="../css/style.css" type=text/css rel=stylesheet>
<STYLE>
.Div_LongTable2 {
OVERFLOW-Y: visible; OVERFLOW-X: auto; WIDTH: 755px
}
</STYLE>
<META content="MSHTML 6.00.2900.3020" name=GENERATOR></HEAD>
<script language="JavaScript">
<!--
function doValid()
{
if (document.Search.keyword.value=="")
{
alert("请输入关键字");
document.Search.keyword.focus();
return false;
}
waiting.style.visibility = "visible";
document.Search.submit();
}
//-->
</script>
<BODY leftMargin=4 topMargin=12
onload="">
<DIV id=waiting
style="Z-INDEX: 10; LEFT: 20px; VISIBILITY: hidden; POSITION: absolute; TOP: 220px">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="30%"></TD>
<TD bgColor=#ff9900>
<TABLE height=70 cellSpacing=2 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#eeeeee>正在查询帐务系统,
请稍候...</TD></TR></TBODY></TABLE></TD>
<TD width="30%"></TD></TR></TBODY></TABLE></DIV>
<DIV id=pmLoading
style="Z-INDEX: 10; LEFT: 20px; POSITION: absolute; TOP: 220px">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="30%"></TD>
<TD bgColor=#ff9900>
<TABLE height=70 cellSpacing=2 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#eeeeee>正在载入数据,
请稍候...</TD></TR></TBODY></TABLE></TD>
<TD width="30%"></TD></TR></TBODY></TABLE></DIV>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=right border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE class=Bg_Rim cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD class=Bg_BgColor vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=TitleBg>
<form action=daysale.asp method=post name="toGetNewsList" id="Search">
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR height=22>
<TD width="15%"> <INPUT
class=INPUT_Border0
type=radio CHECKED value=Designation
name=saletypes> 按品名查询</TD>
<TD width="15%">
<INPUT
class=INPUT_Border0
type=radio value=Remarks
name=saletypes> 按备注查询</TD>
<TD width="18%">
<INPUT class=INPUT_Border0
type=radio value=saleTotal
name=saletypes> 按金额查询</TD>
<TD width="20%"> <INPUT
name=keyword id="keyword"
value="<%=keyword%>" maxLength=80></TD>
<TD width="32%"><INPUT class=button_small onclick="return doValid();" type=button value=" 查 询 " name="post"></TD>
</TR>
</TBODY></TABLE>
</form>
</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD
onmouseup="with(findObj('TopArea'))if(style.display=='none'){style.display='';}else{style.display='none';}"
class=CrossbandBg align=middle><IMG height=8
src="../images/ArrowDisplay.gif" width=10
border=0></TD></TR></TBODY></TABLE></TD></TR>
<TR id=TopArea>
<TD class=TopArea>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD align=middle width="3%" height=32><IMG
height=20
src="../images/Ico_CircleBlue1.gif"
width=20></TD>
<TD class=AreaName width="12%">当日销售当前统计<font color=ff0000><%
Set Rsv = Conn.execute("Select count(id) as id From SalesData where saleyear='"&msaleyear&"' and salemonth='"&msalemonth&"' and saleday='"&msaleday&"'")
Response.Write(Rsv("id"))
rsv.close
set rsv=nothing
%></font>条 </TD>
<TD class=AreaName align=right width="20%"><div align="center">当前日期：<%=year(now()) & "年" & month(now()) & "月" & day(now()) & "日"%> </div>
<TD class=AreaName align=middle width="40%"> </TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="96%"
align=center border=0>
<TBODY>
<TR>
<TD class=DashedFrame_Angle_1><IMG height=1
width=1></TD>
<TD class=DashedFrame_Top><IMG height=1
width=1></TD>
<TD class=DashedFrame_Angle_2><IMG height=1
width=1></TD>
</TR>
<TR>
<TD class=DashedFrame_Left><IMG height=1
width=1></TD>
<TD class=DashedFrame_Bg>
<TABLE cellSpacing=0 cellPadding=0 width="96%"
align=center border=0>
<TBODY>
<TR>
<TD width="2%" height=20><IMG height=5
src="../images/Ico_Dot.gif" width=5></TD>
<TD width="8%" class=grayTxt>实收合计:</TD>
<TD width="14%" class=blueTxt><span class="redTxt"><b><%
Set Rsa = Conn.execute("Select Sum(Revenue) as sumreveuue,Sum(saleTotal) as sumtotal,Sum(saleOwed) as sumowed,Sum(Expenditure) as sumexp From SalesData where saleyear='"&msaleyear&"' and salemonth='"&msalemonth&"' and saleday='"&msaleday&"'")
Response.Write(Rsa("sumreveuue"))
%>
</b></span></TD>
<TD width="2%"><IMG height=5
src="../images/Ico_Dot.gif" width=5></TD>
<TD width="8%" class=grayTxt>进帐合计:</TD>
<TD width="13%" class=blueTxt><span class="redTxt"><% if Rsa("sumtotal")<>0 then
Response.Write(Rsa("sumtotal"))
else
Response.Write"0"
end if
%></span></TD>
<TD width="2%" class=blueTxt><IMG height=5
src="../images/Ico_Dot.gif" width=5></TD>
<TD width="12%" class=grayTxt>今日支出合计:</TD>
<TD width="11%" class=blueTxt><span class="redTxt"><% if Rsa("sumexp")<>0 then
Response.Write(Rsa("sumexp"))
else
Response.Write"0"
end if
%></span></TD>
<TD width="2%" class=blueTxt><IMG height=5
src="../images/Ico_Dot.gif" width=5></TD>
<TD width="12%" class=grayTxt>赊欠合计:</TD>
<TD width="14%" class=blueTxt><span class="redTxt"><% if Rsa("sumexp")<>0 then
Response.Write(Rsa("sumowed"))
else
Response.Write"0"
end if
%></span></TD>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -