<%'设置课程列表下拉选框
'去掉课程选项！！！
if session("courseid")="" or strCourseId <>"" or strCourseall="allcourse" then
'获取课程编号
  strSql="select cus_id,cus_Name from course where cus_time='" & thissemester & "'"
  set rs=my_conn.Execute (strSql)
  if not rs.eof then
%>
  </td><td width="385" valign="bottom">
<form method="POST" action="expbespoke.asp">
  <select size="1" name="courseno">
<%
    while not rs.eof
%>
    <option value= <% =rs("cus_id") %><% if rs("cus_id")=strCourseid then response.write(" selected") %>><% =rs("cus_Name") %></option>
<%
      rs.movenext
    wend
%>
  </select>
  <input type="submit" value="选择课程" name="B1"></p></td>
</form>
<%
  end if
end if