<td>

        

        <DIV class=inner_con><% page=Cint(request("page"))

set rs=server.Createobject("adodb.recordset") 

sql="select * from T_ggnews where Recycle=0 Order By ID DESC"

rs.open sql,conn,3,3 



if rs.bof and rs.eof then 

response.write "<center>暂时没有相关信息</center>" 

else 

rs.PageSize=10

if page=0 or page<0 then page=1 

if page >rs.pagecount then page=rs.pagecount  

CurrentPage=page

rs.AbsolutePage=page 

 i=1 

do while not rs.eof 



 %>

  <DIV class="innews_list mb30">

  <DL> <DT> &nbsp;&nbsp;&nbsp; <a href="gsnews.asp?id=<%=Rs("ID")%>" ><span id="left_cdf"> <%=Rs("NewsTitle")%></span></a></DT></DT><%=left(Rs("Addtime"),9)%></DL> 

<% 

rs.movenext 

if i>rs.PageSize-1 then exit do

i=i+1 

loop 

end if

 %>

  </DIV>

  </DIV><table width="100%" border="0" cellspacing="0" cellpadding="0"  style="margin-top:30px;">

  <tr>

    <td align="center"><%



If page > 1 Then

response.write "<a href='yjzx.asp?&page="+cstr(1)+"page="+cstr(1)+"&Recycle="+request.QueryString("Recycle")+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font>"

Response.write "<a href='yjzx.asp?page="+Cstr(currentpage-1)+"&Recycle="+request.QueryString("Recycle")+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font>"

Else

Response.write "<font color='#000000'>首页 上一页 </font>"

End if

If page < Rs.PageCount Then

Response.write "<a href='yjzx.asp?page="+Cstr(currentPage+1)+"&Recycle="+request.QueryString("Recycle")+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"

Response.write "<a href='yjzx.asp?page="+Cstr(Rs.PageCount)+"&Recycle="+request.QueryString("Recycle")+"'><font color='#000000'>尾页</font></a>&nbsp;&nbsp;"

Else

Response.write ""

Response.write "<font color='#000000'>下一页</font></strong>&nbsp;&nbsp;"

End if



Response.write "<font color='#000000'>"

Response.write " 共 </font>" & "<font color=#000000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'> 条信息</font>&nbsp;&nbsp;"

Response.write "<font color='#000000'>第</font>" & "<font color=#000000>" & Cstr(CurrentPage) &  "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "页</font></strong>"

%></td>