📄 feedbackmember.asp
字号:
<!--#include file="conn.asp" --><HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>会员中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Content-Language content=zh-CN>
<META content=all name=robots>
<META content=LJCMS name=Copyright>
<META
content=
name=description>
<META
content=""
name=keywords><LINK id="skin"
href="../images/css.css"
type=text/css rel=stylesheet><!--#include file="../inc/md5.asp"-->
<%
UserName=trim(request("UserName"))
if session("UserName")="" then
response.redirect "UserServer.asp"
end if
%>
<SCRIPT language=javascript>
function opencat(cat,img){
if(cat.style.display=="none"){
cat.style.display="";
img.src="img/class2.gif";
} else {
cat.style.display="none";
img.src="img/class1.gif";
}
}
</Script>
<SCRIPT language=JavaScript
src="../images/Prototype.js"></SCRIPT>
<script type="text/javascript" src="../images/setCss.js"></script>
<META content="MSHTML 6.00.6000.16441" name=GENERATOR></HEAD>
<BODY><!-- 顶部开始 -->
<DIV id=BigTop>
<DIV id=TopLeft></DIV>
<DIV id=TopCenter>
<DIV id=Logo><IMG height=84
src="../images/Logo.gif"
width=238 border=0> </DIV>
<DIV id=BigMenu>
<UL class=AllUl>
<LI class=MenuLi1>换皮肤：<a href="" onClick="setCss('../images/css.css'); return false; " ><span class="blue">水晶蓝</span></a> <a href="" onClick="setCss('../images/css1.css'); return false; "><span class="pink">浪漫粉</span></a> </li><SPAN class=S_Spanlink>⊙<A href="<%=EnterpriseMail%>" > 企业邮局 </A>⊙<A onClick="window.external.addFavorite('<%=SiteUrl%>','<%=SiteName%>');return false;" target="mainFrame" href="#"> 加入收藏 </A>⊙<A onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=SiteUrl%>');" href="#"> 设为首页 </A> <a href="Contact.asp"></a> ⊙ <a id="based">繁体中文</a>
<Script Language=Javascript Src="../Inc/southidcj2f.Js"></Script> ⊙ <a href="../enHtml/index.html">English</a></LI>
<form name="Search_form" id="Search_form" class="AllForm" action="search.asp" target="_blank" method="get">
<li class="MenuLi1"><span class="S_Span"><input type="text" name="KeyWords" id="KeyWords" class="Input" style="width:200px;" /></span><span class="S_SeType"><input type="hidden" name="SeTypeTxt" id="SeTypeTxt" value="" /><input type="button" name="Setype" id="Setype" value="搜索类型" class="S_Typebutton" onClick="Dis_HiddenDiv();" /></span><span class="S_ImgSpan"><img src="../images/ssBount.jpg" width="57" height="20" border="0" align="absbottom" onClick="Fun_Se_Form();" /></span></li>
</form></LI>
<LI class=MenuLi2><div class="menu"><ul>
<!--#include file="inc/menu.asp" -->
</ul></div></LI>
</UL></DIV></DIV>
<DIV id=TopRight></DIV></DIV><!-- 顶部结束 --><!-- 主体部分开始 -->
<DIV id=BodyDiv><!-- 主体左边部分 -->
<DIV id=BodyLeft><!-- 用户登陆 -->
<DIV class=BigLoginDiv>
<DIV class=Login_Type_Div><SPAN class=Lo_Web_User_1 id=Lo_Web_User
></SPAN></DIV>
<DIV><iframe name="login_frame1" src="../login.asp" style=" width:100%; height:100px" frameborder="0"></iframe></DIV>
</DIV><!-- 用户登陆结束 --><!-- 快速通道 -->
<DIV class="DivBorder Fs_Kstd">
<DIV class=Fs_Kstd_Top><SPAN class=Fs_Text>会员中心>></SPAN></DIV>
<DIV class=Fs_Kstd_Bottom>
<UL class=AllUl>
<li class=Fs_KstdLi>·<a href=UserEdit.asp target=_blank>修改会员资料</b></a></li><li class=Fs_KstdLi>·<a href=UserEditPwd.asp target=_blank>修改会员密码</b></a></li><li class=Fs_KstdLi>·<a href=UserOrder.asp target=_blank>产品询价管理</b></a></li><li class=Fs_KstdLi>·<a href=FeedbackMember.asp target=_blank>查看我的留言</b></a></li><li class=Fs_KstdLi>·<a href=UserLogout.asp?Action=Ch target=_blank>退出会员中心</b></a></li>
</UL></DIV><DIV class=Fs_Kstd_Bo><SPAN class=Fs_Dot></SPAN><SPAN class=Fs_Textt></SPAN></DIV></DIV><!-- 快速通道结束 --><!-- 产品中心 -->
<!-- 产品中心结束 -->
<!-- 代理中心 -->
<!-- 代理中心结束 -->
<!-- 解决方案 -->
<!-- 解决方案结束 -->
<!-- 合作联盟 -->
<!-- 合作联盟结束 -->
</DIV>
<!-- 主体左边部分结束 --><!-- 主体中间部分 -->
<!-- 产品介绍结束 --><!-- 购买流程 -->
<DIV class="DivBorder OrderDiv1">
<DIV class=News_Top1><SPAN class=News_Dot><IMG height=9
src="../images/Ddot.jpg"
width=9 border=0></SPAN><SPAN class=News_Text1>会员中心</SPAN></DIV>
<DIV class=Fs_All_Bottom1><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<TR>
<TD> <table width="100%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="29%" height="18" bgcolor="#eeeeee"> 会员中心
>> 留言专区</td>
<td width="71%" bgcolor="#eeeeee"> </td>
</tr>
<tr>
<td height="1" colspan="2" bgcolor="#999999"></td>
</tr>
</table>
<%
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
'取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示
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
response.write "暂时没有您的留言记录"
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="#DFDFDF">
<td width="17%" height="22" align="right" bgcolor="#DFDFDF" >
主 题： </td>
<td colspan="5" bgcolor="#DFDFDF"> <%if rs("username")="管理员"then%>
[管理员公告]
<%end if%>
<%=rs("title")%></a></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" ><%=rs("Content")%>
</td>
</tr>
<tr>
<td height="4"></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>
<DIV class=Fs_C_Center></DIV>
</DIV></DIV><!-- 购买流程结束 --><!-- 客户案例 -->
<!-- 客户案例结束 -->
</DIV>
<!-- 主体中间部分结束 --><!-- 右边部分开始 -->
<!-- 右边部分结束 -->
</DIV></div>
<!-- 主体部分结束 --><!-- 版权部分开始 -->
<!--#include file="inc/foot.asp" --><!-- 版权部分结束 -->
<SCRIPT language=javascript
src="../images/js.js"
type=text/javascript></SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -