<%if request("page")<>"" and isnumeric(request("page"))=false then
response.write "参数错误"
response.end
end if
set rs=server.createobject("adodb.recordset")
keyword=""
keyword=request("keyword")
sql="select top 200 * from info_ypl where type='info' order by date desc,serial desc"
'sql="select top 200 * from info_ypl where title like '%"&keyword&"%' and type='info' order by date desc,serial desc"
rs.open sql,conn,1
if rs.eof then
%>
<%
else
rs.pagesize =11
page=request("page")
if page="" then
page=1
else
page=clng(page)
if page < 1 then page = 1
If Page > rs.PageCount Then Page = rs.PageCount
end if
rs.absolutepage = page
%>
|
标题 |
日期 |
<%
for i=1 to rs.pagesize
%>
| ◇ |
"><%=rs("title")%> |
<%=rs("date")%> |
<%
rs.movenext
if not rs.eof then
%>
| ◆ |
"><%=rs("title")%> |
<%=rs("date")%> |
<%
rs.movenext
end if
if rs.eof then exit for
next
%>
<%
end if
rs.close
set conn=nothing
set rs=nothing
%>
|
