go.asp

这是一个文章管理的网页源程序

          <form name="form1" >
              转到:
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
           <% 
	sql="select class,classid from Aclass" 
	rs.open sql,conn,1,1 
	if rs.bof and rs.eof then 
		response.write "<option>没有任何分类</option>" 
	else 
	do while not rs.eof 
%>
                <option value="default.asp?classid=<%=rs("classid")%>">----<%=rs("class")%>----</option>
                  <% 
	sql1="select Nclass,Nclassid,classid from ANclass where classid="&rs("classid") 
	rs1.open sql1,conn,1,1 
	do while not rs1.eof 
%><option value="index.asp?classid=<%=rs1("classid")%>&Nclassid=<%=rs1("Nclassid")%>">　　<%=rs1("Nclass")%></option>
                  <% 
	rs1.movenext 
	loop 
	rs1.close 
%>
                
                  <% 
	rs.movenext 
	loop 
	end if 
	rs.close 
	set rs=nothing
%>
                  
          
        </select>
      </form>