www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_mly.asp
<!--#include file="conn.asp"--> <!--#include file="ad_chk.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href=inc/css.css rel=STYLESHEET type=text/css> <body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5"> <% if Request.Cookies("venshop")("admin_class")<>0 and Request.Cookies("venshop")("admin_class")<>1 then response.write "你没有这个权限!" response.end end if %> <% if request("action")="del" then id=request("id") conn.execute "delete from venshop_comment where id="&id&"" call deleok(delet,"ad_mly.asp") end if%> <table border="0" cellpadding="5" cellspacing="0" class="st"> <tr><td align="center" class="sa">ID</td> <td align="center" class="sa">内容</td> <td align="center" class="sa">Email</td> <td align="center" class="sa">商品</td> <td align="center" class="sa">回复</td> <td align="center" class="sa">添加回复</td> <td align="center" class="sa"></td></tr> <%Set rs= Server.CreateObject("ADODB.Recordset") sql="SELECT * from venshop_comment ORDER BY id DESC" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align=center>暂且没有产品留言</p>" else page=request("page") if page="" then page=1 if not(isnumeric(page)) then page=1 if page<1 then page=1 page=int(page) rs.pagesize=20 totalpage=rs.pagecount if page>rs.pagecount then page=rs.pagecount i=0 do while not rs.eof and (i<rs.pagesize) i=i+1 dateid=rs("dateid")%> <tr><td align="center" bgcolor="#FFFFFF" class="s<%=i mod 2%>"><%=rs("id")%></td> <td bgcolor="#FFFFFF" align="center" class="s<%=i mod 2%>"><%=rs("Comment")%></td> <td align="center" bgcolor="#FFFFFF" class="s<%=i mod 2%>"><a href="ad_dysend.asp?tmail=<%=rs("mail")%>"><%=rs("Mail")%></a></td> <td align="center" bgcolor="#FFFFFF" class="s<%=i mod 2%>"><% set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from venshop_hw where hw_id="&dateid&"" ,conn,1,1%><a target="_blank" href="views.asp?hw_id=<%=rs2("hw_id")%>"><%=rs2("hw_name")%></a> <%rs2.close set rs2=nothing%></td> <td align="center" bgcolor="#FFFFFF" class="s<%=i mod 2%>"><%=rs("adminfu")%></td> <td align="center" bgcolor="#FFFFFF" class="s<%=i mod 2%>"><a href="ad_fuly.asp?id=<%=rs("id")%>">添加</a></td> <td align="center" bgcolor="#FFFFFF" class="s<%=i mod 2%>"><a href="ad_mly.asp?action=del&id=<%=rs("id")%>" onClick="return confirm('您确定进行删除操作吗?')">删除</a></td></tr> <%rs.movenext loop end if rs.close set rs=nothing %></table> <table border="0" width="100%" cellspacing="0"><tr><td height="30"> 共<font color=red><%=totalpage%></font>页 第<%=page%>页 <%if page-1>0 then%><a href="<%=filename%>?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%> <%if page+1<=totalpage then%><a href="<%=filename%>?page=<%=page+1%>">下一页</a><%else%>下一页 <%end if%> </td></tr></table> <br> <div class="help"> 备注:<br>商品评论是客户针对某一具体商品发布的评论或提问,和网站反馈属于两部分。</div><!--#include file="ad_bottom.asp"-->