<%
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
%>
|
