ASP代码最新新闻显示NEW图标,分页代码！

<% if datediff("d",rs("newsdate"),date())<=7 then%><img src="images/new.gif" mce_src="images/new.gif" width="28" height="11">
<%end if%>

下面是另一个显示分页和NEW图标的代码：

<% set rs=server.createobject("adodb.recordset")
sql="select * from xw order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "还没有任何新闻。"
else
totalPut=rs.recordcount
currentpage=request("page")
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut / MaxPerPage
else
currentpage= totalPut / MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,path
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,path
else
currentPage=1
showContent
showpage totalput,MaxPerPage,path
end if
end if
rs.close
set rs = nothing
end if
sub showContent
dim i
i=0
do while not rs.eof
%>
<tr>
<td width="29" height="24"> </td>
<td width="602"><img src="images/zxdt_002.gif" mce_src="images/zxdt_002.gif" width="3" height="11" /> <a href="zxdt_show.asp?id=<%=rs(" mce_href="zxdt_show.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("title"),25)%></a>...
<% dim m,n
n = (Rs("adddate").Value)
m = datediff("d", n, date() )
if m<3 then %><img src="images/zxdt_005.gif" mce_src="images/zxdt_005.gif" width="27" height="11" /><% end If%>
</td>
</tr>
<tr>
<td height="3"></td>
<td height="3" background="images/zxdt_004.gif"></td>
<td width="1" height="3"></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub

function showpage(totalnumber,maxperpage,filename)
dim n

if totalnumber mod maxperpage=0 then
n= totalnumber / maxperpage
else
n= totalnumber / maxperpage+1
end if
response.write "<table cellspacing=1 border=0 ><form method=Post action="""&filename&"""> "
if CurrentPage<2 then
response.write "共<b><font color=red>"&totalnumber&"</font></b>条信息 首页 上一页 "
else
response.write "共<b><font color=red>"&totalnumber&"</font>条信息 <a href="&filename&" mce_href="&filename&"?page=1>首页</a> "
response.write "<a href="&filename&" mce_href="&filename&"?page="&CurrentPage-1&">上一页</a> "
end if

if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&" mce_href="&filename&"?page="&(CurrentPage+1)&">"
response.write "下一页</a> <a href="&filename&" mce_href="&filename&"?page="&n&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>条信息/页 "
%>
转到：
<select name='page' size='1' style="font-size: 9pt" mce_style="font-size: 9pt" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
</form>
<%
response.write "</td></tr></FORM></table>"
end function
%>