从数据库获取下拉列表的信息

刚介入编程的人，除非极具天赋，否则别指望看几遍就能马上理解其全部涵义，刻意去学或记东西真的没有这个必要！短时间练不出天才的！

还是那句老话，读码百遍，其意自现！很多东西用久了，自然你就记在心中了！

<%
Private Function setselected(op)
  Dim i
  i=1
  if op=2 then
    do while i<11
       With Response
           .Write "<option value="&i&"
           if bookedition=i then
              .Write " selected "
           end if
           .Write ">"&i
           .Write "</option>"
           i=i+1
        End With   
     loop
  end if
  if op=1 then
     '获取图书类型
    Dim Rs,Sql
    Set Rs=Server.Createobject("adodb.recordset")
    sql=""select booktypename from booktypeinfo"
    rs.open sql,actionconn,3,2
   do while not rs.eof
      With Response
         .Write "<option value="&rs("booktypename")
         if booktype=rs("booktypename")then
            .Write " selected "
         end if
         .Write ">"&rs("booktypename")&"</option>"
      End With
      rs.movenext
   loop
   rs.close
   set rs=nothing
 end if
end function
%>
养成注意格式的习惯很重要