问题描述
- 网站产品搜索结果页翻页出错 asp 菜鸟求问
-
翻页后的结果如下图
search.asp文件内容:
<!--#include file="inc/AspCms_SettingClass.asp" --> <% echoContent() Sub echoContent() dim page,keys page=filterPara(getForm("page","both")) keys=filterPara(getForm("keys","both")) if isNul(keys) then alertMsgAndGo "请输入关键词","-1" if isNul(page) then page=1 if isNum(page) then page=clng(page) else echoMsgAndGo "页面不存在",3 end if dim templateobj,channelTemplatePath : set templateobj=new TemplateClass dim typeIds,rsObj,rsObjtid,Tid,rsObjSmalltype,rsObjBigtype Dim templatePath,tempStr templatePath=sitePath&"/"&"templates/"&setting.defaultTemplate&"/"&setting.htmlFilePath&"/search.html" 'die templatePath if not CheckTemplateFile(templatePath) then echo "search.html"&err_16 with templateObj .content=loadFile(templatePath) .parseHtml() .parseCommon() .parseList 0,page,"searchlist",keys,"searchlist" echo .content end with set templateobj =nothing : terminateAllObjects End Sub %>
网站后台 search.html文件搜索部分功能代码:
<div class="package"> <h2 class="tit"><em class="fl"><img src="/templates/cn/style/images/ico17.png" class="png"/></em><span class="fl">搜索</span><span class="all_bg"></span></h2> <ul class="list_05"> {aspcms:searchlist size=20 order=id} <li><span class="fr">[[searchlist:date style=yy-m-d]] </span><a href="[searchlist:link]" title="[searchlist:title]">[searchlist:title]</a> </li> {/aspcms:searchlist} </ul> <!--分页开始--> <div style="height:7px;clear:both"></div> <div class="pcauto_page"> [searchlist:pagenumber len=5] </div> <!--分页结束-->
解决方案
好像是 点击页面后,没有把 相关的参数传过去,请问具体怎么修改?本人菜鸟,谢谢各位指导下。
解决方案二:
你用了什么模板框架了?代码很奇怪
这种二次开发的,要么要看文档,要么要看源代码。不然谁知道。
解决方案三:
vbscript是有问题的
if isNum(page) then page=clng(page) else echoMsgAndGo "页面不存在",3 end if
这么写不行,需要换成下面分行
If isNum(page) Then
page = CLng(page)
Else
echoMsgAndGo "页面不存在", 3
End If
templatePath=sitePath&"/"&"templates/"&setting.defaultTemplate&"/"&setting.htmlFilePath&"/search.html"
连接注意&前后分开
templatePath = sitePath & "/" & "templates/" & setting.defaultTemplate & "/" & setting.htmlFilePath & "/search.html"
.parseHtml()
.parseCommon()
这两个也有问题,vb中函数调用带括号需要 call。
解决方案四:
分页是没有附带查询参数,自己找TemplateClass 这个类的parseList方法,看如何传递keys参数进去的
时间: 2024-09-09 03:21:45