选取课时

<% Response.Write "" & vbCrLf Response.Write "
" & vbCrLf Response.Write "固定排课" & vbCrLf Response.Write "

" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
课时列表： " & vbCrLf Response.Write " | " & vbCrLf Response.Write " | 已经选定的课时： " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
1节 " & vbCrLf Response.Write " | 2节 " & vbCrLf Response.Write " | 3节 " & vbCrLf Response.Write " | 4节 " & vbCrLf Response.Write " | >> " & vbCrLf Response.Write " | " & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
5节 " & vbCrLf Response.Write " | 6节 " & vbCrLf Response.Write " | 7节 " & vbCrLf Response.Write " | 8节 " & vbCrLf Response.Write " | " & vbCrLf Response.Write " | " & vbCrLf Response.Write "
" & vbCrLf Response.Write "

" & vbCrLf ShowStyle = PE_CLng(Trim(Request("Showstyle"))) If ShowStyle = 1 Then '星期 DaySelectVB = CStr(Trim(Request("DaySelect"))) DayTdVB = Right(DaySelectVB, Len(DaySelectVB) - 3) Dim A(20) For i = 0 To 22 - 1 - 1 A(i) = DateAdd("d", i * 7, CDate(DayTdVB)) Next astr = Join(A, """,""") Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Function PE_CLng(ByVal str1) If IsNumeric(str1) Then PE_CLng = CLng(str1) Else PE_CLng = 0 End If End Function Response.Write "
" & vbCrLf Response.Write "" & vbCrLf %>