模仿wwe:asp分页问题~~~~请高手帮忙

来源:百度文库 编辑:高考问答 时间:2024/04/28 00:56:16
一个后台,原来是没问题的,把它复了过来,按添加新闻,添加成功后就转到显示新闻列表的那个页面,新闻列表页面显示分页正常,能够分页!!
而直接点新闻管理,进入新闻列表页面,就不能显示了,
ADODB.Recordset (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
newsshow.asp, 第 58 行
58行是这句:rs.AbsolutePage = Page

Set rs=Server.CreateObject("ADODB.RecordSet")
sql = "Select * from lp_loupan where c_id="&session("lp_corp_id")&" order by id desc"
rs.Open sql,cn,1,2

rs.PageSize = 10
abc=trim(request("page"))
if abc="" then
abc=1
end if
Page = clng(abc)
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount

rs.AbsolutePage = Page
for ipage = 1 to rs.PageSize
ID = Trim(rs("ID"))
name=trim(rs("p_name"))
p_xianqu=trim(rs("p_xianqu"))
p_wytype=trim(rs("p_wytype"))
p_zhutime=trim(rs("p_zhutime"))
p_zxqk=trim(rs("p_zxqk"))

数据库我没复过来,我只复了那个表过来,表名一样

abc=trim(request("page"))
if abc="" then
abc=1
end if
Page = clng(abc)
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount

改成这样试试:
if request("page")="" or cint(request("page"))<1 then
page=cint(request("page"))
elseif cint(request("page"))>rs.PageCount then
page=rs.PageCount
end if

还有你看一下这个 Select * from lp_loupan where c_id="&session("lp_corp_id")&" order by id desc

里面的session有没有值的,当直接进新闻列表时~~~