<!--#include file="../config.asp" -->
<!--#include file="../PageBase.asp" -->
<!--#include file="../page.asp" -->
<!--#include file="../Sql.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=utf-8" />
<title>留言中心_<%=SiteName%></title>
<meta name="keywords" content="<%=SiteKeyWords%>" />
<meta name="description" content="<%=SiteDescription%>" />
<link href="../images/main.css" rel="stylesheet" type="text/css" />
</head>

<body>
<!--#include file="../top.asp" -->
<DIV class=wrapper>
<DIV class="clearfix layout-home-cols2">
<DIV class=col1>
 
  <!--#include file="left.asp" -->
</DIV>
<DIV class=col2>
<DIV class="hslice leastdownload" >
<DIV class=panel-head>
<H3 class="title entry-title">当前位置：<a href="/">首 页</a> > 留言中心</H3>
 </DIV>
<DIV class="panel-body entry-content font13 line25"> 
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" style="margin:20px auto">
  <tr>
    <td width="690" valign="top">
<%
id=Easp.RA("id",1)
 
set rs=Easp.db.GetRecordBySql("select  * from t_Message where FAuditState=1 order by Fid desc")
if rs.eof then
response.Write "<div style=""padding:10px"">暂无记录！</a>"
else
rs.PageSize =""&config("FMessageCount")&""
iCount=rs.RecordCount 
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
For i=1 To x
%>
        <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#EEF2FA">
          
          <tr>
            <td width="41%" bgcolor="#F7F7F7" ><div align="left" style="font-weight:bold; color:#333333"><%=InterceptString(rs("Ftitle"),20)%></div></td>
            <td width="30%" bgcolor="#F7F7F7" >姓名：<%=rs("Fname")%></td>
            <td width="29%" bgcolor="#F7F7F7" ><%=rs("FCreateDate")%></td>
          </tr>
          <tr>
            <td colspan="3" bgcolor="#FFFFFF" style="line-height:23px">&nbsp;&nbsp;&nbsp;&nbsp;<%=InterceptString(DelHtml(rs("Fbody")),200)%>...</td>
          </tr>
          <tr>
            <td colspan="3" bgcolor="#F7F7F7" style="line-height:23px"><div align="left">管理员回复：<%
if IsNull(rs("FReply")) or trim(rs("FReply")&"")="" then
response.Write("<font color=#FF0000>此留言暂未回复！</font>")
else
response.Write("<font color=#FF0000>"&rs("FReply")&"</font>")
end if
  %></td>
          </tr>
        </table> 
        <%
rs.movenext
next
%>
        <%'以下显示分页
 call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
Easp.db.C(rs)
%></td>
  </tr>
</table>
</DIV>
</DIV>
  <DIV class=panel-foot>
<DIV></DIV></DIV>
</DIV>
</DIV></DIV>
<!--#include file="../foot.asp" -->
</body>
</html>
