📄 admin_comment.asp
字号:
CurrentPath = CurrentPath &" >> 回复评论"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="22"><%=CurrentPath%></td>
</tr>
</table>
<form name="myform" action="Admin_Comment.asp" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>回复评论</strong></td>
</tr>
<tr>
<td width="21%" align="right" class="td_ItemName">评论<%=EL_Channel.ItemName%>：</td>
<td width="79%" class="td_25" style="padding-left:5px;"><strong><%=CommentTitle%></strong></td>
</tr>
<tr>
<td align="right" class="td_ItemName">评论内容：</td>
<td class="td_25"><textarea name="Content" cols="90" rows="10" id="Content"></textarea></td>
</tr>
<tr>
<td align="right" class="td_ItemName"> </td>
<td class="td_50"><input type="submit" name="Submit22" value="发表评论">
<input type="button" name="Submit42" value="返回上页" onClick="history.back()">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveReply">
<input name="InfoID" type="hidden" id="InfoID" value="<%=InfoID%>"></td>
</tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
Sub ModifyComment()
On Error Resume Next
Dim CommentCmd, rsComment, CommentID, i
CommentID = EL_Common.ELRequest("CommentID", 2)
Call EL_Common.InitCommonCmd(CommentCmd, rsComment, "EL_Comment", "*", "ChannelID="& EL_Channel.ChannelID &" AND CommentID="& CommentID)
rsComment.Close()
If CommentCmd(0) <> 1 Then
Set rsComment = Nothing
Set CommentCmd = Nothing
EL_Common.ShowErrorMsg("指定评论不存在")
Exit Sub
End If
rsComment.Open()
CurrentPath = CurrentPath &">> 修改评论"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="22"><%=CurrentPath%></td>
</tr>
</table>
<form name="myform" action="Admin_Comment.asp" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="4" class="top_25"><strong>修改评论</strong></td>
</tr>
<tr>
<td align="right" class="td_ItemName">用户类型：</td>
<td colspan="3" class="td_25"> <%=ArrUserType(rsComment("UserType"))%></td>
</tr>
<tr>
<td width="18%" align="right" class="td_ItemName">姓名：</td>
<td width="29%" class="td_25"><input name="UserName" type="text" id="UserName" value="<%=EL_Common.ServerHTMLEncode(rsComment("UserName"))%>" size="35" readonly="true"></td>
<td width="12%" align="right" class="td_ItemName">QQ号码：</td>
<td width="41%" class="td_25"><input name="QQ" type="text" id="QQ" value="<%=EL_Common.ServerHTMLEncode(rsComment("QQ"))%>" size="35" readonly="true"></td>
</tr>
<tr>
<td align="right" class="td_ItemName">MSN：</td>
<td class="td_25"><input name="MSN" type="text" id="MSN" value="<%=EL_Common.ServerHTMLEncode(rsComment("MSN"))%>" size="35" readonly="true"></td>
<td align="right" class="td_ItemName">电子邮件：</td>
<td class="td_25"><input name="Email" type="text" id="Email" value="<%=EL_Common.ServerHTMLEncode(rsComment("Email"))%>" size="35" readonly="true"></td>
</tr>
<tr>
<td align="right" class="td_ItemName">IP地址：</td>
<td class="td_25"><input name="IPAddress" type="text" id="IPAddress" value="<%=rsComment("IPAddress")%>" size="35" readonly="true"></td>
<td align="right" class="td_ItemName">发表时间：</td>
<td class="td_25"><input name="UpdateTime" type="text" id="UpdateTime" value="<%=rsComment("UpdateTime")%>" size="35" readonly="true"></td>
</tr>
<tr>
<td align="right" class="td_ItemName">打分：</td>
<td colspan="3" class="td_25">
<%
For i = 1 To 5
If i = rsComment("Point") Then
Response.Write "<input name='Point' id='Point' type='radio' class='nomargin' value='"& i &"' checked>"& i &"分 "
Else
Response.Write "<input name='Point' id='Point' type='radio' class='nomargin' value='"& i &"'>"& i &"分 "
End If
Next
%> </td>
</tr>
<tr>
<td align="right" class="td_ItemName">评论内容：</td>
<td colspan="3" class="td_25"><textarea name="Content" cols="90" rows="10" id="Content"><%=EL_Common.ServerHTMLEncode(rsComment("Content"))%></textarea></td>
</tr>
<tr>
<td align="right" class="td_ItemName"> </td>
<td colspan="3" class="td_50"><input type="submit" name="Submit2" value="保存修改">
<input type="button" name="Submit4" value="返回上页" onClick="history.back()">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="CommentID" type="hidden" id="CommentID" value="<%=CommentID%>"></td>
</tr>
</table>
</form>
<%
rsComment.Close()
Set rsComment = Nothing
Set CommentCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManageComment()
On Error Resume Next
Dim CommentCmd, rsComment, RowCount, i, StrFields, StrCondition, SQL
Dim PageCounts, TotalRowCount, TableName, FieldName, PrimaryKey, TempScriptName
Select Case EL_Channel.ChannelModule
Case 1: TableName = "EL_Article" : FieldName = "Title" : PrimaryKey = "ArticleID" : TempScriptName = "Admin_Article.asp"
Case 2: TableName = "EL_Hotel" : FieldName = "HotelName" : PrimaryKey = "HotelID" : TempScriptName = "Admin_Hotel.asp"
Case 3: TableName = "EL_Product" : FieldName = "ProductName" : PrimaryKey = "ProductID" : TempScriptName = "Admin_Product.asp"
Case 5: TableName = "EL_Sight" : FieldName = "SightName" : PrimaryKey = "SightID" : TempScriptName = "Admin_Sight.asp"
Case 6: TableName = "EL_Photo" : FieldName = "PhotoName" : PrimaryKey = "PhotoID" : TempScriptName = "Admin_Photo.asp"
Case 7: TableName = "EL_Shop" : FieldName = "ProductName" : PrimaryKey = "ProductID" : TempScriptName = "Admin_Shop.asp"
Case 8: TableName = "EL_Car" : FieldName = "CarName" : PrimaryKey = "CarID" : TempScriptName = "Admin_Car.asp"
Case Else: EL_Common.ShowErrorMsg("频道参数错误") : Exit Sub
End Select
StrFields = "EL_Comment.*,"& TableName &"."& FieldName &" As InfoTitle"
StrCondition = " EL_Comment.ChannelID="& EL_Channel.ChannelID &" And "& TableName &"."& PrimaryKey &"=EL_Comment.InfoID "
If ClassID <> 0 Then
Dim AllChildID
AllChildID = EL_Common.GetAllChildID(ClassID)
If AllChildID = "" Then
StrCondition = StrCondition &" And EL_Comment.ClassID In("& ClassID &") "
Else
StrCondition = StrCondition &" And EL_Comment.ClassID In("& ClassID &","& AllChildID &") "
End If
End If
If Search_Keywords<>"" And Search_Field<>"" Then
StrCondition = StrCondition &" And EL_Comment."& Search_Field &" Like '%"& Search_Keywords &"%' "
End If
StrCondition = StrCondition &" ORDER BY "& TableName &".UpdateTime DESC, EL_Comment.UpdateTime"
SQL = "SELECT "& StrFields &" FROM EL_Comment,"& TableName &" WHERE "& StrCondition
Set rsComment = Server.CreateObject("ADODB.RECORDSET")
rsComment.Open SQL, Conn, 1, 1
If Search_Keywords<>"" And Search_Field<>"" Then
CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> 搜索评论：<span class=redtext>"& EL_Common.ServerHTMLEncode(Search_Keywords) &"</span>"
Else
CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> 所有评论"
End If
%>
<script language="javascript">
function CheckedAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = true;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = false;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
var frm = getObject("myform");
for (var i=0;i<frm.elements.length;i++){
var e = frm.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
return true
}
}
return false;
}
function Check(frm){
SubmitOnce(frm);
return true;
}
var JURL = "<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>";
function doDelete(){
var frm = getObject("myform");
if(!CheckObject()){
alert("请至少选定1条评论");
return false;
}
frm.action = JURL + "&Action=Delete&DeleteType=3";
if(confirm("确认要删除选定的评论吗？")){
frm.submit();
return;
}
return false;
}
function doClear(){
var frm = getObject("myform");
frm.action = JURL + "&Action=Clear";
if(confirm("确认要删除此频道所有评论吗？")){
frm.submit();
return;
}
return false;
}
</script>
<%=EL_Common.ShowClassList(ClassURL, 0, ClassID)%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="22"><%=CurrentPath%></td>
<td width="150" style="padding-right:5px; text-align:right;" nowrap="nowrap">
<% If ClassID <> 0 Then %>
<a href="Admin_Comment.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Delete&DeleteType=2&ClassID=<%=ClassID%>" style="color:red">删除此<%=EL_Channel.ClassItemName%>下的所有评论</a>
<% End If %>
</td>
</tr>
</table>
<form name="myform" action="" method="post" onSubmit="return Check(this)">
<%
If rsComment.EOF And rsComment.BOF Then
Response.Write "<div style='text-align:center;background:#F0F1F5;border:1px solid #838CA2;'><p>没有任何评论</p></div>"
Else
rsComment.PageSize = PageSizes
PageCounts = rsComment.PageCount
rsComment.AbsolutePage = Currentpage
TotalRowCount = rsComment.RecordCount
Dim TempInfoID, TempIndex, TempInfoTitle
TempInfoID = 0
i = PageSizes
Do While Not rsComment.EOF And i>0
If TempInfoID <> rsComment("InfoID") Then
TempIndex = 1
If i < PageSizes Then Response.Write "</table><br>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='1' class='Border'>"
Response.Write "<tr><td class='top_25' colspan=8>"
Response.Write "<div style='float:left;'>评论"& EL_Channel.ItemName &"：<a href='"& TempScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Show&"& PrimaryKey &"="& rsComment("InfoID") &"' class='white'>"& rsComment("InfoTitle") &"</a></div>"
Response.Write "<div style='text-align:right;padding-right:5px;'><a href='Admin_Comment.asp?ChannelID="& EL_Channel.ChannelID &"&Action=ShowAll&InfoID="& rsComment("InfoID") &"' class='white'>·查看完整评论</a> <a href='Admin_Comment.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&DeleteType=1&InfoID="& rsComment("InfoID") &"' class='white'>·删除此"& EL_Channel.ItemName &"下的所有评论</a></div></td></tr>"
End If
Response.Write "<tr class='td_25' onMouseOut=this.className='td_25' onMouseOver=this.className='MouseOver_25'>"
Response.Write "<td align='center' width=20><input name='CheckObject' type='checkbox' id='CheckObject' value='"& rsComment("CommentID") &"'></td>"
Response.Write "<td align='center' width=30>"& TempIndex &"</td>"
Response.Write "<td style='padding-left:5px; width:50%;'><a href='#' title="""& EL_Common.ServerHTMLEncode(rsComment("Content")) &""">"& (EL_Common.GetTopic(rsComment("Content"), 100)) &"</a></td>"
Response.Write "<td align='center' width=40>"& rsComment("Point") &"分</td>"
Response.Write "<td align='center' width=40>"& ArrUserType(rsComment("UserType")) &"</td>"
Response.Write "<td align='center' width=60><a href=# title=""QQ："& rsComment("QQ") &" MSN："& rsComment("MSN")&" Email："& rsComment("Email") &" IP："& rsComment("IPAddress") &""">"& rsComment("UserName") &"</td>"
Response.Write "<td align='center' width=120>"& rsComment("UpdateTime") &"</td>"
Response.Write "<td align='center' width=120><a href='Admin_Comment.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Reply&InfoID="& rsComment("InfoID") &"'>回复</a> | "
Response.Write "<a href='Admin_Comment.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&CommentID="& rsComment("CommentID") &"'>修改</a> | "
Response.Write "<a href='Admin_Comment.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&CommentID="& rsComment("CommentID") &"'>删除</a></td></tr>"
TempInfoID = rsComment("InfoID")
TempIndex = TempIndex + 1
i = i - 1
rsComment.MoveNext
Loop
Response.Write "</table>"
End If
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
<td width="88%" align="right" nowrap><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "评论", "条")%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="50" align="center"><input type="button" name="Submit" value="删除选定评论" onClick="doDelete()">
<input type="button" name="Submit5" value="删除此频道所有评论" onClick="doClear()"></td>
</tr>
</table>
</form>
<form name="search" method="get" action="<%=EL_CurrentScriptName%>">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="8%" nowrap class="td_50">评论搜索：</td>
<td width="92%" class="td_50">
<select name="Search_Field" id="Search_Field">
<option value="Content">评论内容</option>
<option value="Author">评论作者</option>
</select>
<select name="ClassID" id="ClassID">
<option value="">所有<%=EL_Channel.ClassItemName%></option>
<%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, 0, "")%>
</select>
<input name="Search_Keywords" type="text" id="Search_Keywords" value="关键字">
<input type="submit" name="Submit3" value="搜索">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>"></td>
</tr>
</table>
</form>
<%
rsComment.Close()
Set rsComment = Nothing
EL_Common.ShowScriptError()
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -