关于终级分页标签，一个至少存在了2年多的问题-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2838 查看	8 回复

主题：关于终级分页标签，一个至少存在了2年多的问题 [收藏主题]

转到：

mbaun 当前离线

1138 主题	4 广播	1 粉丝

级别:八年级

用户积分:6229 分
登录次数:342 次
注册时间:2006/4/4
最后登录:2023/2/2

mbaun 发表于：2013/8/29 13:35:48 | 显示全部帖子查看该作者主题楼主

有课程找生源就上科汛课堂街

Kesion鼓励大家使用自定义类构造符合自己要求的页面，近日看关于自定义页面采用终级分页标签分页时，仍然只能使用ajax，而使用普通模式就显示“ {PageListStr} ”

这个问题在2011年6月提过，不过似乎没有得到最终解决方案，也不知道自己哪里没弄对，近日看V9.0x似乎仍然存在，借着V9.5出来时，希望可以得到一个答复~

2011年帖子：http://bbs.kesion.com/forumthread-216719.html

出来诈盗，多多关照

科汛商学院助您快速入门

支持(0) |

反对(0)

顶端

底部

mbaun 当前离线

1138 主题	4 广播	1 粉丝

级别:八年级

用户积分:6229 分
登录次数:342 次
注册时间:2006/4/4
最后登录:2023/2/2

mbaun 发表于：2013/8/29 16:44:15 | 显示全部帖子查看该作者主题沙发

有课程找生源就上科汛课堂街

直接建立的一个动态页面，无静态生成，页面内容为：

复制代码

<%
Dim KSCls
Set KSCls = New muban
KSCls.Kesion()
Set KSCls = Nothing
Class muban
Private KS, KSR,Maps
Private Sub Class_Initialize()
If (Not Response.IsClientConnected)Then
Response.Clear
Response.End
End If
Set KS=New PublicCls
Set KSR = New Refresh
End Sub
Private Sub Class_Terminate()
Call CloseConn()
Set KS=Nothing
End Sub
Public Sub Kesion()
Dim FileContent
Dim MapTemplatePath:MapTemplatePath=KS.Setting(3) & KS.Setting(90) & "muban.htm" '读取模板地址，模板放到在template目录下，文件名自取，但需要和这里的文件名一致！
FileContent = KSR.LoadTemplate(MapTemplatePath)
FileContent=KSR.KSLabelReplaceAll(FileContent) '调用科汛的全站标签替换函数
response.write FileContent '最后输出内容
End Sub
End Class
%>

模板中对应终极标签为

复制代码

{SQL_会员分页()}

对应SQL查询语句：select KS_User.UserID,KS_User.Address,KS_User.Email,KS_User.IsOnline,KS_User.UserFace,KS_User.Mobile,KS_User.OfficeTel,KS_User.QQ,KS_User.RealName,KS_User.KS_renzheng,KS_Blog.BlogName,KS_Blog.hits FROM KS_User INNER JOIN KS_Blog ON KS_User.UserID = KS_Blog.UserID where KS_User.GroupID=18 and Status=1 order by KS_User.LastLoginTime desc

然后就是[LOOP]循环体。

科汛商学院助您快速入门

支持(0) |

反对(0)

顶端

底部