QuickWAP V1.5中MorePage函数的小图标显示控制

MorePage函数的定义如下表所示：

名称

MorePage

函数声明

Public Sub MorePage(ByVal ToShowContent As String, Optional ByVal IsThisShowImage As Boolean = True)

作用

用于生成长字符分页程序的函数，可以同时显示多页数的翻页链接，每次输出的字符数为180个。

例句

Wap.WriteRow Wap.MorePage(ToShowContent)

返回值

参见实例。

参数

名称	作用及说明
ToShowContent	设置要分页的字符串。
IsThisShowImage	设置是否显示翻页链接前的图片。

备注

此函数用途比较广泛，除了应用于分页长字符串外，还可以对数据库的内容进行动态分页。

我们用实例来说明，标准代码如下，运行结果如图1所示。

<%
Set Wap=Server.CreateObject("QuickWAP.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "++++++++++++++++++"
Wap.IsShowImage=True '当为True时，可以省略此句。
Dim Content
Content="WAP是一种无线应用协议，是一个全球性的开放协议。WAP定义可通用的平台，把目前Internet网上HTML语言的信息转换成用WML描述的信息，显示在移动电话或者其他手持设备的显示屏上。多种网络，也就是说，它不依赖某种网络而存在，今天的WAP服务在3G到来后仍然可能继续存在，不过传输速率更快，协议标准也会随之升级。 "
Wap.WriteRow "<b>WAP介绍</b>"
Wap.WriteRow Wap.MorePage(Content & Content,True)
Wap.WriteRow "++++++++++++++++++"
'以下为返回链接等信息。
Wap.WriteRow Wap.DoGo("http://wap.bicyle.org", "option", "回首页")
Wap.PageFooter
Set Wap=Nothing
%>

以上代码中，QuickWAP默认的小图标路径如下。     
　　Wap.NextPage = "Images/NextPage.Png"
　　Wap.PrePage = "Images/PrePage.Png"
　　Wap.IsShowImage=True '当为True时，可以省略此句。
IsShowImage用于设置是否显示图片。只对使用QuickWAP中图片控制函数(如Img函数)输出的图片有作用。

Wap.WriteRow Wap.MorePage(Content & Content,True)
替换为如下语句：
Wap.WriteRow Wap.MorePage(Content & Content)
效果不发生任何变化，因为MorePage函数的参数IsThisShowImage值默认为True。效果仍如图1所示。

图1

Wap.IsShowImage=True 此语句保持不变。
Wap.WriteRow Wap.MorePage(Content & Content,True)
替换为如下语句：
Wap.WriteRow Wap.MorePage(Content & Content,False)
效果将发生一点变化，翻页的图标将不被显示，如图2所示。

图2

Wap.IsShowImage=True
替换为如下语句：
Wap.IsShowImage=False
效果将影响至此属性设置后的所有图片控制函数，翻页的图标仍不被显示，而且其他图片控制的函数也将受到影响。这时无论如下三句是哪一种，翻页图标都不会显示。效果如图2所示。
Wap.WriteRow Wap.MorePage(Content & Content,False)
Wap.WriteRow Wap.MorePage(Content & Content,True)
Wap.WriteRow Wap.MorePage(Content & Content)

　　若您想了解更多函数属性，请参考《QuickWAP V1.5使用手册》，以上仅为使用QuickWAP开发WAP程序的一个很小的方面，更多精彩功能有待您去组合发挥。