|
|
| 新闻荟萃 |
<%page=request("page")
if page="" then
page=1
end if
set cnf2 = server.CreateObject("adodb.connection")
cnf2.Open application("dsnpd")
set rsf2 =server.CreateObject("adodb.recordset")
sqlf2 = "select D_Title,class_fen,class ,jieje,time1,D_ID from NewsData where keywords like '%文艺复兴%' order by time1 desc"
rsf2.open sqlf2,cnf2,1
'while not rsf2.eof
'分页操作
rsf2.pagesize=20
if not isempty(page) then
page=cint(page)
if page>rsf2.pagecount then
rsf2.absolutepage=rsf2.pagecount
elseif page<= 0 then
page=1
else
rsf2.absolutepage=page
end if
end if
page=rsf2.absolutepage
for i=1 to rsf2.pagesize
if rsf2.eof then
exit for
end if
%>
| " target="_blank" class="wenzhang"><%=rsf2("D_Title")%>
<%=rsf2("jieje")%> |
<%'rsf2.movenext
' wend
rsf2.movenext
next
%>
|
<%if request("page")>1 then %>
首页
上一页
<%else%>
首页
上一页
<%end if%>
<% if request("page")<>rsf2.pagecount then %>
下一页
尾页
<% end if%>
|
|
|
|
|
|
