<!--#include file="../conn.asp"-->
<!--#include file="../config.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=gb2312" />
<title>留言中心_<%=config("title")%></title>
<meta name="keywords" content="<%=config("keywords")%>" />
<meta name="description" content="<%=config("description")%>" />
<link href="../images/css.css" rel="stylesheet" type="text/css" />
</head>

<body><div class="bg">
<!--#include file="../top.asp" -->
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr valign="top">
    <td width="255"><!--#include file="left.asp" --></td>
    <td width="725"><table width="100%" height="40" border="0" cellpadding="0" cellspacing="0" style="border-bottom:1px solid #ccc">
      <tr>
        <td width="5%">&nbsp;</td>
        <td width="95%"><span id="d">留言中心</span></td>
      </tr>
    </table><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" style="margin:20px auto">
  <tr>
    <td width="690" valign="top">
<%
id=request.QueryString("id")
if  not isnumeric(id)  then
Response.Write "<script>alert('警告！请勿尝试注入！');history.go(-1);</script>" 
Response.End()
end if
set rs=server.createobject("adodb.recordset") 
exec="select  * from ly where sh=1 order by id desc"
rs.open exec,conn,1,1
if rs.eof then
response.Write "<div style=""padding:10px"">暂无记录！</a>"
response.End()
else
rs.PageSize =""&config("lyclass")&""
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("title"),20)%></div></td>
            <td width="30%" bgcolor="#F7F7F7" >姓名：<%=rs("name")%></td>
            <td width="29%" bgcolor="#F7F7F7" ><%=rs("data")%></td>
          </tr>
          <tr>
            <td colspan="3" bgcolor="#FFFFFF" style="line-height:23px">&nbsp;&nbsp;&nbsp;&nbsp;<%=InterceptString(DelHtml(rs("body")),200)%>...</td>
          </tr>
          <tr>
            <td colspan="3" bgcolor="#F7F7F7" style="line-height:23px"><div align="left">管理员回复：<%
if IsNull(rs("hf")) or trim(rs("hf")&"")="" then
response.Write("<font color=#FF0000>此留言暂未回复！</font>")
else
response.Write("<font color=#FF0000>"&rs("hf")&"</font>")
end if
  %></td>
          </tr>
        </table> 
        <%
rs.movenext
next
%>
        <%'以下显示分页
 call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
rs.close
set rs=nothing
%></td>
  </tr>
</table></table></td>
  </tr>
</table>
<!--尾部开始 -->
<div id="foot"><!--#include file="../foot.asp" --></div> 

<!--尾部结束 -->


</div>
</body>
</html>
