asp代码,1行显示2条信息

来源:百度知道 编辑:UC知道 时间:2024/06/05 06:35:37
<TABLE cellPadding=0 cellSpacing=0 class="ML_Titlebg">
<TR><TD height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
<%
dim rs_links,sqltext4,i
set rs_links=server.createobject("adodb.recordset")
sqltext4="select top 10 * from Bs_Links order by id desc"
rs_links.open sqltext4,conn,1,1

i=0
do while not rs_links.eof
%>
<TR vAlign=center>
<TD align='center' class='ML_Tdbg'>
<a href="<%=rs_links("link")%>" title="<%=rs_links("note")%>"target="_blank"><%=rs_links("name")%></a></TD>
</TR>
<TR><TD class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
<%
rs_links.movenext
i=i+1
if i=10 the

<TABLE cellPadding=0 cellSpacing=0 class="ML_Titlebg">
<TR><TD height=2 colspan="2"><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
<%
dim rs_links,sqltext4,i
set rs_links=server.createobject("adodb.recordset")
sqltext4="select top 10 * from Bs_Links order by id desc"
rs_links.open sqltext4,conn,1,1

i=0
do while not rs_links.eof
%>
<TR vAlign=center>
<%
if not rs_links.eof then
link=rs_links("link")
note=rs_links("note")
name1=rs_links("name")
else
link=""
note=""
name1=""
end if

for j=1 to 2%>
<TD align='center' class='ML_Tdbg' colspan="2">
<a href="<%=link%>" title="<%=note%>"target="_blank&quo