bar1.inc

一套现成的分类信息网站发布系统

<%  
dim rs_bar,sqlwto                                            
Set rs_bar = Server.CreateObject("ADODB.Recordset")    
sqlwto="select top 10 * from class1 order by paixu desc "                                                          
rs_bar.open sqlwto,conn,3,2                                                        
%> 
<table border="0" width="100%" align="center" cellspacing="1">

<%
while not rs_bar.eof
%>
<tr>
<td bgColor="#555555" width="9%" align=center><a href="default.asp"><font color="#00FF00">分类首页</font></a></td>
<%for j=0 to 10                                    
if rs_bar.eof then                                      
exit for                                      
end if                                      
%>          
<td height="26" align=center bgColor="#CC0000" style="width:9%;" onmouseover="this.bgColor='#555555';" onmouseout="this.bgColor='#CC0000'"><a class=bar target="_blank"  href="info.asp?class1=<% =rs_bar("id")%>&cnmai=1" target="_blank"><font color="#FFFFFF"><%=rs_bar("class1")%></font></a></td>
<%rs_bar.movenext                                                                             
next                                                        
%>            
</tr>
<%
wend
rs_bar.close
%>
</table>