2 baidu 28505081 baidu_28505081 于 2015.05.28 21:39 提问

网站产品搜索结果页翻页出错 asp 菜鸟求问

翻页后的结果如下图
图片说明

搜索功能按钮部分html:
图片说明

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>
<!--分页结束-->

4个回答

baidu_28505081
baidu_28505081   2015.05.28 21:40

好像是 点击页面后,没有把 相关的参数传过去,请问具体怎么修改?本人菜鸟,谢谢各位指导下。

caozhy
caozhy   Ds   Rxr 2015.05.28 21:51

你用了什么模板框架了?代码很奇怪

这种二次开发的,要么要看文档,要么要看源代码。不然谁知道。

danielinbiti
danielinbiti   Ds   Rxr 2015.05.28 21:57

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。

showbo
showbo   Ds   Rxr 2015.05.29 09:27

分页是没有附带查询参数,自己找TemplateClass 这个类的parseList方法,看如何传递keys参数进去的

Csdn user default icon
上传中...
上传图片
插入图片