asp行列显示问题,高手来解答一下
以下表格是7行7列,我想修改成10行6列怎么改啊,拜托了<tablewidth=100%height=0border=0align="center"cellpadding...
以下表格是7行7列,我想修改成10行6列怎么改啊,拜托了
<table width=100% height=0 border=0 align="center" cellpadding=1 cellspacing=1 bgcolor="#DDDDDD">
<%
n=1
While Not rsDe.Eof and n<50
%>
<td height=20 bgcolor="#F9FDFC"> <a href='<%=rsDe("url")%>' target='_blank'><img src=logo/01.gif border=0></a> <a href='showurl.asp?id=<%=rsDe("id")%>' title=近十分钟:<%=rsDe("yl_10in")%>次|当天来路:<%=rsDe("yl_dayin")%>次 历史来路:<%=rsDe("yl_in")%>次|历史去路:<%=rsDe("out")%>次 target='_blank'>
<%if rsDe("yl_dayin")>4 then%><font color=#ff00FF><%end if%>
<%if rsDe("yl_dayin")>9 then%></font><font color=#0000ff><%end if%>
<%if rsDe("yl_dayin")>19 then%></font><font color=#FF0000><%end if%>
<%if rsDe("yl_dayin")>29 then%><font color=#0000ff><b><%end if%>
<%if rsDe("yl_dayin")>49 then%><font color=#ff0000><b><%end if%>
<%=rsDe("title")%><%if rsDe("yl_dayin")>4 then%></b></font><%end if%></a>
<%
if n mod 7 =0 then
Response.Write("</Tr>")
end if
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%></table>
<% set rs=server.createobject("adodb.recordset")
rs.open "select * from title",conn,1,3
auto=rs("auto")
rs.close
set rs=nothing
if auto<>1 then
Response.Write ""
Else
set rsDe=server.createobject("adodb.recordset")
sql=" select * from detail where verity=0 order by id desc"
rsDe.open sql,conn,1,3
do while not rsDe.eof
if rsDe("yl_in")>0 then
rsDe("verity")=1
rsDe.update
end if
rsDe.movenext
loop
rsDe.close
set rsDe=nothing
Response.End
end if
%>
有没有人知道啊???? 展开
<table width=100% height=0 border=0 align="center" cellpadding=1 cellspacing=1 bgcolor="#DDDDDD">
<%
n=1
While Not rsDe.Eof and n<50
%>
<td height=20 bgcolor="#F9FDFC"> <a href='<%=rsDe("url")%>' target='_blank'><img src=logo/01.gif border=0></a> <a href='showurl.asp?id=<%=rsDe("id")%>' title=近十分钟:<%=rsDe("yl_10in")%>次|当天来路:<%=rsDe("yl_dayin")%>次 历史来路:<%=rsDe("yl_in")%>次|历史去路:<%=rsDe("out")%>次 target='_blank'>
<%if rsDe("yl_dayin")>4 then%><font color=#ff00FF><%end if%>
<%if rsDe("yl_dayin")>9 then%></font><font color=#0000ff><%end if%>
<%if rsDe("yl_dayin")>19 then%></font><font color=#FF0000><%end if%>
<%if rsDe("yl_dayin")>29 then%><font color=#0000ff><b><%end if%>
<%if rsDe("yl_dayin")>49 then%><font color=#ff0000><b><%end if%>
<%=rsDe("title")%><%if rsDe("yl_dayin")>4 then%></b></font><%end if%></a>
<%
if n mod 7 =0 then
Response.Write("</Tr>")
end if
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%></table>
<% set rs=server.createobject("adodb.recordset")
rs.open "select * from title",conn,1,3
auto=rs("auto")
rs.close
set rs=nothing
if auto<>1 then
Response.Write ""
Else
set rsDe=server.createobject("adodb.recordset")
sql=" select * from detail where verity=0 order by id desc"
rsDe.open sql,conn,1,3
do while not rsDe.eof
if rsDe("yl_in")>0 then
rsDe("verity")=1
rsDe.update
end if
rsDe.movenext
loop
rsDe.close
set rsDe=nothing
Response.End
end if
%>
有没有人知道啊???? 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询