从数据库获取下拉列表的信息
<%Private Function setselected(op)
Dim i
i=1
if op=2 then
do while i<11 %>
<option value="<%=i%>"<%if bookedition=i then%>selected<%end if%>><%=i%>
</option>"
<%i=i+1
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 %>
<option value="<%=rs("booktypename")%>"<%if booktype=rs("booktypename")then %>selected<%end if%>><%=rs("booktypename")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing
end if
end function
%>
有那位高手能帮我解释下这段代码的含义吗？其中红色部门能详细说明下吗？或者可以推荐我看那些相关内容的文章，或者有什么好的网址可推荐？多谢谢啦
