本课程，我们将透过新闻列表文件的编写，来学习ASP在WAP站点应用站的文章列表与列表分页技术。

同样，我们要将文件的编码和内容的编码转成UTF-8，插入配置文件。
将文件的编码保存为UTF-8(文件--另存为--编码：选择“UTF-8”--保存)
复制以下代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" ' 将文件的格式转换成wml，编码为UTF-8
%>



"">

现在，我们插入分页代码。在PageSize=10 和 For i=1 To PageSize之间插入以下代码：

Dim Count,page,pagecount,gopage ' 定义相关变量
gopage="NewsList.asp?ID="&ID&"&"
Count=conn.execute("Select count(ID) from [NewsContent] where typeID="& ID &"")(0)

' 读取新闻总数
page=int(request.QueryString ("page"))
if page<=0 or page="" then page=1 ' 默认为第一页
pagecount=(count+pagesize-1)\pagesize ' 计算出页数
rs.move(pagesize*(page-1)) ' 将游标指到每一页的第一条记录

刷新">

最后，我们在重新把PageSize=2改成PageSize=10，再插上换行符和返回首页的链接，就大功告成了！

=*=*=*=*=*=

返回网站首页


用opera运行看看，嘿嘿，漂亮的页面是不是出来了！
再传到空间里，再拿手机试一试！^_^

【第三课】到此结束，要知后事如何，请看下课讲解】