asp+access程序,本地没问题,传上去后填加新闻成功,数据库里也有,就是前台页面不显示列表
64位2008系统,对着数据库里的ID直接访问这页面也中以看到,就是列表页不显示换过服务器后填加的新新闻,以前的新闻在后台修改一下,再刷新,列表页也看不到了;贴上列表页代...
64位2008系统,对着数据库里的ID直接访问这页面也中以看到,就是列表页不显示换过服务器后填加的新新闻,以前的新闻在后台修改一下,再刷新,列表页也看不到了;
贴上列表页代码:
<%
nClass_id=request("nid")
if nClass_id="" then
nClass_id=1
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [Article] where nclass_id="&nClass_id&" order by indate desc,news_id desc"
rs.open sql,conn,1,1
if rs.bof<>true then
rs.PageSize=15
If Request("mypage")="" Then
rs.absolutepage = 1
inAbsolutePage=1
Else
rs.AbsolutePage = cint(Request("mypage"))
inAbsolutePage=cint(Request("mypage"))
End If
Page = rs.AbsolutePage
For i = 1 to rs.PageSize '利用for next 循环依次读出当前页的记录
if rs.EOF then Exit For
if i mod 2=1 then
%> 展开
贴上列表页代码:
<%
nClass_id=request("nid")
if nClass_id="" then
nClass_id=1
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [Article] where nclass_id="&nClass_id&" order by indate desc,news_id desc"
rs.open sql,conn,1,1
if rs.bof<>true then
rs.PageSize=15
If Request("mypage")="" Then
rs.absolutepage = 1
inAbsolutePage=1
Else
rs.AbsolutePage = cint(Request("mypage"))
inAbsolutePage=cint(Request("mypage"))
End If
Page = rs.AbsolutePage
For i = 1 to rs.PageSize '利用for next 循环依次读出当前页的记录
if rs.EOF then Exit For
if i mod 2=1 then
%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询