% 'On Error Resume Next Set conn = server.CreateObject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("##fangyuan.mdb") currentYear = Year(Now) currentMonth = Month(Now) nextMonth = 0 preMonth = 0 nextMonth = Request.QueryString("next") If nextMonth = "" Then nextMonth = 0 End If preMonth = nextMonth - 1 nextMonth = nextMonth + 1 DateSerialString = DateSerial(currentYear, currentMonth + nextMonth, 1)-1 DateSerialString = CDate(DateSerialString) maxDay = Day(DateSerialString) For i=1 To 15 TD = TD&"
欢迎登录房态查询系统
房型 | 房号 | <%=TD%>房型 | 房号 | <%=TD2%>||||||
房型 | 房号 | "&TD&"房型 | 房号 | "&TD2&"||||||
"&rs("fname")&" | "&rs("name")&" | " For j=1 To 15 rsHasOrder.open "select Enroll.description,Enroll.sort from Enroll where Enroll.typeid="&rs("id")&" and Enroll.year="&Year(DateSerialString)&" and Enroll.month="&Month(DateSerialString)&" and Enroll.day="&j,conn,1,1 description = "" sort = 0 If Not rsHasOrder.eof Then description = rsHasOrder("description") sort = rsHasOrder("sort") End If rsHasOrder.close If description <> "" Then If sort = 1 Then Response.write ""&description&" | " Else Response.write ""&description&" | " End If Else Response.write "" End If Next Response.write " | "&rs("fname")&" | "&rs("name")&" | " For j=16 To maxDay rsHasOrder.open "select Enroll.description,Enroll.sort from Enroll where Enroll.typeid="&rs("id")&" and Enroll.year="&Year(DateSerialString)&" and Enroll.month="&Month(DateSerialString)&" and Enroll.day="&j,conn,1,1 description = "" sort = 0 If Not rsHasOrder.eof Then description = rsHasOrder("description") sort = rsHasOrder("sort") End If rsHasOrder.close If description <> "" Then If sort = 1 Then Response.write ""&description&" | " Else Response.write ""&description&" | " End If Else Response.write "" End If Next Response.write " |
房型 | 房号 | <%=TD%>房型 | 房号 | <%=TD2%>