www.gusucode.com > 绿色环保工作企业网站源码程序 > FeedbackMember.asp

    <!--#include file="Inc/SysProduct.asp" -->
<!-- #include file="Head.asp" -->
<%
UserName=trim(request("UserName"))
if session("UserName")="" then
	response.redirect "UserServer.asp"
end if
%>
<TABLE cellSpacing=0 cellPadding=0 width=1002 align=center border=0>
  <TBODY>
    <TR>
      <TD vAlign=top width=210><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD><IMG height=40 src="imgbly/lt29.gif" width=210></TD>
            </TR>
            <TR>
              <TD align=middle><TABLE 
            style="BORDER-RIGHT: #e9e9e9 1px solid; BORDER-TOP: #e9e9e9 1px solid; BORDER-LEFT: #e9e9e9 1px solid; BORDER-BOTTOM: #e9e9e9 1px solid" 
            cellSpacing=0 cellPadding=0 width=178 border=0>
                <TBODY>
                  <TR>
                    <TD height=15>&nbsp;</TD>
                  </TR>
                  <TR>
                    <TD><TABLE cellSpacing=0 cellPadding=0 width=162 align=center 
                  border=0>
                        <TBODY>
                          <TR>
                            <TD class=lNav><a href="UserEdit.asp">修改会员资料</a></TD>
                          </TR>
                          <TR>
                            <TD class=lNav><a href="UserEditPwd.asp">修改会员密码</a></TD>
                          </TR>
                          <TR>
                            <TD class=lNav><a href="UserOrder.asp">购物订单查询</a></TD>
                          </TR>
                          <TR>
                            <TD class=lNav1><a href="FeedbackMember.asp">站内留言中心</a></TD>
                          </TR>
                          <TR>
                            <TD class=lNav><a href="UserLogout.asp?Action=Ch">退出会员中心</a></TD>
                          </TR>
                        </TBODY>
                    </TABLE></TD>
                  </TR>
                  <TR>
                    <TD height=15>&nbsp;</TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
            </TR>
          </TBODY>
      </TABLE></TD>
      <TD style="BACKGROUND: url(imgbly/bg_body.gif) repeat-y 50% top" vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR>
                      <TD background=imgbly/bg_rt.gif><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                          <TBODY>
                            <TR>
                              <TD><IMG src="imgbly/rt16.gif" width="209" height=41></TD>
                              <TD>&nbsp;</TD>
                              <TD class=loc 
                      style="BACKGROUND: url(img/bg_rtjiao.gif) no-repeat right 50%; COLOR: #9f9f9f" 
                      align=right>你现在的位置:<A href="index.asp">首页</A> &gt; 服务中心 &gt;客户留言</TD>
                            </TR>
                          </TBODY>
                      </TABLE></TD>
                      <TD width=17>&nbsp;</TD>
                    </TR>
                  </TBODY>
              </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE>
          <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="3%" height="34" rowspan="3">&nbsp;</td>
              <td width="94%">&nbsp;</td>
              <td width="3%" rowspan="3">&nbsp;</td>
            </tr>
            <tr>
              <td><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="206" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <TR>
                          <TD align="center"><%
UserName=Session("UserName")
set rs=server.createobject("adodb.recordset")
sql="select * from Feedback where UserName='"&UserName&"' order by id desc"
rs.open sql,conn,1,1

dim MaxPerPageFeedback
MaxPerPageFeedback=5

'取得页数,并判断留言输入的是否数字类型的数据,如不是将以第一页显示
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
  response.write "<br><br><p algin=center>对不起,您还没有给我们留言</p><br><a href='Feedback.asp'>点击这里留言</a>"
  response.end
End if
%>
                              <br>
                              <%
i=0
do while not rs.eof
%>
                              <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" >
                                <tr bgcolor="#EBEBEB">
                                  <td width="17%" height="40" align="right" > 主 题: </td>
                                  <td colspan="5">&nbsp;
                                      <%if rs("username")="管理员"then%>
                  [管理员公告]
                  <%end if%>
                  <%=rs("title")%></td>
                                </tr>
                                <tr bgcolor="#DFDFDF">
                                  <td height="22" align="right" bgcolor="#EFEFEF" > 反馈内容: </td>
                                  <td colspan="5" align="center" bgcolor="#EFEFEF" ><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="22" align="right" > 留言者: </td>
                                  <td width="22%" ><%=rs("Receiver")%> </td>
                                  <td width="12%" align="right" >留言时间:</td>
                                  <td width="17%" ><%=rs("Time")%></td>
                                  <td width="12%" align="right" >回复时间:</td>
                                  <td width="20%" ><%=rs("Retime")%> </td>
                                </tr>
                                <tr bgcolor="#DFDFDF">
                                  <td height="22" align="right" bgcolor="#EFEFEF" > 管理员回复: </td>
                                  <td colspan="5" align="center" bgcolor="#EFEFEF" ><table width="97%"  border="0" cellpadding="0" cellspacing="0" >
                                      <tr>
                                        <td height="4"></td>
                                      </tr>
                                      <tr>
                                        <td height="40" ><%if rs("ReFeedback")=""then%>
                        ["未回复"]
                        <%else%>
                        <%=rs("ReFeedback")%>
                        <%end if%>
                                        </td>
                                      </tr>
                                      <tr>
                                        <td height="4"></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>
                              <%
i=i+1
if i >= MaxPerPageFeedback then exit do
rs.movenext
loop
%>
                              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td><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='FeedbackMember.asp?&page="+cstr(1)+"'>&nbsp;首页&nbsp;</a>"
Response.write "<a href='FeedbackMember.asp?page="+Cstr(currentpage-1)+"'>&nbsp;上一页&nbsp;</a>"
Else
Response.write "&nbsp;上一页&nbsp;"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='FeedbackMember.asp?page="+Cstr(currentPage+1)+"'>&nbsp;下一页&nbsp;</a>"
Response.write "<a href='FeedbackMember.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='FeedbackMember.asp?page="&i&"&id="&id&"' selected>"&i&"</option>"
       else
          response.write"<option value='FeedbackMember.asp?page="&i&"&id="&id&"'>"&i&"</option>"
       end if
    next
response.write"</select>页"
%>
                                  </div></td>
                                </tr>
                              </table>
                              <%end sub%>
                          </TD>
                        </TR>
                    </table></td>
                </tr>
              </table></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
            </tr>
        </table></TD>
    </TR>
  </TBODY>
</TABLE>
<%
rs.close
set rs=nothing
%>    
<!-- #include file="Inc/Foot.asp" -->
</BODY></HTML>