tjcode.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
         
        '给出消费日期
         response.write "<td width='22%' bgcolor='" & nColor & "' align='Center'><font color='##000080'>"
         response.write objRs("Ddate") & "</font></td>" & vbcrlf         
        '给出项目名称
         response.write "<td width='22%' bgcolor='" & nColor & "' align='Left'><font color='##000080'>"
         response.write objRs("DType") & "</font></td>"  & vbcrlf         
        '给出消费金额
         response.write "<td width='22%' bgcolor='" & nColor & "' align='right'><font color='##000080'>"         
         response.write FormatNumber(objRs("DCash"),2,-1) & "元"
         response.write "</font></td>" & vbcrlf          
        '给出消费数量
         response.write "<td width='22%' bgcolor='" & nColor & "' align='Right'><font color='##000080'>"
         response.write objRs("DNumber") & "台"  
         response.write "</font></td>" & vbcrlf     
         response.write "</tr>"  & vbcrlf  
        
        '合计数据 
         QuaTotal=QuaTotal+objRs("DNumber")
         AmoTotal=AmoTotal+objRs("DCash")
         
         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
%>