bar2.asp

信息类网站的不错选择

<div align="center">
      <TABLE width="760" height="40" border=0 cellPadding=0 cellSpacing=0 id="table1">
        <TBODY>
        <TR>
          <TD width=79  background=images/1b.gif>
			<p align="center"><span lang="zh-cn"><a href="default.asp">首页</a></span></TD>
        
          <TD style="FONT-SIZE: 9pt" vAlign=center align=left 
          background=images/1b.gif width="479">
            
            &nbsp;&nbsp; 
        <%  
dim rs_bar,sqlwto                                            
Set rs_bar = Server.CreateObject("ADODB.Recordset")    
sqlwto="select * from class1 order by paixu desc "                                                          
rs_bar.open sqlwto,conn,1,1                                                        
while not rs_bar.eof
%>
<a class=bar target="_blank"  href="class1info.asp?class1=<% =rs_bar("id")%>" target="_blank"><font color="#0000ff"><%=rs_bar("class1")%></font></a>&nbsp;&nbsp;
<%rs_bar.movenext                                                                             
wend
rs_bar.close
%>



</TD>
          <TD style="FONT-SIZE: 9pt" vAlign=center align=left 
          background=images/1b.gif>
<FONT color=red><B>发布请拉菜单:</B></FONT> <SELECT onchange="location=this.options[this.selectedIndex].value" name=post_sel> 
      <OPTION  selected>▼发表新信息</OPTION>
      <%dim   rs9999,sql9999 
      set   rs9999=Server.CreateObject("ADODB.Recordset")  
      sql9999="select   *   from  class1   order  by   paixu  desc"
     rs9999.open   sql9999,conn,1,1
     do  while  not   rs9999.eof 
      
      %>
      <OPTION value="<%=rs9999("addpage")%>" ><%=rs9999("class1")%></OPTION>
      <%rs9999.movenext
      loop
      rs9999.close
      set   rs9999=nothing
      %>
 </SELECT> </TD></TR></TBODY></TABLE>
      </table>
</div>