标题: 代码.是列的.就不是横的。 [打印本页] 作者: Forever紫月 时间: 2010-1-7 02:20 标题: 代码.是列的.就不是横的。 <%
sql="select top 8 * from zt where sortid='11' order by ID desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1
row=1
do while not rs.eof and row<10
Response.Write("<tr>")
Response.Write("<td class='middletxt'>·<a href='list_zt.asp?ztid="&rs("id")&"' target='_blank' title='"&cutStr(rs("sm"),80)&"'>"&HTMLEncode(left(rs("Title"),16))&"</a></td>")
rs.MoveNext
row=row+2
loop
Response.Write("</tr>")
%>
你真好作者: 老鼠爱上猫 时间: 2010-1-7 02:21
<%
sql="select top 8 * from zt where sortid='11' order by ID desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1
%>
<tr>
<%
Dim m
do while not rs.bof and not rs.eof
m = m + 1
%>
<td class="middletxt">·<a href="list_zt.asp?ztid=<%=rs("id")%>" target="_blank" title=<%=cutStr(rs("sm"),80)%>><%=HTMLEncode(left(rs("Title"),16))%></a></td>
<%
If m Mod 3 = 0 Then Response.Write("</tr><tr>")
rs.movenext
loop
rs.close
%>
</TR>