相关代码 |
|
set rs = server.createobject("adodb.recordset")
rs.source = "select * from newtree where Pid=0 order by id desc "
rs.open rs.source,conn,1,1
dim i,intPage,page,pre,last,filepath
set rsp = server.createobject("adodb.recordset")
productsSQL= "select id,TreeName,Newtitle,Putman,Putout,addtime from news order by id desc "
rsp.PageSize = 12 '这里设定每页显示的记录数
rsp.CursorLocation = 3
rsp.Open productsSQL,conn,0,2,1 '这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page)>=rsp.PageCount then
intpage = rsp.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rsp.eof then
rsp.AbsolutePage = intpage
end if
%>
新闻检索：从
var myDate=new dateSelector();
myDate.year--;
myDate.inputName='start_date'; //注意这里设置输入框的name，同一页中日期输入框，不能出现重复的name。
myDate.display();
到
myDate.year++;
myDate.inputName='end_date'; //注意这里设置输入框的name，同一页中的日期输入框，不能出现重复的name。
myDate.display();
名称：
栏目列表：首页
操 作
if not rs.EOF then
while not rs.eof
%>
┣ [ID号:]
删除 | 添加新闻 | 下级类别新闻添加
rs.movenext
wend
else
response.Write""
response.Write"未设新闻类别"
response.Write""
End if
rs.close
set rs=nothing
%>
新闻列表：首页 ("√"表示该信息已发布；"×"表示该信息已有数据未发布)
编号
新闻类别
新闻标题
添加时间
操作
if rsp.BOF then
response.write " end if
for i=1 to rsp.PageSize
if rsp.EOF or rsp.BOF then exit for
dim Lpt,Lstr
Lpt=rsp("Putout")
if Lpt=true then
Lstr="√"
else
Lstr="×"
end if
%>
修改
rsp.movenext
next
%>
0 then%>
当前页/
当前页0/0
|共有条记录,每页12条记录
首页|
上页|
下页|
尾页|转到第
for i = 1 to rsp.PageCount
if i = intpage then%>
end if
next
%>
页