制作文章列表网页

来源：百度知道 编辑：UC知道 时间：2024/05/26 05:58:30
怎么制作文章列表网页？就是制作像QQ空间文章列表页一样的网页。
列子：http://zhidao.baidu.com/browse/74
好像是先制作一个XML文件，然后在网页里加载，不知道是不是，我也不知道XML怎么制作，另外网页有一定高度，请高手指明怎么把一个列表分成数页。谢谢

<%const MaxPerPage =40
dim totalPut
dim CurrentPage
dim TotalPages
set rs2=server.createobject("adodb.recordset")
sql="select * from company order by update desc"%>
<%end if%>
<% rs2.open sql,conn,1,1
if not rs2.eof then%>
<%

dim p ,intcur
if request.QueryString("intcur")=0 then
intcur=1
else
intcur=cint(request.QueryString("intcur"))
end if
p=1
rs2.pagesize=40
if not rs2.eof then
rs2.absolutepage=intcur
inttotal=rs2.pagecount
totalnumber=rs2.recordcount

dim n
if totalnumber mod intpagesize = 0 then
n = totalnumber \ intpagesize
else
n = totalnumber \ intpagesize + 1
end if
%>
<%
do until p>rs2.pagesize or rs2.eof
%>写文章标题的位置<br><% p=p+1
rs2.movenex