feedbackview.asp

广州市拓尔家具网源码 后台:mrsystem 用户名密码admin

<!--#include file="Inc/SysProduct.asp" -->
<!--#include file="css.css" -->
<style type="text/css">
<!--
.STYLE7 {font-size: 12px}
.STYLE8 {
	font-size: 14px;
	color: #FFCC00;
}
-->
</style>
<!--#include file="top.asp"-->
<style type="text/css">
<!--
.STYLE3 {color: #FFFFFF}
.STYLE4 {
	font-size: 12;
	color: #FFFFFF;
}
.STYLE5 {font-size: 12px}
-->
</style>
<table width="1001" height="120" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="316" valign="top"><!--#include file="left.asp" --></td>
    <td width="654" align="center" valign="top"><table width="620" height="34" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="620" height="59" align="left" background="images/amain_8.gif"><span class="STYLE8">留言中心</span></td>
      </tr>
    </table>
      <table width="617" height="248" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="650" height="248" align="center" valign="top"><br>
          <%
set rs=server.createobject("adodb.recordset")
sql="select * from Feedback 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 "&nbsp;&nbsp;&nbsp;&nbsp;还没留言！"
  exit Sub
End if
End if
%>
        <%
i=0
do while not rs.eof
%>
          <table width="617"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" >
            <tr bgcolor="#DFDFDF">
              <td width="17%" height="22" align="right" bgcolor="#DFDFDF" ><span class="STYLE7"> 主　题： </span></td>
              <td colspan="5" bgcolor="#DFDFDF"><span class="STYLE7">&nbsp;
                  <%if rs("username")="管理员"then%>
                [管理员公告]
                <%end if%>
                <%=rs("title")%></a></span></td>
            </tr>
            <tr bgcolor="#DFDFDF">
              <td height="22" align="right" bgcolor="#EFEFEF" ><span class="STYLE7"> 反馈内容： </span></td>
              <td colspan="5" align="center" bgcolor="#EFEFEF" ><table width="97%"  border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="4" class="STYLE7">&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="40" class="STYLE7" ><%=rs("Content")%> </td>
                  </tr>
                  <tr>
                    <td height="4" class="STYLE7"></td>
                  </tr>
              </table></td>
            </tr>
            <tr bgcolor="#EFEFEF">
              <td height="22" align="right" ><span class="STYLE7"> 留言者： </span></td>
              <td width="22%" ><span class="STYLE7"><%=rs("Receiver")%> </span></td>
              <td width="12%" align="right" ><span class="STYLE7">留言时间：</span></td>
              <td width="17%" ><span class="STYLE7"><%=rs("Time")%></span></td>
              <td width="12%" align="right" ><span class="STYLE7">回复时间：</span></td>
              <td width="20%" ><span class="STYLE7"><%=rs("Retime")%> </span></td>
            </tr>
            <tr bgcolor="#DFDFDF">
              <td height="22" align="right" bgcolor="#EFEFEF" ><span class="STYLE7"> 管理员回复： </span></td>
              <td colspan="5" align="center" bgcolor="#EFEFEF" ><table width="97%"  border="0" cellpadding="0" cellspacing="0" >
                  <tr>
                    <td height="4" class="STYLE7"></td>
                  </tr>
                  <tr>
                    <td height="40" class="STYLE7" ><%if rs("ReFeedback")=""then%>
                      ["未回复"]
                      <%else%>
                      <%=rs("ReFeedback")%>
                      <%end if%>                    </td>
                  </tr>
                  <tr>
                    <td height="4" class="STYLE7"></td>
                  </tr>
              </table></td>
            </tr>
            <tr valign="top" bgcolor="#F7F7F7">
              <td height="12" colspan="6" ><img src="Images/Hrbackup.gif" width="96" height="10"></td>
            </tr>
          </table>
          <span class="STYLE2">
          <%
i=i+1
if i >= MaxPerPageFeedback then exit do
rs.movenext
loop
%>
          </span>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="STYLE2 STYLE7"><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>
          <span class="STYLE2 STYLE7">
          <%end sub%>
          <%
rs.close
set rs=nothing
%>
          </span></td>
        </tr>
      </table>
    </td>
    <td width="31" valign="top"><img src="images/amain_9.gif" width="65" height="219" /></td>
  </tr>
</table>
<!--#include file="foot.asp" -->