menucode.asp

星级酒店管理系统（附带系统自写控件源码）

<%

 '给出消费总报表
  Sub WriteList
  
      On Error Resume Next
  
      Dim nColor
      Dim nRecord
      Dim sDLink                                           
      Dim bColorChange
      bColorChange=0
      nColor="#FAEFE4"
      nRecord=0

      Do while Not objRS.Eof                                   
         response.write "<tr>" & vbcrlf

        '给出ID
         response.write "<td width='61' bgcolor='" & nColor & "' align='Center'>"
         response.write "<a href='sheet.asp?ID=" & objRs("SheelID") & "'><img src='images/more.gif' alt='查看消费明细' border=0 align='absmiddle'>" _
             & "<font color=gray>" & objRs("SheelID") & "</font></a>"
         response.write "</td>" & vbcrlf
        '给出时间
         response.write "<td width='70' bgcolor='" & nColor & "' align='Center'>"
         response.write objRs("Date") & "</td>"  & vbcrlf         
        '给出食品分类
         response.write "<td width='60' bgcolor='" & nColor & "' align='Left'>"         
         response.write objRs("DType")
         response.write "</td>" & vbcrlf          
        '给出物品分类
         response.write "<td width='84' bgcolor='" & nColor & "' align='Left'>"
         response.write objRs("Name")  
         response.write "</td>" & vbcrlf     
        '给出单位
         response.write "<td width='30' bgcolor='" & nColor & "' align='Left'>"
         response.write objRs("Unit")  
         response.write "</td>" & vbcrlf      
        '给出单价
         response.write "<td width='70' bgcolor='" & nColor & "' align='right'>"
         response.write FormatNumber(objRs("Price"),2,-1)         
         response.write "</td>" & vbcrlf  
        '给出数量
         response.write "<td width='60' bgcolor='" & nColor & "' align='right'>"         
         response.write FormatNumber(objRs("Quanty"),2,-1)
         QuaTotal=QuaTotal+objRs("Quanty")
         response.write "</td>" & vbcrlf                    
        '给出金额
         response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
         response.write FormatNumber(objRs("Amo"),2,-1)
         AmoTotal=Amototal+objRs("Amo")
         response.write "</td>" & vbcrlf  
        '给出加工费
         response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
         response.write FormatNumber(objRs("JGF"),2,-1)
         BxfTotal=BxfTotal+objRS("JGF")
         response.write "</td>" & vbcrlf           
        '给出总金额
         response.write "<td width='90' bgcolor='" & nColor & "' align='Right'>"
         response.write FormatNumber(objRs("Amos"),2,-1)
         AmosTotal=AmosTotal+objRs("Amos")
         response.write "</td>" & vbcrlf  

         response.write "</tr>"  & vbcrlf                   
         objRs.Movenext        
  
       If  bColorChange=0 Then                   '变换网络底色
           BColorChange=1
           nColor="#FFFFFF"
       Else
           nColor="#FAEFE4"
           BColorChange=0
       End if     
       nRecord=nRecord+1
    Loop
    sTotal=nRecord                              '共有多少条记录
End Sub

%>