 |
| |
新闻中心
|
|
|
|
<%
if request("keyword")<>"" then
keyword=request("keyword")
str=" where title like '%"&keyword&"%'"
end if
sqlnews="select * from newscontent"&str&" order by id desc"
rs.open sqlnews,conn,1,1
rs.pagesize=10
topage=clng(request("topage"))
if topage=0 then
topage=1
elseif topage>rs.pagecount then
topage=rs.pagecount
end if
if rs.eof then
response.Write "| 暂无新闻信息 | "
else
rs.absolutepage=topage
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
|
" class="style2"><%=rs("title")%> |
|
<%
rs.movenext
next
end if
%>
|
| 每页10条 共计<%=rs.recordcount%>条 |
页次:
<%
for m=1 to rs.pagecount
response.write" "&m&""
next
rs.close
%>
|
|
 |
 |