<!--#include file="Inc/SysProduct.asp" -->
<!-- #include file="Head.asp" -->


<table width="1004" height="39" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="243" ><table width="243" height="39" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td background="imgbyl/ab1.gif" class="bai14px" style="padding-left:28px; padding-top:3px;">关于我们</td>
      </tr>
    </table></td>
    <td width="8"></td>
    <td width="29" background="imgbyl/ab2.gif"></td>
    <td width="75" background="imgbyl/abbg.gif" class="red14px" style="padding-top:4px;">在线留言</td>
    <td width="451" background="imgbyl/abbg.gif" class="ab2" style="padding-top:4px;">Feedback</td>
    <td width="198" align="center" background="imgbyl/abbg.gif" class="ab3" style="padding-top:4px;">当前位置：首 页 &gt;&gt; 在线留言 </td>
  </tr>
</table>
<table width="1004" height="221" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-bottom:8px;">
  <tr>
    <td width="243" valign="top"><table width="243" height="79" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="79" align="center" valign="top" background="imgbyl/ab3.gif">
              <table width="222" border="0" cellpadding="0" cellspacing="0" style="margin-top:5px;">
                <tr>
                  <td height="37" align="left" background="imgbyl/ab5.gif" style="padding-left:55px; ">
				  <a href="FeedbackView.asp"  class="ab11">查看留言</a>
				  </td>
                </tr>
              </table>
       
              <table width="222" border="0" cellpadding="0" cellspacing="0" style="margin-top:5px;">
                <tr>
                  <td height="37" align="left" background="imgbyl/ab5.gif" style="padding-left:55px; ">
				  <a href="Feedback.asp"  class="ab11">我要留言</a>
				  </td>
                </tr>
              </table>
	   </td>
      </tr>
    </table>
        <table width="243" height="13" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="imgbyl/ab4.gif" width="243" height="14" /></td>
          </tr>
        </table>
      <table width="243" height="39" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td background="imgbyl/ab1.gif" class="bai14px" style="padding-left:28px; padding-top:3px;">在线服务</td>
          </tr>
        </table>
      <table width="243" height="79" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="79" align="center" valign="top" background="imgbyl/ab3.gif"><table width="201" height="98" border="0" cellpadding="0" cellspacing="0" style="margin-top:5px;">
                <tr>
                  <td height="37" align="left" class="copy1">

<!--#include file="qq.asp" -->	

                  </td>
                </tr>
            </table></td>
          </tr>
        </table>
      <table width="243" height="13" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="imgbyl/ab4.gif" width="243" height="14" /></td>
          </tr>
      </table></td>
    <td width="8"></td>
    <td width="753" valign="top"><table width="753" height="15" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td><img src="imgbyl/ab6.gif" width="753" height="15" /></td>
      </tr>
    </table>
        <table width="753" height="153" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td valign="top" background="imgbyl/ab7.gif" class="aboutus" style="padding-left:35px; padding-top:15px; padding-right:35px; padding-bottom:15px;" >







<%
set rs=server.createobject("adodb.recordset")
sql="select * from Feedback where Language='0' and Publish<>'1' order by id desc"
rs.open sql,conn,1,1

dim MaxPerPageFeedback
MaxPerPageFeedback=5

'取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPageFeedback
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

call list

'显示帖子的子程序
Sub list()%>
                                    <%
If rs.eof and rs.bof then
  If rs.eof and rs.bof then
  response.write "<br>&nbsp;&nbsp;&nbsp;&nbsp;没有留言"
  exit Sub
End if
End if
%>
                                    <br>
                                    <%
i=0
do while not rs.eof
%>

                          <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" >
                            <tr bgcolor="#E8E8E8">
                              <td width="17%" height="30" align="right" bgcolor="#FFFFFF" > 主　题： </td>
                              <td colspan="5" bgcolor="#FFFFFF">&nbsp;
                                            <%if rs("username")="管理员"then%>
                                          [管理员公告]
                                          <%end if%>
                                        <%=rs("title")%></td>
                            </tr>
                            <tr bgcolor="#DFDFDF">
                              <td height="22" align="right" bgcolor="#FFFFFF" > 反馈内容： </td>
                              <td colspan="5" align="center" bgcolor="#FFFFFF" ><table width="97%"  border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td height="40" ><%=rs("Content")%></td>
                                  </tr>
                              </table></td>
                            </tr>
                            <tr bgcolor="#EFEFEF">
                              <td height="30" align="right" bgcolor="#FFFFFF" > 留言者： </td>
                              <td width="22%" bgcolor="#FFFFFF" ><%=rs("Receiver")%></td>
                              <td width="12%" align="right" bgcolor="#FFFFFF" >留言时间：</td>
                              <td width="17%" bgcolor="#FFFFFF" ><%=rs("Time")%></td>
                              <td width="12%" align="right" bgcolor="#FFFFFF" >回复时间：</td>
                              <td width="20%" bgcolor="#FFFFFF" ><%=rs("Retime")%> </td>
                            </tr>
                            <tr bgcolor="#DFDFDF">
                              <td height="22" align="right" bgcolor="#FFFFFF" class="wz2a" > 管理员回复： </td>
                              <td colspan="5" align="center" bgcolor="#FFFFFF" ><table width="97%"  border="0" cellpadding="0" cellspacing="0" >
                                  <tr>
                                    <td height="4"></td>
                                  </tr>
                                  <tr>
                                    <td height="40" align="left" ><%if rs("ReFeedback")=""then%>
                                                ["未回复"]
                                                <%else%>
                                                <%=rs("ReFeedback")%>
                                                <%end if%>   
                                    </td>
                                  </tr>
                                  <tr>
                                    <td height="4"></td>
                                  </tr>
                              </table></td>
                            </tr>
                          </table>
                                  <%
i=i+1
if i >= MaxPerPageFeedback then exit do
rs.movenext
loop
%>
                        


                          <table width="100%" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td height="45"><div align="right">
                                            <%
Response.write "全部"
Response.write "共" & Cstr(Rs.RecordCount) & "条留言&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "第" & Cstr(CurrentPage) &  "/" & Cstr(rs.pagecount) & "&nbsp;"
If currentpage > 1 Then
response.write "<a href='FeedbackView.asp?&page="+cstr(1)+"'>&nbsp;首页&nbsp;</a>"
Response.write "<a href='FeedbackView.asp?page="+Cstr(currentpage-1)+"'>&nbsp;上一页&nbsp;</a>"
Else
Response.write "&nbsp;上一页&nbsp;"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='FeedbackView.asp?page="+Cstr(currentPage+1)+"'>&nbsp;下一页&nbsp;</a>"
Response.write "<a href='FeedbackView.asp?page="+Cstr(Rs.PageCount)+"'>&nbsp;尾页&nbsp;</a>"
Else
Response.write ""
Response.write "&nbsp;下一页&nbsp;"
End if
Response.write "转到第"
response.write"<select name='sel_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>"
    for i = 1 to Rs.PageCount
       if i = currentpage then 
          response.write"<option value='FeedbackView.asp?page="&i&"&id="&id&"' selected>"&i&"</option>"
       else
          response.write"<option value='FeedbackView.asp?page="&i&"&id="&id&"'>"&i&"</option>"
       end if
    next
response.write"</select>页"
%>
                                        </div></td>
                            </tr>
                          </table>
                        <%end sub%>









           </td>
          </tr>
        </table>
      <table width="753" height="15" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="imgbyl/ab8.gif" width="753" height="15" /></td>
          </tr>
      </table></td>
  </tr>
</table>
<!--#include file="foot.asp" -->