代码精简
我想把学龄前和小学课程也加入循环里，精简底下的代码。谢谢
数据库：
IdCoursesNameCoursesKeyPx
1学龄前01
2小学课程02
15启蒙教育11
16学前教育12
20小学语文21
21小学数学22
<li>
<h3 class="c_gray1">学龄前</h3>
<dl>
<%
Rs.Open "select * from CoursesTbl Where CoursesKey = 1 Order By Px asc" , Conn , 1 , 1
Do While Not Rs.Eof
Response.Write("<span class=c_gray2><label><input type=checkbox id=MyCourses name=MyCourses value="""& Rs("CoursesName") &""" /><cite>"& Rs("CoursesName") &"</cite></label></span>")
Rs.MoveNext
Loop
Rs.Close
%>
</dl>
<div class="clear"></div>
</li>
<li>
<h3 class="c_gray1">小学课程</h3>
<dl>
<%
Rs.Open "select * from CoursesTbl Where CoursesKey = 2 Order By Px asc" , Conn , 1 , 1
Do While Not Rs.Eof
Response.Write("<span class=c_gray2><label><input type=checkbox id=MyCourses name=MyCourses value="""& Rs("CoursesName") &""" /><cite>"& Rs("CoursesName") &"</cite></label></span>")
Rs.MoveNext
Loop
Rs.Close
%>
</dl>
<div class="clear"></div>
</li>
[解决办法]
上面忘了改SQL了 ，这个是改过的
<%for i=1 to 14%> '14的值我是看你数据库里得出的，有需要还可以自己加
<li>
<h3 class="c_gray1">(这里读出Coursesid='&i&'对应的Coursesname)再写个记录集读出来</h3>
<dl>
<%
Rs.Open "select * from CoursesTbl Where CoursesKey = '&i&' Order By Px asc" , Conn , 1 , 1
Do While Not Rs.Eof
Response.Write("<span class=c_gray2><label><input type=checkbox id=MyCourses name=MyCourses value="""& Rs("CoursesName") &""" /><cite>"& Rs("CoursesName") &"</cite></label></span>")
Rs.MoveNext
Loop
Rs.Close
%>
</dl>
<div class="clear"></div>
</li>
<%next%>
