barcity.inc

个人网站系统,本人基于第三方源码进行更改!

<%                                               
Set rs_bar = Server.CreateObject("ADODB.Recordset")    
sqlwto="select top 50 * 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>
<%for j=0 to 9                                    
if rs_bar.eof then                                      
exit for                                      
end if                                      
%>          
<td height="20" align=center class=bar_muen bgColor="#8F8F8F" style="width:10%;" onmouseover="this.bgColor='#555555';" onmouseout="this.bgColor='#8F8F8F'"><a class=bar href="info.asp?class1=<%=rs_bar("id")%>&city=<%=citykey%>&cnmai=10"><font color="#FFFFFF"><%=rs_bar("class1")%></font></a></td>
<%rs_bar.movenext                                                                             
next                                                        
%>            
</tr>
<%
wend
rs_bar.close
%>
</table>