<%Set Rs=Server.Createobject("Adodb.Recordset")Sql="Select * From 模块 order by id desc"Rs.open Sql,Conn,1,1%><%For i=1 To 30If rs.eof Then Exit ForIf i mod 2 <> 0 Then%><tr><td width="50%" height="13" bgColor=#f1f3fe><p style="line-height: 150%"><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="120" height="70"><br>[<a href="class/<%=rs("classid")%>_1.htm" target=_blank><%=rs("classname")%></a>]<a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),9)%></a></td><%Else%><td width="50%" height="13" bgColor=#f1f3fe><p style="line-height: 150%"><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="120" height="70"><br>[<a href="class/<%=rs("classid")%>_1.htm" target=_blank><%=rs("classname")%></a>]<a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),9)%></a></td></tr><%End Ifrs.movenextNextrs.closeset rs=NOTHING%>现在这种代码 mod 2 显示是2竖 如果我改3竖 改mod=3 但是却乱行了。应该在中间加一个什么字符 哪位高手帮解答一下 谢谢!
參考答案:将你的程序简化了:
<%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From 模块 order by id desc"
Rs.open Sql,Conn,1,1
%>
<%
response.write "<tr>"
For i=1 To 30
If i mod 3 = 0 Then response.write "</tr><tr>"
If rs.eof Then Exit For
%>
<td width="50%" height="13" bgColor=#f1f3fe>
<p style="line-height: 150%"><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="120" height="70"><br>[<a href="class/<%=rs("classid")%>_1.htm" target=_blank><%=rs("classname")%></a>]<a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),9)%></a></td>
<%
rs.movenext
Next
response.write "</tr>"
rs.close
set rs=NOTHING
%>