ad_guestm.asp

来自「商品订单管理：商品分类管理 添加与修改商品 管理订单 投诉订单 反馈信息 商品留」· ASP 代码 · 共 43 行

<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
    response.redirect "ad_login.asp"
end if
%>
<link href=img/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" style="border-collapse: collapse" cellpadding="5" bgcolor="#F5EFE7">
<tr>
					<td width="99%" colspan="5" height="25"><b>
                    <font color="#ED5F19">Feedback</font></b></td>
				</tr>			<% 
			DO WHILE NOT RS.EOF
			%>
				<tr>
					<td width="33%">Subject:<b>&nbsp; <%=rs("title")%></b></td>
					<td width="17%">Name:<%=RS("name")%></td>
					<td width="16%">Email:<%=rs("email")%></td>
					<td width="17%">Date:<%=rs("submit_date")%></td>
					<td width="16%">
                    <a href="ad_guestdel.asp?guest_id=<%=rs("guest_id")%>">Delete</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">Content:<br><%=rs("body")%></td>
				</tr>
			<%
				RS.MOVENEXT
			LOOP 
			rs.close
			conn.close
			%> </table>
	                          </center>
                            </div><%else%>No Date!
	<%end if %>