admin_checkbookstatus.asp

依蓝旅游网站管理系统Elan2008.SP2

<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<%
On Error Resume Next
Dim BookCmd, rsBook
Dim HotelBookNum, FlightBookNum, ProductBookNum, SightBookNum, CarBookNum, ShopBookNum

Call EL_Common.InitCommonCmd(BookCmd, rsBook, "EL_HotelBook", "COUNT(BookID)", "BookStatus=0 And Deleted=0")
HotelBookNum = rsBook(0)
rsBook.Close

Call EL_Common.InitCommonCmd(BookCmd, rsBook, "EL_FlightBook", "COUNT(BookID)", "BookStatus=0 And Deleted=0")
FlightBookNum = rsBook(0)
rsBook.Close

Call EL_Common.InitCommonCmd(BookCmd, rsBook, "EL_ProductBook", "COUNT(BookID)", "BookStatus=0 And Deleted=0")
ProductBookNum = rsBook(0)
rsBook.Close

Call EL_Common.InitCommonCmd(BookCmd, rsBook, "EL_SightBook", "COUNT(BookID)", "BookStatus=0 And Deleted=0")
SightBookNum = rsBook(0)
rsBook.Close

Call EL_Common.InitCommonCmd(BookCmd, rsBook, "EL_CarBook", "COUNT(BookID)", "BookStatus=0 And Deleted=0")
CarBookNum = rsBook(0)
rsBook.Close

Call EL_Common.InitCommonCmd(BookCmd, rsBook, "EL_ShopBook", "COUNT(BookID)", "BookStatus=0 And Deleted=0")
ShopBookNum = rsBook(0)
rsBook.Close

Set rsBook = Nothing
Set BookCmd = Nothing

Response.Clear()
If Err Then
   Err.Clear
   Response.Write "0"
Else
   Response.Write HotelBookNum &"|"& FlightBookNum &"|"& ProductBookNum &"|"& SightBookNum &"|"& CarBookNum &"|"& ShopBookNum
End If
%>