<% sub list_data(whichpage) 'whichpage=Request.querystring ("whichpage") typed=Request.QueryString("typed") dim rs,cn,sql,title,content,id nowtime=Now() set cn=server.createobject("ADODB.connection") cn.open "provider=microsoft.jet.oledb.4.0;data source="+server.mappath("ndb/internship.mdb") set rs=server.createobject("adodb.recordset") rs.CursorLocation=2 sql="select * from news where type='"&typed&"' and not delete order by time desc" 'msgbox(sql) rs.open sql,cn,3,3,1 if rs.eof then response.write "库中没有任何新闻！" else set id=rs("id") if whichpage="" then whichpage=1 else whichpage=CInt(whichpage) end if pagesize=6 rs.CacheSize=pagesize rs.MoveFirst rs.PageSize=pagesize maxpage=CInt(rs.PageCount) if whichpage>maxpage then whichpage=maxpage rs.AbsolutePage=whichpage recnum=0 end if %> <% while not rs.EOF and recnum <%'if rs("year")=Year(now()) and rs("month")=month(now()) and rs("day")=day(now()) and (rs("hour")+24)>=hour(now()) then%> <%'%> <%'else%> <% 'end if %>

	" style="display:none"> " style="">	)" onMouseOut="hideIco(<%=rs("id")%>)" href="detail.asp?id=<%=rs("id")%>"><%=rs("title")%>(<%=rs("time")%>)

<% rs.MoveNext recnum=recnum+1 wend %> <% if maxpage>1 then %>

<% if whichpage=1 then %> <%else%> <%end if if whichpage=maxpage then %> <%else%> <%end if%>

	第<%=whichpage%>/<%=maxpage%>页	首页	前页	首页	前页	后页	尾页	后页	尾页	第页

<%end if%> <% rs.close set rs=nothing cn.close set cn=nothing end sub %>