全部

一个问题！！！！！点击更多无法显示全部内容！求助！

skynessjhs304 2008-11-29 11:47:07

keywords=split(RsArticle1("guanjian")," ")

    keysnext=""

    for i=0 to ubound(keywords)

        if keywords(i)<>"" and not isnull(keywords(i)) then 

         if i=0 then 

               keysnext=keysnext&" and (guanjian like '%"&keywords(i)&"%'"

            else

               keysnext=keysnext&" or guanjian like '%"&keywords(i)&"%'"

     end if

            keysnext=keysnext&")"

    end if

next

set rs=server.createobject("adodb.recordset")



sql="Select * from Article  where anclassid<>29 and anclassid<>38 "&keysnext&" order by UpdateTime DESC" 



rs.open sql,conn,1,1

                                    if not rs.eof then

               If not Rs.Eof Then

    Call PageSet(Rs ,10)

 end if          

 i=0

  Do while ((not Rs.eof) and (i < Rs.PageSize))  %>

点击“更多”后页面的代码：
<%set rs=server.createobject("adodb.recordset")

Sql = "Select * from Article where anclassid<>29 and anclassid<>38 "&keysnext&" order by UpdateTime DESC"
'response.write sql
'response.end
rs.open sql,conn,1,1
if not rs.eof then
If not Rs.Eof Then
Call PageSet(Rs ,10)
end if
i=0
Do while ((not Rs.eof) and (i < Rs.PageSize)) %>

求助查看，具体那里有问题呢？？？？

...全文

311 点赞收藏 112

写回复

112 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

一把编程的菜刀 2008-11-29

你是用这种方式传过来的
你接受的时候

keywords=split(RsArticle1("guanjian")," ")

怎么是用RsArticle1这个接受？

应该换做request("guanjian")接受啊

回复赞

skynessjhs304 2008-11-29

更多的参数传递：
<a href="zhuanti.asp?key=<%=RsArticle1("title")%>&zuozhe=<%=RsArticle1("zuozhe")%>&guanjian=<%=RsArticle1("guanjian")%>">更多>></a> </td>
这里有问题嘛？

回复赞

一把编程的菜刀 2008-11-29

那是你参数每传过去的问题

你点更多的时候要把参数传过去才可以

回复赞

skynessjhs304 2008-11-29

击“更多”后页面的代码：
<%set rs=server.createobject("adodb.recordset")

Sql = "Select * from Article where anclassid <>29 and anclassid <>38 "&keysnext&" order by UpdateTime DESC"
'response.write sql
'response.end
rs.open sql,conn,1,1
if not rs.eof then
If not Rs.Eof Then
Call PageSet(Rs ,10)
end if
i=0
Do while ((not Rs.eof) and (i < Rs.PageSize)) %>

现在是这里出现问题了~~~~~不知道那里错误了~~~

回复赞

skynessjhs304 2008-11-29

还是不行，点击更多以后出来的是数据库的全部内容，郁闷了啊！

回复赞

一把编程的菜刀 2008-11-29

上次你问不是给你说了吗？

回复赞

toury 2008-11-29

你在哪里点击的[第1页]。。。[第n页]?我没找到

回复赞

一把编程的菜刀 2008-11-29

[Quote=引用 106 楼 skynessjhs304 的回复:]
VB code
Sub PageSet( RsArticle ,Num)
RsArticle.PageSize = Num '每页显示记录数
If Not IsEmpty(page) Then '如果page已经初始化...
If Not IsNumeric(page) Then '判断page值是否为数字
page=1
Else
Page = cint(page) '接收page并化为数字型赋给page变量
End If
If Page > RsArticle.PageCount Then '如果接收的页数大于总页数
RsArticle.AbsolutePag…
[/Quote]

你应该一个调用这部分的地方

回复赞

ilxl520 2008-11-29

为了100分，拼了老命了···

回复赞

skynessjhs304 2008-11-29

第二页以后的每一页都和第一页的内容一样，设置了也是啊，怎末处理呢？？？？

回复赞

skynessjhs304 2008-11-29

还是一样，和刚才一样，每页都和第一页相同~~~

回复赞

toury 2008-11-29

Sub PageNext( RsArticle ,Page )
filepath = "zhuanti.asp?key="&key&"&zuozhe="&zuozhe&"&guanjian="&guanjian&"&page="&page
end sub

加上红色部分

回复赞

skynessjhs304 2008-11-29



Sub PageSet( RsArticle ,Num)

RsArticle.PageSize = Num '每页显示记录数

