<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="conn.asp"-->


<%Call head()
Call saycardd("偷菜")
dim action
dim userid,ids,TP,id,chanl
userid=request("userid")
If userid="" Then userid=myid
id=request("id")
ids=request("ids")
response.write "=="&dybt&"动态==<br/>"

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from nongdt order by shijian desc",connnong,1,1
If Not rs.eof Then

	Dim PageSize,i
	If saytk=1 then
	PageSize=10	
	Else
	PageSize=20
	End if
	Dim Count,page,pagecount,gopage			
	gopage="nongdt.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;"
	Count=rs.recordcount	
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
dim ggss
	For i=1 To PageSize     						
	If rs.eof Then Exit For	
	
response.write ubb3(rs("dz"))
If rs("ids")<>0 Then response.write nonglx(rs("ids"))
response.write"["
response.write date_gametalk(rs("shijian"))
response.write"前]<br/>"
If saytk=100 Then response.write "<div class=""zd""></div>"
rs.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳转</a><br/>"
Else
response.write "您还没有农场动态!"
end If


rs.close
set rs=nothing

connnong.close
set connnong=nothing
conn.close
set conn=Nothing
Response.write "<a href='index.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回我的农场</a><br/>"&chr(13)
%>
<%Call head1()%>