📄 site.asp
字号:
<%
If request("mode")<>"print" Then
%>
<!--#include file="navigator.asp"-->
<%
End If
%>
<!--#include file="datconfig.asp"-->
<!--#include file="sitecode.asp"-->
<%
'检查用户的操作权限
if GetSess("UserName")<>"超级用户" Then CheckAuthor(18)
Dim MySql
Dim sDate1,sDate2,sHour1,sHour2,sPayMethod,lPayMethod,sOperator
Dim QuaTotal,AmoTotal,STotal,BxfTotal '合计参数
QuaTotal=0
AmoTotal=0
STotal=0
BxfTotal=0
'给出数据
GetInput
%>
<title>客人消费总报表</title>
<body style="font-family: 宋体; font-size: 10pt">
<%
'浏览模式显示该表格
If request("mode")<>"print" Then
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="20">
<tr>
<td width="100%"> </td>
</tr>
</table>
<%
End If
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#808080" width="96%" id="AutoNumber3" height="21">
<tr>
<td height="50" colspan="2" align="center" width="760">
<br><span style="letter-spacing: 3pt; ">【<%=CompanyName%>】按座位统计消费</span></td>
</tr>
<tr><form method="POST" action="site.asp" name="Query">
<td align="center" bgcolor="#FDFDD0" height="25" style="font-family: 宋体; font-size: 9pt">
<%
If request("mode")<>"print" Then
%>
<a href="site.asp?mode=print&txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>&txtHour1=<%=sHour1%>&txtHour2=<%=sHour2%>&txtPaymethod=<%=sPaymethod%>&txtOperator=<%=sOperator%>">
<font color="#008080"><img border="0" src="images/show11.gif" align="absmiddle" alt="打印模式"> 打印模式</font></a><font color="#008080">
<%
Else
%> </font>
<a href="site.asp?txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>&txtHour1=<%=sHour1%>&txtHour2=<%=sHour2%>&txtPaymethod=<%=sPaymethod%>&txtOperator=<%=sOperator%>">
<font color="#008080">
<img border="0" src="images/paper.gif" align="texttop" alt="浏览模式"> 浏览模式</font></a><font color="#008080">
<%
End If
%> </font>
</td>
<td align="right" style="font-family: 宋体; font-size: 9pt" bgcolor="#FDFDD0" height="25">
<input type="text" value="<%=sDate1%>" name="txtDate1" size="8" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; padding-left:3; padding-right:3; padding-top:1; background-color:#FDFDD0">
<input type="text" value="<%=sHour1%>" name="txtHour1" size="1" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; background-color:#FDFDD0">点<font color="#0099CC"><span lang="en-gb">-</span></font><input type="text" name="txtDate2" value="<%=sDate2%>" size="8" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; padding-left:2; padding-right:2; padding-top:1; background-color:#FDFDD0">
<input type="text" value="<%=sHour2%>" name="txtHour2" size="1" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; background-color:#FDFDD0">点<span lang="en-gb">
</span><font color="#008080">服务员:</font><span lang="en-gb"><select size="1" name="txtPayMethod" style="color: #008080; position: relative; top: 2; border: 1px solid #DCF7FC">
<option value="所有服务员">所有服务员</option><% WriteWaiter(sPaymethod)%>
</select><select size="1" name="txtOperator" style="position: relative; top: 2; border: 1px solid #0099CC">
<option value="所有操作员">所有操作员
</option><% WriteOperator(sOperator)%>
</select>
</span>
<input type="submit" value="搜索" name="B1" style="color: #111111; height: 20; font-size: 10pt; font-family: 宋体; border: 1px solid #FFFF00; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #C0C0C0"><input type="button" value="打印" name="Printit" onClick="window.print();" style="color: #111111; height: 20; border: 1px solid #FFFF00; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #C0C0C0"> </td>
</tr></form>
</table>
</center>
</div>
<%
Dim NewDBC
Set NewDBC=CreateObject("ADODB.Connection")
NewDBC.Open Constring
Set objRs=CreateObject("ADODB.Recordset")
objRs.Open MySQL,NewDBC,adOpenKeySet, adLockOptimistic, adcmdText
If objRS.eof then
objRS.Close
set objRS=nothing
CloseDatabase NewDBC
Response.write "<P Align='Center'>没有记录,请改变日期再试试?</font></P>"
Else
%>
<div align="center">
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse; font-family: 宋体; font-size: 9pt; color:#006699" bordercolor="#000000" width="96%" id="AutoNumber4" bordercolordark="#000000" bordercolorlight="#000000" height="40">
<tr>
<td width="61" bgcolor="#F1FAFC" align="center"><font color="#008080">消费单号</font></td>
<td bgcolor="#F1FAFC" align="center" width="59"> <font color="#008080">消费时间</font></td>
<td bgcolor="#F1FAFC" align="center" width="22"><font color="#008080">时</font></td>
<td bgcolor="#F1FAFC" align="center" width="21"><font color="#008080">分</font></td>
<td width="84" bgcolor="#F1FAFC" align="center"><font color="#008080">座位</font></td>
<td width="60" bgcolor="#F1FAFC" align="center"><font color="#008080">包厢费</font></td>
<td width="80" bgcolor="#F1FAFC" align="center"><font color="#008080">消费金额</font></td>
<td bgcolor="#F1FAFC" align="center" width="36"><font color="#008080">打折</font></td>
<td width="80" bgcolor="#F1FAFC" align="center"><font color="#008080">实付金额</font></td>
<td width="53" bgcolor="#F1FAFC" align="center"><font color="#008080">服务员</font></td>
<td width="53" bgcolor="#F1FAFC" align="center"><font color="#008080">收银员</font></td>
</tr>
<%
WriteList '写列表
CloseDatabase NewDBC
%> <tr>
<td colspan="5" bgcolor="#FFFFFF" align="center" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#000000" width="259">
<font color="#008080"><span lang="zh-cn">【</span>合计<span lang="zh-cn">】</span> <span lang="zh-cn">共〖</span><b><font size="2"><%=FormatNumber(STotal,0,-1)%></font></b><span lang="zh-cn">〗条记录</span>
</font></td>
<td bgcolor="#FDFDD0" align="right" bordercolor="#C0C0C0" bordercolorlight="#000000" bordercolordark="#000000" width="60">
<span lang="en-gb"><font color="#006699"><%=FormatNumber(BxfTotal,2,-1)%></font></span> </td>
<td bgcolor="#FDFDD0" align="right" bordercolor="#C0C0C0" bordercolorlight="#000000" bordercolordark="#000000" width="80">
<span lang="en-gb"><font color="#006699"><%=FormatNumber(AmoTotal,2,-1)%></font></span> </td>
</td>
<td bgcolor="#FDFDD0" align="right" bordercolor="#C0C0C0" bordercolorlight="#000000" bordercolordark="#000000" width="36">
</td>
<td bgcolor="#FDFDD0" align="right" bordercolor="#C0C0C0" bordercolorlight="#000000" bordercolordark="#000000" width="80">
<font color="#006699"><%=FormatNumber(QuaTotal,2,-1)%></font> </td>
<td bgcolor="#FDFDD0" align="right" bordercolor="#C0C0C0" bordercolorlight="#000000" bordercolordark="#000000" width="53"> </td>
<td bgcolor="#FDFDD0" align="right" bordercolor="#C0C0C0" bordercolorlight="#000000" bordercolordark="#000000" width="53"> </td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellspacing="1" style="border-collapse: collapse; font-family:宋体; font-size:9pt" bordercolor="#111111" width="96%" id="AutoNumber5">
<tr>
<td width="33%" height="3"></td>
<td width="33%" height="3"></td>
<td width="34%" align="right" height="3"></td>
</tr>
<tr>
<td width="33%"><font color="#808080"> 制单：</font><font color="#006699"><span lang="en-gb"><%=Getsess("Username")%></span></font></td>
<td width="33%"> </td>
<td width="34%" align="right"><font color="#808080">日期：</font><font color="#006699"><span lang="en-gb"><%=Date%></span></font></td>
</tr>
<tr>
<td width="33%"> </td>
<td width="33%"> </td>
<td width="34%" align="right"><font color="#808080"><%=CompanyName%></font></td>
</tr>
</table>
</center>
</div>
<%
End if
'生成查询串,再第一次访问时。
Sub GenerateSQL
Dim Sqlproc
Dim Key
Dim Sqladd
SqlAdd=" And "
'检测是SQL还是access数据库
MySql = "Select * from Site "
Dim sqlTmp
If sOperator <> "所有操作员" Then
sqlTMp = sqlTMp & " And (CheckOutMan='" & sOperator & "')"
End If
If sPayMethod <> "所有服务员" Then
sqlTMp = sqlTMp & " And (Waiter='" & sPayMethod & "')"
End If
'两日期相同,为同一天时
If sDate1=sDate2 Then
If IsSqlDat = True Then
MySql=MySql & " Where ((lHour>=" & sHour1 & " And lHour<=" & sHour2 & ")" _
& " And (Date>='" & sDate1 & "' And Date<='" & sDate2 & "'))" & sqlTMp & " Order By ID"
Else
MySql=Mysql & " Where ((lHour>=" & sHour1 & " And lHour<=" & sHour2 & ")" _
& " And (Date>=#" & sDate1 & "# And Date<=# " & sDate2 & "#))" & sqlTMp & " Order By ID"
End If
Else
'两日之间的间隔时
If IsSqlDat = True Then
MySql=Mysql & " Where ((lHour>=" & sHour1 _
& " And Date='" & sDate1 & "') OR (Date>'" & sDate1 & "' And Date<'" & sDate2 _
& "') Or (lHour<=" & sHour2 & " And Date='" & sDate2 & "'))" & sqlTMp & " Order By ID"
Else
MySql=Mysql & " Where ((lHour>=" & sHour1 _
& " And Date=#" & sDate1 & "#) OR (Date>#" & sDate1 & "# And Date<#" & sDate2 _
& "#) Or (lHour<=" & sHour2 & " And Date=#" & sDate2 & "#))" & sqlTMp & " Order By ID"
End If
End If
End sub
'给出查询变量参数
Sub GetInput
'给出日期段 ******************************
sDate1=request("txtDate1")
sDate2=request("txtdate2")
If Not Isdate(sDate1) Then
sDate1=Date-7
End If
If Not Isdate(sDate2) Then
sDate2=Date
End If
If cDate(sdate1)>CDate(sDate2) Then
sDate1=sDate2
End If
'*****************************************
'给出点段---------------------------------
sHour1=request("txtHour1")
sHour2=request("txtHour2")
If sHour1="" Then sHour1=0
If sHour2="" Then sHour2=23
If Not IsNumeric(sHour1) Then
sHour1=0
Else
If cInt(sHour1)>23 Then
sHour1=23
End If
End If
If Not IsNumeric(sHour2) Then
sHour2=23
Else
If cInt(sHour2)>23 Then
sHour2=23
End If
End If
'-----------------------------------------
sPaymethod=request("txtPayMethod")
sOperator=request("txtOperator")
If sPaymethod="" Then sPaymethod="所有服务员"
If sOperator="" Then sOperator="所有操作员"
'打开查询字符串
GenerateSQL
End sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -