ad_mly.asp

凡人网络购物系统 v8.0 中文版

<!--#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>

<%
if request("action")="del" then
id=request("id")
conn.execute "delete from venshop_comment where id="&id&""
response.Redirect "ad_mly.asp"
response.End
end if%>
<table border="0" cellpadding="5" cellspacing="1" style="border-collapse: collapse" bgcolor="#C8C8C8">
<tr><td bgcolor="#F0F0F0" align="center" width="50">ID</td>
<td bgcolor="#F0F0F0" align="center" width="80">内容</td>
<td align="center" bgcolor="#F0F0F0" width="80">Email</td>
<td align="center" bgcolor="#F0F0F0" width="80">商品</td>
<td align="center" bgcolor="#F0F0F0" width="80">回复</td>
<td align="center" bgcolor="#F0F0F0" width="50">添加回复</td>
<td align="center" bgcolor="#F0F0F0" width="50"></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" width="50"><%=rs("id")%></td><td bgcolor="#FFFFFF" align="center" width="80"><%=rs("Comment")%></td>
<td align="center" bgcolor="#FFFFFF" width="80"><a href="ad_dysend.asp?tmail=<%=rs("mail")%>"><%=rs("Mail")%></a></td>
<td align="center" bgcolor="#FFFFFF" width="80"><% 
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" width="80"><%=rs("adminfu")%></td>
<td align="center" bgcolor="#FFFFFF" width="50"><a href="ad_fuly.asp?id=<%=rs("id")%>">添加</a></td>
<td align="center" bgcolor="#FFFFFF" width="50"><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
conn.close
set conn=nothing%></table>
<table border="0" width="100%" cellspacing="0"><tr><td height="30">
共<font color=red><%=totalpage%></font>页&nbsp;&nbsp;第<%=page%>页  
<%if page-1>0 then%><a href="<%=filename%>?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%>&nbsp;&nbsp;
<%if page+1<=totalpage then%><a href="<%=filename%>?page=<%=page+1%>">下一页</a><%else%>下一页 <%end if%>
</td></tr></table>
<br>
<div class="help">
备注：<br>商品评论是客户针对某一具体商品发布的评论或提问，和网站反馈属于两部分。</div><table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:[phone]&nbsp; QQ:57152557/5404818 Email/Msn:</font><a href="mailto:[e-mail]"><font color="#FF0000">[e-mail]</font></a></td>
</tr></table>