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

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)) %>


求助查看，具体那里有问题呢？？？？
...全文
359 112 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
112 条回复
切换为时间正序
请发表友善的回复…
发表回复
一把编程的菜刀 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"

如果这样呢？
加载更多回复（92）
版主已阅插件for_Discuz!X1.5
版主已阅插件适用于Discuz!X1.5论坛程序
find楽器me!-crx插件
语言:日本語 总是感激不尽。我，j-总的说，象如说的音乐样网站，概览 我总是感激的， “乐器.ME”J-Total Music“是一个刚刚使用Google搜索结果查找的扩展名。
设置超过DIV高度范围隐藏结尾... 点击查看全文显示全部
&lt;!DOCTYPE html&gt; &lt;html&gt; &lt;head&gt; &lt;meta charset="utf-8"&gt; &lt;title&gt;文字超出长度用省略号显示,点击显示全文&lt;/title&gt; &lt;/head&gt; &lt;body&gt; &lt;button&gt;显示全文&a
java一个按钮添加多个事件,[求助]添加一个按钮事件
[求助]添加一个按钮事件如何给 NorthButton 按钮添加一个点击事件 点击后添出一个消息框显示点了NorthButton就行..我试了几下,也看了几个老贴的例子..依然没改好,哪位朋友能告诉我下该把事件的实现代码加在哪里?或是说我这代码还有更多的问题?谢谢!!代码***************************************************************...
java中JLabel添加监听事件_[求助]关于JLabel添加监听器的问题。请各位帮忙！！
[求助]关于JLabel添加监听器的问题。请各位帮忙！！如图，我想在左边的JLabel上添加事件监听器，然后再去右边的JPane上进行绘制图形，请问这个事件监听器改怎么加，好象不能加ActionListener，要加什么呢？[此贴子已经被作者于2007-5-24 20:09:07编辑过]搜索更多相关的解决方案:JLabel监听图形----------------解决方案----------...
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章