
<!--#include file="conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file=cookies.asp-->
<%
Call Header(" - 字条列表"&Request("page"))
%>
<link rel="stylesheet" href="style.css" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #E7EEF5;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
img { border:0;}
-->
</style>
<table width="90%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#c5cfe0" bordercolordark="#FFFFFF" bgcolor="#C5D5E4"  style="font-size:12px; letter-spacing:1px;">
  <tr> 
    <td width="6%" height="20" align="center" bgcolor="#C5D5E4">编号</td>
	<td width="15%" align="center">主题</td><td width="52%" align="center">内容</td>
	<td width="11%" align="center">联系方式</td>
		
		<td width="16%" align="center">发布时间</td>
	</tr>
	<%
	Dim Sql
		Sql="Select * From tietie Order By Id DESC"	
	Dim Rs
	Set Rs=Server.CreateObject("ADODB.RecordSet")
		Rs.PageSize=40
		Rs.CacheSize=Rs.PageSize
		Rs.Open Sql,Conn,1,1
	Dim Page
		If Request("page")="" Then
			Page=1
		Else
			Page=Request("page")
		End If
		If Not(Rs.Eof And Rs.Bof) Then Rs.AbsolutePage=Page
	Dim I
	For I=1 To Rs.PageSize
		If Rs.Eof Then Exit For %>
        
		<tr ><td align="center"  bgcolor="#F2F5F9"><%=Rs("ID")%></td><td   bgcolor="#F2F5F9"#EAEFF4""><%=Rs("Pick")%></td><td  bgcolor="#F2F5F9"><font color="#333333"><%=Rs("Info")%>
		 <%=Rs("IP")%> </font><a href="tqkk.asp?cmd=del&id=<%=Rs("ID")%>"><img src="images/close.gif" alt="删除" /></a>
		</td><td   bgcolor="#F2F5F9"><%=Rs("Send")%></td><td   bgcolor="#F2F5F9"><%=Rs("PostDate")%></td></tr><%	
		Rs.MoveNext		
		If Rs.Eof Or I=Rs.PageSize Then Exit For
		%><tr><td align="center"   bgcolor="#F2F5F9"><%=Rs("ID")%></td><td   bgcolor="#F2F5F9"><%=Rs("Pick")%></td><td  bgcolor="#F2F5F9"><font color="#333333"><%=Rs("Info")%>
		 <%=Rs("IP")%> </font><a href="tqkk.asp?cmd=del&id=<%=Rs("ID")%>"><img src="images/close.gif" alt="删除" /></a>
		</td><td   bgcolor="#F2F5F9"><%=Rs("Send")%></a></td><td   bgcolor="#F2F5F9"><%=Rs("PostDate")%></td></tr>
		<%
		I=I+1
		Rs.MoveNext
	Next
	Dim PageCount,RecordCount
		PageCount=Rs.PageCount
		RecordCount=Rs.RecordCount
	Rs.Close
	Set Rs=Nothing
	Conn.Close
	Set Conn=Nothing 
	%>   
	<tr>
		<td height="26" colspan="5" bgcolor="#EAEFF4" class="ListP">
			<%If Session("_ASPK")="ok" Then Response.Write "<a href=""login.asp?q=q"">修改密码</a> "
			Response.Write "（字条总数："&RecordCount&"） "
			Call PageBar(Int(PageCount),Int(Page))%>
		</td>
	</tr>
</table>
