新手求救！高手给点意见！在线等.... - ASP及.net - 5D互动论坛

» 互动论坛 » ASP及.net » 新手求救！高手给点意见！在线等....

跳转到：

每页显示15条 1/1<<<1>>

上面的所有链接中都少了cate参数，没有cate参数，程序里面的sql语句执行后就没有结果，导致那条语句出错！并不是那条语句写错了，只是执行这条语句的前提有问题了！
没加cate参数的下一页（报错了）：
www.zjtr.com/jiaoyi/alllist.asp?Page=2
加了cate参数的下一页（就没问题了）：
www.zjtr.com/jiaoyi/alllist.asp?cate=1&Page=2

主题: 新手求救！高手给点意见！在线等....

yukous
职务：普通成员
等级：1
金币：0.0
发贴：76

引用

#12003/10/10 13:14:55

大家看看 www.zjtr.com/jiaoyi/alllist.asp?cate=1
点下一页，出错
出错句为：
rs.AbsolutePage = rs.PageCount
本页代码如下：

欢迎您！

<%
    set rs=server.CreateObject("ADODB.Recordset")
    sql="select * from gongy where cate='"& request.QueryString("cate") &"'"
    rs.open sql,conn,1,3
    'set rst=server.CreateObject("ADODB.Recordset")
    'strsql="select * from xgdh where id="&request.QueryString("cate")
    'rst.open strsql,conn,1,3
    %>

所有信息的详细内容：

<%
     page=1 ' 设置变量PAGE=1
rs.PageSize = 2 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
else
        if Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
end if
intCurPage = rs.AbsolutePage
%>
<%

For i = 1 to rs.PageSize
if rs.eOF then
Exit For
end if '利用for next 循环依次读出记录

     %>

信息种类：[]		联系方式：
信息主题： <%=rs("title")%>
发布时间：	(<%=date()%>)	发布人：
主要内容：	<%=replace(replace(replace(replace(rs("content"),"<","<"),">",">"),chr(13)," ")," "," ")%>

     <%
     rs.movenext
     next
     %>

<%if page<>1 then%>首页上一页<%end if %><%if page<>rs.pagecount then %>下一页尾页<% end if %>

<%
set rs=nothing
conn.close
%>

whoisspider
职务：普通成员
等级：1
金币：1.0
发贴：245

引用

#22003/10/10 14:48:14

<%if page<>1 then%>首页上一页<%end if %><%if page<>rs.pagecount then %>下一页尾页<% end if %>

yukous
职务：普通成员
等级：1
金币：0.0
发贴：76

引用

#32003/10/11 12:47:56

完全正确！
用崇拜的目光看你五分钟！！！

yukous
职务：普通成员
等级：1
金币：0.0
发贴：76

引用

#42003/10/13 13:12:17

那如果我的记录集是用户搜索得到的
记录集的取得的句子为：
keywd=trim(request("keywd"))
cate=request("cate")
cate2=request("cate2")

Set rst1= Server.CreateObject("ADODB.Recordset")
sql1="select * from gongy where (title like '%" & keywd &"%' or content like '%" & keywd &"%' or address like '%" & keywd &"%' or lianxi like '%" & keywd &"%') and cate='"& select1 & "' and cate2='"& select2 & "'"
rst1.open sql1,conn ,1,3
那请问，下一页等后面的参数跟什么呀？谢谢！

yukous
职务：普通成员
等级：1
金币：0.0
发贴：76