如何让里面的<img src="images/3.GIF">只在当天显示最新,余下6天的信息没有<img src="images/3.GIF">显示
<%Set OBJConn = Server.CreateObject("ADODB.Connection")
OBJConn.Open "bj","sa","123"
sersql="select gzlx,sj from gzlx where sj>=convert(varchar(10),getdate()-7) order by sj desc"
Set rs=OBJConn.Execute (sersql)
%>
<%
if rs.eof then
response.write("")
else
do while not rs.eof%>
<tr>
<td><%=rs("gzlx")%></td>
<font color="#808080"></font><td><%=rs("sj")%></td>
<font color="#808080"></font>
<img src="images/3.GIF">
<br>
<%
rs.Movenext
loop
response.write("")
end if
%>
<br>
<%
OBJConn.Close
Set rs = Nothing
Set OBJConn = Nothing
%>