%
conn.open conn_str
set rs11=server.createobject("adodb.recordset")
sql11="select * from zhaoping where flag_stop=1"
rs11.open sql11,conn,3,2
page=cint(Request("page"))
if page=0 then
page=1
end if
Set rs=Server.CreateObject ("ADODB.Recordset")
sql_select="Select * From news where flag_stop=1 order by id desc"
rs.open sql_select,conn,3,2
If not rs.eof Then
rs.Pagesize=4
rs.AbsolutePage=page
pagestate="有"
End If
%>
<%
for i=1 to rs.PageSize
If rs.Eof Then Exit For
content=rs("content")
thistitle=Trim(rs("title"))
thetime=rs("publish_date")
content=replace(content," "," ")
content=replace(content,chr(13)," ")
Response.write"
● "&thistitle&"
"&content&"
"
rs.MoveNext
Next
%>
<%
If pagestate="有" Then
Response.write"共有新闻"&rs.RecordCount&"条,分"&rs.PageCount&"页显示,当前为第"&Page&"页:"
If rs.pageCount>1 Then
If page=1 Then
Response.write"首页 "
Response.write"上页 "
Else
Response.write"首页 "
Response.write"上页 "
End If
If page=rs.PageCount Then
Response.write"下页 "
Response.write"尾页 "
Else
Response.write"下页 "
Response.write"尾页"
End If
End If
End If
rs.close
conn.close
%>