<!--#include file="../inc/config.asp"-->
<!--#include file="../Inc/Check_Login.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title>文章列表 - <%=PeakJo("A9_WebName")%></TITLE>
<meta name="Keywords" content="<%=PeakJo("A9_WebKey")%>" />
<meta name="Description" content="<%=PeakJo("A9_WebDesc")%>" />
<link type="text/css" rel="stylesheet" href="/Content/Css/Style.css" />
</head>
<body>
<!-- 顶部开始 header -->
<!--#include file="../Header.asp"-->
<!-- 顶部结束 header -->
    <table width="100%" border="0" align="center" cellpadding="1" cellspacing="0" class="User_Table">
      <tr>
        <th height="30">编号</th>
        <th>链接名称</th>
        <th>发布时间</th>
      </tr>
<%
if request("p")="" then
	currentPage=1
else
	currentPage=request("p")
end if
set rs=server.createobject("adodb.recordset")
MaxPerPage=20

Set Rs = Server.CreateObject("Adodb.RecordSet")
sql="select * from [A9_News] where A9_UserID='"& session("userid") &"' order by ID desc"
Rs.Open Sql,Conn,1,1
If Rs.Eof And Rs.Bof then
Response.Write ("<td align=""center"" colspan=""9"" height=""30"">您尚未发布任何信息</td>")
Else

if rs.eof then
	mpage=1
	allshu=0
else
	i=0
	rs.pagesize=MaxPerPage 
	mpage=rs.pagecount     
	rs.move  (currentPage-1)*MaxPerPage
	allshu=rs.recordcount

	pageno=currentPage
	if cint(pageno)>1 then
		pagefy=pagefy&"<a href='?p=1' title='首页'>首页</a>"
	end if

	if cint(pageno)>1 then
		if cint(pageno)-1<2 then
			pagefy=pagefy&"<a href='?p=1' title='上一页'>上一页</a>"
		else
			pagefy=pagefy&"<a href='?p="&cint(pageno)-1&"' title='上一页'>上一页</a>"
		end if
	end if
	if cint(pageno)< mpage then

		pagefy=pagefy&"<a href='?p="&pageno+1&"' title='下一页'>下一页</a>"
		pagefy=pagefy&"<a href='?p="&mpage&"'  title='尾页'>尾页</a>"
	end if
	        pagefy=pagefy&"<span>第"&pageno&"/"&mpage&"页</span> <a>"&MaxPerPage&"条/页</a> <a>共"&allshu&"条</a>"

%>
<%
	do while not rs.eof
%>
      <tr>
        <td height="30" align="center"><%=Rs("ID")%></td>
        <td align="center"><a href="http://<%=Rs("A9_WebUrl")%>" target="_blank"><%=Rs("A9_Title")%></a></td>
        <td><%=Rs("A9_Time")%></td>
      </tr>
<%		rs.movenext
		if i>=MaxPerPage then exit do
		i=i+1
	loop
end if
	%>
      <tr>
        <td colspan="3" height="30" align="center"><%=pagefy%></td>
      </tr>
    </table>
  <!-- 底部开始 footer -->
<!--#include file="../Bottom.asp"-->
<!-- 底部结束 footer -->
<%end if%>
</body>
</html>