links.asp

网上购物系统 asp+sql server 2005

<!--#include file="include/dbopenbd.asp"-->
<%
Set rs = conn.Execute("select * from links where online='1' order by txt desc,num asc") 
if not (rs.eof and rs.bof) then
response.write "<table cellspacing=1 cellpadding=0 width=760 align=center bgcolor=#FFFFFF border=0  class='grayline'>"
i=0	'第1个链接i=0，第7个的i=6，第13个的i=12，以此类推，i能被6整除，以此判断是否开始一行
Do while not rs.eof
if i mod 6 = 0 then		'开始一行
response.write "<tr>"
end if
for n=1 to 6
response.write "<td height=40 align=center valign=middle width=126>"
if rs("txt") = "0" then
response.write "<a href='"&rs("url")&"' target='_blank'><img width=88 height=31 src='"&rs("logo")&"' border=0 alt='"&rs("site")&"'></a>"
else
response.write "<table width=88 height=31 border=0 background=images/links/txtlink.gif><tr><td align=center><a href='"&rs("url")&"' target='_blank'>"&lleft(rs("site"),12)&"</a></td></tr></table>"
end if
response.write "</td>"
i=i+1
rs.movenext
if rs.eof then exit for
next
if n<6 then
for n=6-n to 6
response.write "<td>&nbsp;</tr>"
next
end if
if rs.eof then exit do
loop
response.write "</tr></table>"
end if     
rs.close
set rs=nothing
%>