📄 admin_article.asp
字号:
Response.Write ">"
Response.Write RsObj("GroupName")
Response.Write "</option>" & vbCrLf
RsObj.movenext
Loop
Set RsObj = Nothing
Response.Write " </select>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>" & sModuleName & "星级：</b></td>"
Response.Write " <td class=tablerow1 align=center><input type=checkbox name=selstar value='1'></td>"
Response.Write " <td class=tablerow1>"
Response.Write " <select name=star>"
Response.Write " <option value=5>★★★★★</option>"
Response.Write " <option value=4>★★★★</option>"
Response.Write " <option value=3 selected>★★★</option>"
Response.Write " <option value=2>★★</option>"
Response.Write " <option value=1>★</option>"
Response.Write " </select>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>" & sModuleName & "置顶：</b></td>"
Response.Write " <td class=tablerow1 align=center><input type=checkbox name=selTop value='1'></td>"
Response.Write " <td class=tablerow1><input type=radio name=istop value='0' checked> 否 <input type=radio name=istop value='1'> 是</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>" & sModuleName & "推荐：</b></td>"
Response.Write " <td class=tablerow1 align=center><input type=checkbox name=selBest value='1'></td>"
Response.Write " <td class=tablerow1><input type=radio name=isbest value='0' checked> 否 <input type=radio name=isbest value='1'> 是</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>禁止评论：</b></td>"
Response.Write " <td class=tablerow1 align=center><input type=checkbox name=selForbidEssay value='1'></td>"
Response.Write " <td class=tablerow1><input type=radio name=ForbidEssay value='0' checked> 否 <input type=radio name=ForbidEssay value='1'> 是</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 colspan=3><b>说明：</b>若要批量修改某个属性的值，请先选中其左侧的复选框，然后再设定属性值。"
Response.Write " <a href=?action=reset&ChannelID="& ChannelID & " onclick=""return confirm('您确定要重置所有时间吗?')"">重置时间</a></td>"
Response.Write " </tr>"
Response.Write " <tr align=center>"
Response.Write " <td class=tablerow1 colspan=3><input type=""button"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" name=""B1"" class=Button> "
Response.Write " <input type=submit name=submit2 value=""确定设置"" class=Button onclick=""return confirm('您确定执行批量设置吗?')"">"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write "</table>"
End Sub
Private Sub BatchMove()
If Not ChkAdmin("AdminArticle" & ChannelID) Then
Server.Transfer("showerr.asp")
Response.End
End If
Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
Response.Write " <tr>"
Response.Write " <th colspan=3>" & sModuleName & "批量移动</th>"
Response.Write " </tr>"
Response.Write " <form name=myform method=post action=?action=savemove>"
Response.Write " <input type=hidden name=ChannelID value='"& ChannelID &"'>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 colspan=3><input type=radio name=Appointed value='0' checked>"
Response.Write " <b>指定" & sModuleName & "ID：</b> <input type=""text"" name=""ArticleID"" size=80 value='"& Request("selArticleID") &"'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 width=""35%""><input type=radio name=Appointed value='1'> <b>指定" & sModuleName & "分类：</b></td>"
Response.Write " <td class=tablerow1 width=""10%""></td>"
Response.Write " <td class=tablerow1 width=""55%""><b>" & sModuleName & "目标分类：</b><font color=red>（不能指定外部分类）</font></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1>"
Response.Write "<select name='ClassID' size='2' multiple style='height:350px;width:260px;'>"
Dim strSelectClass,re
strSelectClass = Newasp.LoadSelectClass(ChannelID)
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
Re.Pattern="(value=)(.*)("" )"
strSelectClass = Re.Replace(strSelectClass,"")
Re.Pattern="({ClassID=)(.*)(}>)"
strSelectClass = Re.Replace(strSelectClass,"value=""$2"">")
Response.Write strSelectClass
Set Re = Nothing
Response.Write "</select>"
Response.Write "</td>"
Response.Write " <td class=tablerow1 align=center noWrap>移动到→</td>"
Response.Write " <td class=tablerow1>"
Response.Write "<select name='tClassID' size='2' style='height:350px;width:260px;'>"
Response.Write strSelectClass
Response.Write "</select>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr align=center>"
Response.Write " <td class=tablerow1 colspan=3><input type=""button"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" name=""B1"" class=Button> "
Response.Write " <input type=submit name=submit2 value=""批量移动"" class=Button onclick=""return confirm('您确定执行批量移动吗?')"">"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write "</table>"
End Sub
Private Sub SaveMove()
If Trim(Request.Form("tClassID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择目标分类。</li>"
Exit Sub
End If
If Trim(Request.Form("tClassID")) = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>不能移动到外部分类。</li>"
Exit Sub
End If
Set Rs = Newasp.Execute("SELECT child FROM NC_Classify WHERE TurnLink=0 And ChannelID = "& ChannelID &" And ClassID="& CLng(Request.Form("tClassID")))
If Rs.BOF And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>错误的系统参数！不能移动到外部分类。</li>"
Set Rs = Nothing
Exit Sub
Else
If Rs("child") > 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>此分类还有子分类，请选择子分类再移动。</li>"
Set Rs = Nothing
Exit Sub
End If
End If
Set Rs = Nothing
If CInt(Request.Form("Appointed")) = 0 Then
If Trim(Request.Form("ArticleID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择" & sModuleName & "ID。</li>"
Exit Sub
Else
SQL = "UPDATE NC_Article SET ClassID="& CLng(Request.Form("tClassID")) &" WHERE isAccept>0 And ChannelID = "& ChannelID &" And ArticleID in ("& Request("ArticleID") &")"
End If
Else
If Trim(Request.Form("ClassID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择分类。</li>"
Exit Sub
Else
SQL = "UPDATE NC_Article SET ClassID="& CLng(Request.Form("tClassID")) &" WHERE isAccept>0 And ChannelID = "& ChannelID &" And ClassID in ("& Request("ClassID") &")"
End If
End If
Newasp.Execute(SQL)
Succeed("<li>恭喜您！批量移动完成。</li>")
End Sub
Private Sub BatcDelete()
If Not ChkAdmin("AdminArticle" & ChannelID) Then
Server.Transfer("showerr.asp")
Response.End
End If
Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
Response.Write " <tr>"
Response.Write " <th>" & sModuleName & "批量删除</th>"
Response.Write " </tr>"
Response.Write " <form name=myform method=post action=?action=alldel>"
Response.Write " <input type=hidden name=ChannelID value='"& ChannelID &"'>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 colspan=3><input type=radio name=Appointed value='0' checked onClick=""choose1.style.display='';choose2.style.display='none';"">"
Response.Write " <b>指定" & sModuleName & "ID：</b> "
Response.Write "<input type=radio name=Appointed value='1' onClick=""choose2.style.display='';choose1.style.display='none';""> <b>指定" & sModuleName & "分类</b>"
Response.Write "<input type=radio name=Appointed value='2'> <b>删除所有" & sModuleName & "</b>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr id=choose1>"
Response.Write " <td class=tablerow1><b>分类ID：</b><input type=""text"" name=""ArticleID"" size=80 value='"& Request("selArticleID") &"'></td>"
Response.Write " </tr>"
Response.Write " <tr id=choose2 style=""display:none"">"
Response.Write " <td class=tablerow1>"
Response.Write "<select name='ClassID' size='2' multiple style='height:350px;width:260px;'>"
Dim strSelectClass,re
strSelectClass = Newasp.LoadSelectClass(ChannelID)
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
Re.Pattern="(value=)(.*)("" )"
strSelectClass = Re.Replace(strSelectClass,"")
Re.Pattern="({ClassID=)(.*)(}>)"
strSelectClass = Re.Replace(strSelectClass,"value=""$2"">")
Response.Write strSelectClass
Set Re = Nothing
Response.Write "</select>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr align=center>"
Response.Write " <td class=tablerow1><input type=""button"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" name=""B1"" class=Button> "
Response.Write " <input type=submit name=submit2 value=""批量删除"" class=Button onclick=""return confirm('您确定执行批量删除操作吗?')"">"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write "</table>"
End Sub
Private Sub AllDelArticle()
On Error Resume Next
If CInt(Request.Form("Appointed")) = 1 Then
If Trim(Request.Form("ClassID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择分类。</li>"
Exit Sub
End If
Conn.Execute("DELETE NC_Comment FROM NC_Article A INNER JOIN NC_Comment C ON C.PostID=A.ArticleID WHERE A.ChannelID = "& ChannelID &" And A.ClassID IN (" & Request("ClassID") & ")")
Conn.Execute("DELETE FROM NC_Article WHERE ChannelID = "& ChannelID &" And ClassID IN (" & Request("ClassID") & ")")
ElseIf CInt(Request.Form("Appointed")) = 2 Then
Conn.Execute ("DELETE FROM NC_Article WHERE ChannelID = "& ChannelID)
Conn.Execute ("DELETE FROM NC_Comment WHERE ChannelID = "& ChannelID)
Else
If Trim(Request.Form("ArticleID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择" & sModuleName & "ID。</li>"
Exit Sub
End If
Conn.Execute ("DELETE FROM NC_Article WHERE ChannelID = "& ChannelID &" And ArticleID IN (" & Request("ArticleID") & ")")
Conn.Execute ("DELETE FROM NC_Comment WHERE ChannelID = "& ChannelID &" And PostID IN (" & Request("ArticleID") & ")")
End If
Call RemoveCache
Succeed("<li>批量删除成功！</li>")
End Sub
Private Sub SaveSetting()
If Founderr = True Then Exit Sub
Dim strTempValue
strTempValue = ""
If Trim(Request.Form("selRelated")) <> "" Then strTempValue = strTempValue & "Related='"& Newasp.ChkFormStr(Request.Form("Related")) &"',"
If Trim(Request.Form("selAuthor")) <> "" Then strTempValue = strTempValue & "Author='"& Newasp.ChkFormStr(Request.Form("Author")) &"',"
If Trim(Request.Form("selComeFrom")) <> "" Then strTempValue = strTempValue & "ComeFrom='"& Newasp.ChkFormStr(Request.Form("ComeFrom")) &"',"
If Trim(Request.Form("selPointNum")) <> "" Then strTempValue = strTempValue & "PointNum="& CLng(Request.Form("PointNum")) &","
If Trim(Request.Form("selAllHits")) <> "" Then strTempValue = strTempValue & "AllHits="& CLng(Request.Form("AllHits")) &","
If Trim(Request.Form("selUserGroup")) <> "" Then strTempValue = strTempValue & "UserGroup="& CInt(Request.Form("UserGroup")) &","
If Trim(Request.Form("selstar")) <> "" Then strTempValue = strTempValue & "star="& CInt(Request.Form("star")) &","
If Trim(Request.Form("selTop")) <> "" Then strTempValue = strTempValue & "istop="& CInt(Request.Form("istop")) &","
If Trim(Request.Form("selBest")) <> "" Then strTempValue = strTempValue & "isbest="& CInt(Request.Form("isbest")) &","
If Trim(Request.Form("selForbidEssay")) <> "" Then strTempValue = strTempValue & "ForbidEssay="& CInt(Request.Form("ForbidEssay")) &","
If Trim(strTempValue) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择要设置的参数。</li>"
Exit Sub
Else
strTempValue = Replace(Left(strTempValue,Len(strTempValue)-1), " ", "")
End If
If CInt(Request.Form("choose")) = 0 Then
If Trim(Request.Form("ArticleID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择" & sModuleName & "ID。</li>"
Exit Sub
Else
SQL = "UPDATE NC_Article SET "& strTempValue &" WHERE isAccept>0 And ChannelID = "& ChannelID &" And ArticleID in ("& Request("ArticleID") &")"
End If
Else
If Trim(Request.Form("ClassID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择分类。</li>"
Exit Sub
ElseIf Trim(Request.Form("ClassID")) = "-1" Then
SQL = "UPDATE NC_Article SET "& strTempValue &" WHERE isAccept>0 And ChannelID = "& ChannelID
Else
SQL = "UPDATE NC_Article SET "& strTempValue &" WHERE isAccept>0 And ChannelID = "& ChannelID &" And ClassID in ("& Request("ClassID") &")"
End If
End If
Newasp.Execute(SQL)
Succeed("<li>恭喜您！批量设置完成。</li>")
End Sub
Private Sub ResetDateTime()
Server.ScriptTimeOut = 9999
Response.Write "<br><table width='400' align=center border=0 cellspacing=1 cellpadding=1>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td style=""border: 1px #384780 solid ;background-color: #FFFFFF;"">" & vbCrLf
Response.Write "<table width=0 id=table2 name=table2 border=0 cellspacing=0 cellpadding=0>" & vbCrLf
Response.Write "<tr height=12><td bgcolor=#36D91A>" & vbCrLf
Response.Write "</td></tr></table></td></tr><tr> " & vbCrLf
Response.Write "<td align=center⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -