productpinglun.asp
来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 97 行
ASP
97 行
<!--#include file="conn.asp"-->
<!--#include file="checkAdmin.asp"-->
<!--#include file="../inc/check_inc.asp"-->
<!--#include file="../inc/page_inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css/css.css" rel="stylesheet" type="text/css" />
<title>商品评论管理</title>
</head>
<body>
<!--#include file="inc/ProductPinglun_inc.asp"-->
<table width="97%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="24" class="listtitle">
<select onChange="window.open(options[selectedIndex].value,'_self')">
<option value="ProductPinglun.asp?lx=0" <%if lx = 0 then%>selected<%end if%>>-查看全部评论-</option>
<option value="ProductPinglun.asp?lx=1" <%if lx = 1 then%>selected<%end if%>>-已回复评论-</option>
<option value="ProductPinglun.asp?lx=2" <%if lx = 2 then%>selected<%end if%>>-未回复评论-</option>
</select> </td>
</tr>
</table>
<table width="97%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
<tr>
<td height="24" align="center" class="listtop">商品名称</td>
<td align="center" class="listtop">评论人</td>
<td align="center" class="listtop">评论内容</td>
<td align="center" class="listtop">添加时间</td>
<td align="center" class="listtop">操作</td>
</tr>
<%
if PinglunNum <> -1 then
i = PinglunNum + 1
if Cint(Page*PageNum-1)<Cint(i-1) then
PageEnd = Page*PageNum-1
else
PageEnd = i-1
end if
for j = (Page-1)*PageNum to PageEnd
%>
<tr onMouseOver="this.style.backgroundColor='#FBF9F4';" onMouseOut="this.style.backgroundColor='#FFFFFF'">
<td height="24" class="listitem" style="padding:0 10px 0 10px;"><a href="../ProductDetail.asp?ProID=<%=Pinglun(4,j)%>" target="_blank"><%=Pinglun(1,j)%></a></td>
<td align="center" class="listitem"><%=Pinglun(2,j)%></td>
<td align="center" class="listitem"><%=left(Pinglun(5,j),40)%></td>
<td align="center" class="listitem"><%=Pinglun(3,j)%></td>
<td align="center" class="listitem"><A href="ProductPinglun.asp?lx=<%=lx%>&Action=Restore&ID=<%=Pinglun(0,j)%>&ProductID=<%=Pinglun(4,j)%>&MsgTo=<%=Pinglun(2,j)%>">回复</A> <a href="ProductPinglun.asp?Action=del&ID=<%=Pinglun(0,j)%>&lx=<%=lx%>" onClick="return confirm('您确认要删除该新闻吗？');">删除</a></td>
</tr>
<%
next
end if
%>
</table>
<%Call PageTable()%>
<%
if Action = "Restore" then
%>
<form name="myform" method="post" action="productPinglun.asp?Action=save&ID=<%=ID%>&ProductID=<%=ProductID%>&MsgTo=<%=MsgTo%>&lx=<%=lx%>">
<table width="97%" border="0" cellpadding="0" cellspacing="0" style="clear:both;">
<tr>
<td><textarea name="MsgContent" class="input_text" style="width:100%;height:100px;"></textarea></td>
</tr>
<tr>
<td height="30" valign="bottom"><input name="submit" type="submit" class="Button" value="确认回复" onClick="return check()" /></td>
</tr>
</table>
</form>
<script language="javascript">
function check()
{
if (document.all.MsgContent.value=="")
{
alert('请输入您要回复的内容');
return false;
}
return true;
}
</script>
<%
end if
%>
<!--#include file="inc/closeconn_inc.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?