用循环做课程表输出表格

作者：袖梨 2022-06-30

最近在做一个实验、机房预约系统，最开始用的dreamwaver做的表格，很大，而且程序共有3000多行，很不方便管理和修改~
最近用循环和判断做了一个输出表格，源程序如下

<%
hang=41 '行变量
lie=9 '列变量
leirong=blie&" "&bhang
for bhang=1 to hang
response.write("")
'------------------------------------------------控制星期开始
for blie=1 to lie
if bhang=1 then
if blie=1 then
response.Write("")
end if
end if
else
if ((bhang+2) mod 4)=0 and blie=1 then
response.Write("")
else
if not blie=9 then
'------------------------------控制实验名称、班级、任课教师内容开始
if (not blie=1) and ((bhang+2) mod 4=0) then
response.write("

第"&weektime&"周")
else
if not blie=9 then
response.Write("

")
xqnotemp=blie-1
if xqnotemp=1 then xqno="一"
if xqnotemp=2 then xqno="二"
if xqnotemp=3 then xqno="三"
if xqnotemp=4 then xqno="四"
if xqnotemp=5 then xqno="五"
if xqnotemp=6 then xqno="六"
if xqnotemp=7 then xqno="日"
response.Write("星期"&xqno)
response.write("

"&(bhang+2)/4&"小节")
response.Write(" ")
response.write("

")
response.write("实验名称")
response.write("

")
response.write("")
rs.open "select * from lesson",conn,1,1