<%
Dim kb(6,7) '第一维表示周几,第二维表示第几堂课
'自己给kb数组赋值
Response.Write "
"
Response.Write " | 周一 | 周二 | 周三 | 周四 | 周五 | 周六 | 周日 |
"
Dim i, j
For i = 0 To 7
Response.Write "第" & i + 1 & "堂 | "
For j = 0 To 6
Response.Write "" & kb(j,i) & " | "
Next
Response.Write "
"
Next
Response.Write "
"
%>