bar.asp

来自「二手书籍系统」· ASP 代码 · 共 27 行

<%  
dim rs_bar,sqlwto                                            
Set rs_bar = Server.CreateObject("ADODB.Recordset")    
sqlwto="select top 11 * 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 10                                    
if rs_bar.eof then                                      
exit for                                      
end if                                      
%>          
<td height="21" align=center style="width:9%;"><a class=bar href="info.asp?class1=<%=rs_bar("id")%>&cnmai=1"><b><%=rs_bar("class1")%></b></a></td>
<%rs_bar.movenext                                                                             
next                                                        
%>            
</tr>
<%
wend
rs_bar.close
set rs_bar=nothing
%>
</table>