|
<%
set conn= Server.CreateObject("ADODB.Connection")
set rs= Server.CreateObject("ADODB.RecordSet")
set rs1= Server.CreateObject("ADODB.RecordSet")
set rs2= Server.CreateObject("ADODB.RecordSet")
set rs3= Server.CreateObject("ADODB.RecordSet")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open =server.MapPath("../solo/now23.mdb")
dim cday
cday=WeekdayName(weekday(date))
dim hr
hr=hour(now)
min1=Minute(now)
ctime=cStr(hr)+ "."+ cStr(min1)
dim sql
%>
<%
'for i=1 to 5
'c=i
'cs="h"+cStr(c)
'chall=cs
sql="select distinct hall from info"
rs.open sql,conn
dim chall
do until rs.EOF
chall=rs("hall")
%>
<%=chall%>
Coursess
<%
sql1="select distinct course_name from info where hall='"&chall&"'"
rs1.open sql1,conn
do until rs1.EOF
crname=rs1("course_name")
%>
<%=rs1("course_name")%>
Timetable
<% sql2="select distinct day , time from info where hall='"&chall&"' and course_name='"&crname&"' order by day desc"
rs2.open sql2,conn
do until rs2.EOF
distday=rs2("day")
//subday=Mid(distday,1,3)
subday=distday
%>
| <%=subday%>
|
<%
rs2.MoveNext
loop
rs2.close
%>
<%
sql3="select distinct day , time from info where hall='"&chall&"' and course_name='"&crname&"'"
rs3.open sql3,conn
do until rs3.EOF
tim1 = rs3("time")
tim2 = Len(tim1)
tim3 = Len(tim1)
if tim2 =2 then
tim1 = tim1 & ":00"
//response.write("two")
end if
if tim3 =3 then
tim1 = tim1 & "0"
end if
//tim1 = Mid(tim1,1,3)
//tim1 = Replace(tim1,":00","")
//tim1 = Left(tim1,Len(tim1)-3)
tim1 = Replace(tim1,".",":")
// tim1 = FormatDateTime(tim1,4)
//tim1 = Replace(tim1,":00","")
//tim1 = Left(tim1, Len(tim1)-6)
//tim1 = CDate(tim1)
//tim1 = Right(tim1, Len(tim1)-9)
%>
<%=tim1%> |
<%
rs3.MoveNext
loop
rs3.close
%>
<%
rs1.MoveNext
loop
rs1.close
%>
<%
rs.MoveNext
loop
rs.close
%> |