📄 tj.asp

📁 星级酒店管理系统（附带系统自写控件源码）
💻 ASP
字号:
<%
 If request("mode")<>"print" Then
%>
<!--#include file="navigator.asp"-->
<%
 End If
%>
<!--#include file="datconfig.asp"-->
<!--#include file="tjcode.asp"-->
<%
 '检查用户的操作权限
  if GetSess("UserName")<>"超级用户" Then  CheckAuthor(14)
  
  Dim MySql 
  Dim sDate1,sDate2
  Dim QuaTotal,AmoTotal,STotal       '合计参数          
      QuaTotal=0
      AmoTotal=0
      STotal=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="tj.asp" name="Query">

    <td width="12%" align="center" bgcolor="#DCF7FC" height="25" style="font-family: 宋体; font-size: 9pt">
    <%
    If request("mode")<>"print" Then
    %>
    <a href="tj.asp?mode=print&txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>"><font color="#006699"><img border="0" src="images/show11.gif" align="absmiddle" alt="打印模式"> 打印模式</font></a>
    <%
     Else
     %>
    <a href="tj.asp?txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>"><font color="#006699">
    <img border="0" src="images/paper.gif" align="texttop" alt="浏览模式"> 浏览模式</font></a>     
     <%
    End If
    %>
    </td>
    <td align="right" style="font-family: 宋体; font-size: 9pt" bgcolor="#DCF7FC" height="25">&nbsp; 日期:<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:#DCF7FC"> 
    至<span lang="en-gb"> </span>
    <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:#DCF7FC"><span lang="en-gb">
    </span><input type="submit" value="搜索" name="B1" style="color: #FFFFFF; height: 20; font-size: 10pt; font-family: 宋体; border: 1px solid #00FFFF; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #0099CC"><input type="button" value="打印" name="Printit" onClick="window.print();" style="color: #FFFFFF; height: 20; border: 1px solid #00FFFF; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #0099CC"> </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="#808080" width="96%" id="AutoNumber4" bordercolordark="#808080" bordercolorlight="#808080" height="40">

  <tr>
    <td width="22%" bgcolor="#FBF4EA" align="center">
    <font color="#006699"><span style="letter-spacing: 2">消费日期</span></td>
    <td width="22%" bgcolor="#FBF4EA" align="center">
    <span style="letter-spacing: 2">项目名称</span></td>
    <td width="22%" bgcolor="#FBF4EA" align="center">
    <span style="letter-spacing: 2">消费金额</span></td>
    <td width="22%" bgcolor="#FBF4EA" align="center">
    <span style="letter-spacing: 2">上台笔数</span></td>
  </tr>
  <%        
      WriteList         '写列表
      CloseDatabase NewDBC
    %>   <tr>
    <td width="44%" bgcolor="#FFFFFF" colspan="2" align="center"  bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
    <font color="#006699"><span lang="zh-cn">【</span> 合<span lang="en-gb"> </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><span lang="zh-cn">条记录</span></td>
    <td width="22%" bgcolor="#DCF7FC" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
    <span lang="en-gb"><font color="#000000"><%=FormatNumber(AmoTotal,2,-1) & "元"%></font></span>　</td>
    <td width="22%" bgcolor="#DCF7FC" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0"><%=QuaTotal%>台</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">&nbsp;制单：</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数据库 
    If IsSqlDat = True Then
       MySql = "Select * from tbdCash Where DDate>='" & sDate1 & "' And DDate<='" & sDate2 & "' Order By Ddate Desc"
     Else
       MySql = "Select * from tbdCash Where DDate>=#" & sDate1 & "# And DDate<=#" & sDate2 & "# Order By Ddate Desc"
     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     
    '*****************************************                  
    '打开查询字符串
      GenerateSQL            
End sub            
  %>
⌨️ 快捷键说明

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