📄 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -