<% set conn=server.CreateObject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("adminn/mynews.asp") set rs=server.createobject("adodb.recordset") exce="select * from article order by newsid desc" rs.open exce,conn,1,1 %> <% if rs.eof then response.Write " 暫無信息！" else rs.PageSize =18 '每頁記錄條數(shù) iCount=rs.RecordCount '記錄總數(shù) iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %> <%For i=1 To x%>

/<%=rs("N_Fname")%>" target="_blank" title="<%=rs("title")%>" ><%=rs("title")%> [<%=rs("dateandtime")%>] <% rs.movenext next end if %> <% call PageControl(iCount,maxpage,page,"border=0 align=center","") 'end if rs.close set rs=nothing %>