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> </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> </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> </TD> <TD class=loc style="BACKGROUND: url(img/bg_rtjiao.gif) no-repeat right 50%; COLOR: #9f9f9f" align=right>你现在的位置:<A href="index.asp">首页</A> > 服务中心 >客户留言</TD> </TR> </TBODY> </TABLE></TD> <TD width=17> </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"> </td> <td width="94%"> </td> <td width="3%" rowspan="3"> </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"> <%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) & "条留言 " Response.write "第" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write "<a href='FeedbackMember.asp?&page="+cstr(1)+"'> 首页 </a>" Response.write "<a href='FeedbackMember.asp?page="+Cstr(currentpage-1)+"'> 上一页 </a>" Else Response.write " 上一页 " End if If currentpage < Rs.PageCount Then Response.write "<a href='FeedbackMember.asp?page="+Cstr(currentPage+1)+"'> 下一页 </a>" Response.write "<a href='FeedbackMember.asp?page="+Cstr(Rs.PageCount)+"'> 尾页 </a>" Else Response.write "" Response.write " 下一页 " 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> </td> </tr> </table></TD> </TR> </TBODY> </TABLE> <% rs.close set rs=nothing %> <!-- #include file="Inc/Foot.asp" --> </BODY></HTML>