asp开发Wap中的随笔（2）

5、wap中的分页

分页和web中是一样的，只是有些功能比较简化了，下面是常用的分页，没有写成函数是方便大家修改。

在打开记录集后写，如下代码：

<％
filepath=request.servervariables("path_info")％>
<％page=1
page=request("page")
rs.PageSize = 8 '每页的记录的条数
if Not IsEmpty(trim(Request("Page"))) then
Page = CInt(Request("Page"))
if Page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page <= 0 then
Page = 1
else
rs.AbsolutePage = Page
end if
End if
％>

然后再想显示分页的地方，一般是在记录集循环输出完毕的后面写：

<％if rs.pagecount<>1 and rs.pagecount<>0 then％>
<br/>
<％if page>rs.pagecount then％>
<a title="确定" href="<％=filepath％>?Page=<％ =page -1 ％>">上一页</a>
<％else％>
<％if page<>1 then ％>
<a title="确定" href="<％=filepath％>?Page=<％ =page -1 ％>">上一页</a><br/>
<％ end if ％>
<a title="确定" href="<％=filepath％>?Page=<％ = page + 1％>">下一页</a>
<％end if ％>
<％end if
response.Write "第"&page&"页 共"&rs.pagecount&"页"
％>

注意显示的时候首先显示下一页，然后再显示上一页这和web上的习惯不太一样。

另外，如果这页的内容是显示是通过上页传送来的参数，作为条件的，则在 类似
<a title="确定" href="<％=filepath％>?Page=<％ = page + 1％>">下一页</a>
的地方都要加上该参数，否则进行下一页连接的时候就会把参数丢掉。
例如：从上页用户选择的新闻的种类，来显示新闻。在List.asp页面首先写，NewType=request.form("NewType")得到用户选择的新闻的类型。
然后SQL="Select ..........where NewType='"&NewType&"'" 。完成记录集合的准备工作。注意：在进行下页面的时候要写成
<a title="确定" href="<％=filepath％>?Page=<％ =page -1 ％>&amp;NewType=<％=NewType％>">上一页</a><br/>,
这样的形式，有多少条件后面跟多少条件。

但是这样就产生问题了，即时这样写NewType=request.form("NewType")也得不到NewType的值。所以在页首刚开始的地方应该写成NewType=request("NewType")。就可以实现把参数带到下一页的连接中了。

wap中上一条、下一条的问题。

在开发中，新闻、笑话、下载等业务为用户提供方便基本都需要在一条记录完成后，再提供下一条记录的操作，下面是简要的对下一条记录实现方法的描述。

比如显示新闻是国际新闻的记录，list.asp来进行显示，通过sql语句select * from NewsInfo where type='国际' ,来得到符合条件的记录集，用户在浏览过程中，当前记录的id＝10，下一条记录的id是idnext=10＋1＝11，上一条记录的id是idpre=10－1＝9，然后<a href="list.asp?id='"&IdNext&"'">上一条</a>，这样的做法是欠缺的，仅仅适用与id是连续的，也就是说所有国际新闻的id是连续的，如果国际新闻和国内新闻在表中是穿插写入的，那么你的id－1很可能是国内新闻，条件限制type='国际' 就不起作用了。

正确且简练的做法应该是这样的（可能大家还有更好的做法）：

当前的id是IdNow，表NewsInfo是按照id自增的。
获得idnext＝select top 1 from NewsInfo where type='国际' and id>'"&IdNow&"'
获得Idpre＝select top 1 from NewsInfo where type='国际' and id<'"&IdNow&"' order by id desc

剩下的问题，就不用说了吧，注意，先显示下一条，然后显示上一条，这样才方便用户。

wap中新闻等图片和文字混排

Wap开发中，图片和文字混排，可以采用ubb编码，原理就是自己定义一共特殊的格式，采用mid和replace函数进行转换。比如定义[img][/img],表示图片的开始和结束。
但是要注意，web和wap中的区分。进行以下替换 string1all = Replace(string1all,"[img]","</p><p align=""center""><img src=""../img/")
string1all = Replace(string1all,"[/img]"," "" alt=""""/></p><p>")

会使得图片居中显示。

新闻小说的分页

在wap中过长的新闻和小说，会给大家带来很大的不方便。所以要求进行分页显示，比如按照每页显示300字来举例子。

pageWordNum=300 ' 每页显示的字数，这里300可以是变量
StartWord = 1
Length=len(Content) '要显示内容的总的长度
PageAll=(Length+PageWordNum-1)\PageWordNum '该篇新闻总共可分的总页数

i=request.QueryString("i") '第几页的标记
if isnull(i) or i="" then '如果是新闻的刚开始则默认i＝0
i=0
end if
Content = mid(Content,StartWord+i*PageWordNum,PageWordNum) '利用mid函数进行新闻内容的截取（mid函数的含义：从字符串中返回指定数目的字符）

。
。
。

<％
'开始进行分页操作
if 0<=i<PageAll then
if cint(i)<cint(PageAll)-1 then％>
<a href="ListFengshuiInfo.asp?i=<％=i+1％>">下一页</a><br/>
<％end if
if cint(i)>0 then％>
<a href="ListFengshuiInfo.asp?i=<％=i-1％>">上一页</a><br/>
<％end if
end if
％>

结束。

注意：1、 <a href="ListFengshuiInfo.asp?i=<％=i+1％>">下一页</a><br/>中ListFengshuiInfo.asp?i=<％=i+1％>可以按照你的实际环境的需要添加变量。

2、Mid函数的解释说明：

从字符串中返回指定数目的字符。

Mid(string, start[, length])

参数

string

字符串表达式，从中返回字符。如果 string 包含 Null，则返回 Null。

Start

string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 ("")。

Length

要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。

编制wap中的快捷键

把accesskey属性加入到<a>、<anchor>和<input>标签中。
accesskey属性将允许用户只需要按一个专门的按键转跳到一个专门的锚或者输入框中。
这样可以加快用户的访问速度，并且符合用户的访问习惯。