guestmanage.asp

网络购物

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<%
if session("admin_name")="" then
    response.redirect "login.asp"
end if
%>

<!--#include file="conn.asp"-->
<link href=../css.css rel=STYLESHEET type=text/css>
<%
	Dim Sql,rs 
	Sql="SELECT guest_id,title,body,name,email,submit_date FROM guest "
	Sql=Sql + " order by submit_date desc,guest_id desc"
	SET rs=conn.execute(Sql)
	If Not rs.bof And Not rs.eof then
	%>
                                                      <div align="center">
                              <center>	
			<table border="0" width="770" style="border-collapse: collapse" cellpadding="5">

				<tr>
					<td width="99%" colspan="5" height="25">　</td>
				</tr>			

				<tr>
					<td width="99%" colspan="5" height="25"><b>
                    <font color="#ED5F19">客户反馈信息管理</font></b></td>
				</tr>			<% 
			DO WHILE NOT RS.EOF
			%>
				<tr>
					<td width="33%">主&nbsp; 题：<b>&nbsp; <%=rs("title")%></b></td>
					<td width="17%">留言人：<%=RS("name")%></td>
					<td width="16%">Email:<%=rs("email")%></td>
					<td width="17%">时&nbsp; 间：<%=rs("submit_date")%></td>
					<td width="16%">
                    <a href="guestdel.asp?guest_id=<%=rs("guest_id")%>">删除</a></td>
				</tr>
				<tr>
					<td valign="top" colspan="5" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px dotted #DBC2B0">内&nbsp; 容:<br><%=rs("body")%></td>
				</tr>
			<%
				RS.MOVENEXT
			LOOP 
			rs.close
			conn.close
			%> </table>
	                          </center>
                            </div>
     <%else%>                       
     还没有反馈信息
	<%end if %>