主题:帮忙修改一下,感谢
如何定义一下,让如下代码每隔5行下方出现一条分割线。如下效果:
·333333333
·444444444
·555555555
................
·333333333
·444444444
·555555555
..................
<%
sql="select top 15 id,title from News where lm='85' order by id desc"
Set rs2= Server.CreateObject("ADODB.RecordSet")
rs2.Open sql,conn,1,1
if rs2.eof then
response.write"暂无信息"
else
do while not rs2.eof
%>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="0">
<TBODY>
<TR>
<TD width="100%" height="25"> ·<a href=view.asp?newsid=<%=rs2("id")%> target="_blank" >
<%=left(rs2("title"),24)%>
</a> </TD>
</TR>
</TBODY>
</TABLE>
<%
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
%>
十分感谢,帮忙修改一下
·333333333
·444444444
·555555555
................
·333333333
·444444444
·555555555
..................
<%
sql="select top 15 id,title from News where lm='85' order by id desc"
Set rs2= Server.CreateObject("ADODB.RecordSet")
rs2.Open sql,conn,1,1
if rs2.eof then
response.write"暂无信息"
else
do while not rs2.eof
%>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="0">
<TBODY>
<TR>
<TD width="100%" height="25"> ·<a href=view.asp?newsid=<%=rs2("id")%> target="_blank" >
<%=left(rs2("title"),24)%>
</a> </TD>
</TR>
</TBODY>
</TABLE>
<%
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
%>
十分感谢,帮忙修改一下