If Not IsEmpty(page) Then '如果page已经初始化...    

  If Not IsNumeric(page) Then '判断page值是否为数字       

    page=1    

  Else    

    Page = cint(page) '接收page并化为数字型赋给page变量    

  End If       

  If Page > RsArticle.PageCount Then '如果接收的页数大于总页数        

    RsArticle.AbsolutePage = RsArticle.PageCount '设置当前显示页等于最后页            

  Elseif Page <= 0 Then '如果page小于等于0        

    RsArticle.AbsolutePage = 1 '设置当前显示页等于第一页    

  Else        

    RsArticle.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数     

  End if

Else

  RsArticle.AbsolutePage=1

End if

Page = RsArticle.AbsolutePage

End Sub



'------------------------------------------------------

Sub PageNext( RsArticle ,Page )

  filepath = "zhuanti.asp?key="&key&"&zuozhe="&zuozhe&"&guanjian="&guanjian

end sub

是这里的问题嘛？？？？

回复赞

一把编程的菜刀 2008-11-29

我打一个比方吧

比如你现在分页连接是这样的
test.asp?page=1

但因为你SQL语句里有一个动态参数需要传递
所有你必须把参数传递过去

就拿你的这个来说吧
应该是
test.asp?page=1&guanjian="&guanjian&"这样传参数过去

回复赞

layers2323 2008-11-29

distinct * 当然没用了
distinct * 的筛选条件等同是：只要有一个字段不同就可以了，那个字段可能是时间，id等等。

回复赞

skynessjhs304 2008-11-29

对，是你说的这个问题！！！chinmo 就是这个问题，分页？？怎末设置啊？？？哎，我是超级菜菜啊~~

回复赞

一把编程的菜刀 2008-11-29

晕，你只是分页的时候出现这个问题是吧？

意思就是你后面的所有页都是第一页的内容吧？

如果是这个问题的话
那就是你分页连接没有传递参数

回复赞

skynessjhs304 2008-11-29

点击更多，出现文章，好几页都是相同的！那里的问题呢？？？？

回复赞

skynessjhs304 2008-11-29

sql="Select distinct(*) from Article where anclassid <>29 and anclassid <>38 "&keysnext(guanjian )&" order by UpdateTime DESC"
错误是：
错误类型：
Microsoft JET Database Engine (0x80040E14)
语法错误 (操作符丢失) 在查询表达式 '(*)' 中。
/zhuanti.asp, 第 117 行

回复赞

一把编程的菜刀 2008-11-29

sql="Select distinct(*) from Article where anclassid <>29 and anclassid <>38 "&keysnext(guanjian )&" order by UpdateTime DESC"

如果这样呢？

回复赞

加载更多回复

拼命学的编程，你却可能错过一个亿！先来看 2 则新闻：近日 AI 圈最火的新闻当属“AI独角兽依图科技上市”，“AI四小龙”先后开启了上市之路，继旷视科技、云从科技分别谋求港股、A股上市后，依图科技也加入了 IPO 队伍...

用5G“点亮”智慧灯杆！FCU2302赋予智慧城市更多可能一、5G智慧灯杆系统原理 1、感知输出设备：即负责前端数据感知和相关输出的设备，包括照明灯、各类传感器、一键报警器、摄像头、音频广播、LED屏等设备。 2、通信控制设备：即负责感知输出设备的数据采集、...

求助！关于Django跳转后css路径问题本人新手一枚，最近尝试着在新浪sae上搭建一个个人博客。现在遇到的问题如下：在网上查阅很多关于css和js引用的解决方案后，我选择了下面这种：在urls.py中有如下定义： urlpatterns = patterns('', url( r'^...

计算机的e盘 f盘找不到,求助：急！我的电脑中D盘和E盘不见了打开“我的电脑”-“工具”-“文件夹选项”-“查看”-在“显示所有文件和文件夹”选项前打勾-“确定”2.删除以下文件夹中的内容：x:＼documents and settings＼用户名＼cookies＼下的所有文件(保留index文件)x:＼...

独家 | 教你用Pytorch建立你的第一个文本分类模型！作者：Aravind Pai翻译：王威力校对：张一豪本文约3400字，建议阅读10+分钟本文介绍了利用Pytorch框架实现文本分类的关键知识点，包括使...

matlab axis函数_又是被Matlab整疯的一天！来学点简单操作！周一到！从本周开始，我们一起来学习关于绘图的操作吧！之前学过了如何从文件中读取数据，有的小伙伴可能着急了，怎么学了这么久，还是不会画图呀？...就会生成一个最基本的图窗： MATLAB里，图窗...

程序员也分三六九等？等级差异，一个看不起一个！你知道程序员、高级程序员、架构师、技术经理、技术总监之间有什么区别吗？他们的工作职责又是什么？...另外因为经验较少，一般需要求助别人，或与别人一起完（ban）成（zhuan）一个任务。此阶...