<!--#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" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title>留言中心_<%=config("title")%></title>
<meta name="keywords" content="<%=config("keywords")%>" />
<meta name="description" content="<%=config("description")%>" />
<link rel="shortcut icon" href="../favicon.ico" />
<link rel="stylesheet" type="text/css" href="../templates/css_style/layout.css"  />
</head>
<body>
<!--#include file="../top.asp" -->
<div class="i_container">
<div class="i_left">
<!--#include file="left.asp" -->
<div class="i_right">
<div class="p_content">
<dl class="tt yahei">
<dt>
<apsn id="com_pmodule_products_list">查看留言</apsn>
</dt>
<dd> 当前位置 ：<a href="../index.asp">网站首页</a> &gt;留言中心</dd>
</dl>
<div class="content">
<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>"
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="#cccccc" style="margin:15px auto">
          
          <tr>
            <td width="41%" bgcolor="#F7F7F7" ><div style="font-weight:bold; color:#333">&nbsp;<%=InterceptString(rs("title"),20)%></div></td>
            <td width="30%" bgcolor="#F7F7F7" >&nbsp;姓名：<%=rs("name")%></td>
            <td width="29%" bgcolor="#F7F7F7" >&nbsp;<%=rs("data")%></td>
          </tr>
          <tr>
            <td colspan="3" bgcolor="#FFFFFF" style="line-height:23px; padding:5px">&nbsp;&nbsp;&nbsp;&nbsp;<%=InterceptString(DelHtml(rs("body")),200)%>...</td>
          </tr>
          <tr>
            <td colspan="3" bgcolor="#F7F7F7" style="line-height:23px; padding:5px">&nbsp;管理员回复：<%
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>
</div>
<div class="modbottom">
<span class="bol"></span>
<span class="bor"></span>
</div>
</div>
</div>
</div>
<!--#include file="../foot.asp" -->
</body>
</html>