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

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年,不再开放新的回复
发表回复
你是用这种方式传过来的
你接受的时候

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>
这里有问题嘛?
回复
那是你参数每传过去的问题

你点更多的时候要把参数传过去才可以
回复
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
还是不行,点击更多以后出来的是数据库的全部内容,郁闷了啊!
回复
上次你问不是给你说了吗?
回复
toury 2008-11-29
你在哪里点击的[第1页]。。。[第n页]?我没找到
回复
[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

是这里的问题嘛????
回复
我打一个比方吧

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

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

就拿你的这个来说吧
应该是
test.asp?page=1&guanjian="&guanjian&"这样传参数过去
回复
layers2323 2008-11-29
distinct * 当然没用了
distinct * 的筛选条件等同是:只要有一个字段不同就可以了,那个字段可能是时间,id等等。

回复
skynessjhs304 2008-11-29
对,是你说的这个问题!!!chinmo 就是这个问题,分页??怎末设置啊???哎,我是超级菜菜啊~~
回复
晕,你只是分页的时候出现这个问题是吧?

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

如果是这个问题的话
那就是你分页连接没有传递参数
回复
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 行
回复
sql="Select distinct(*) from Article where anclassid <>29 and anclassid <>38 "&keysnext(guanjian )&" order by UpdateTime DESC"

如果这样呢?
回复
加载更多回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-11-29 11:47
社区公告
暂无公告