📄 admin_flash.asp
字号:
End If
End If
Set rsuser = Nothing
End Function
'--批量操作开始
Private Sub BatchSetting()
If Not ChkAdmin("AdminFlash" & ChannelID) Then
Server.Transfer("showerr.asp")
Response.End
End If
Dim Channel_Setting
Channel_Setting = Split(Newasp.Channel_Setting, "|||")
Response.Write "<script src=""include/FlashJuge.Js"" type=""text/javascript""></script>" & vbNewLine
Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
Response.Write " <tr>"
Response.Write " <th colspan=4>" & sModuleName & "批量设置</th>"
Response.Write " </tr>"
Response.Write " <form name=myform method=post action=?action=saveset>"
Response.Write " <input type=hidden name=ChannelID value='"& ChannelID &"'>"
Response.Write " <tr>"
Response.Write " <td width=""20%"" rowspan=""18"" class=tablerow2 valign=""top"" id=choose2 style=""display:none""><b>请选择" & sModuleName & "分类</b><br>"
Response.Write "<select name=""ClassID"" size='2' multiple style='height:420px;width:180px;'>"
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 "<option value=""-1"">指定所有分类</option>"
Response.Write "</select>"
Response.Write "</td>"
Response.Write " <td class=tablerow1 colspan=2 align=right><b>设置选择：</b></td>"
Response.Write " <td class=tablerow1>"
Response.Write " <input type=radio name=choose value='0' checked onClick=""choose1.style.display='';choose2.style.display='none';""> 按" & sModuleName & "ID "
Response.Write " <input type=radio name=choose value='1' onClick=""choose2.style.display='';choose1.style.display='none';""> 按" & sModuleName & "分类</td>"
Response.Write " </tr>"
Response.Write " <tr id=choose1>"
Response.Write " <td class=tablerow1 colspan=2 align=right><b>" & sModuleName & "ID：</b>多个ID请用“,”分开</td>"
Response.Write " <td class=tablerow1><input type=""text"" name=""flashid"" size=70 value='"& Request("selflashid") &"'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 width=""15%"" align=right><b>相关" & sModuleName & "：</b></td>"
Response.Write " <td class=tablerow1 width=""5%"" align=center><input type=checkbox name=selRelated value='1'></td>"
Response.Write " <td class=tablerow1 width=""60%""><input name=Related type=text size=60></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=selComeFrom value='1'></td>"
Response.Write " <td class=tablerow1 ><input name=ComeFrom type=text size=35>"
Response.Write " <select name=font1 onChange=""ComeFrom.value=this.value;"">"
Response.Write " <option selected value=''>选择来源</option>"
Response.Write " <option value='本站原创'>本站原创</option>"
Response.Write " <option value='本站整理'>本站整理</option>"
Response.Write " <option value='不详'>不详</option>"
Response.Write " <option value='转载'>转载</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=selAuthor value='1'></td>"
Response.Write " <td class=tablerow1><input name=Author type=text size=20>"
Response.Write " <select name=font2 onChange=""Author.value=this.value;"">"
Response.Write " <option selected value=''>选择作者</option>"
Response.Write " <option value='佚名'>佚名</option>"
Response.Write " <option value='本站'>本站</option>"
Response.Write " <option value='不详'>不详</option>"
Response.Write " <option value='未知'>未知</option>"
Response.Write " </select>"
Response.Write "</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=selPointNum value='1'></td>"
Response.Write " <td class=tablerow1><input name=PointNum type=text size=10 value=0></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=selAllHits value='1'></td>"
Response.Write " <td class=tablerow1><input name=AllHits type=text size=10 value=0></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=selUserGroup value='1'></td>"
Response.Write " <td class=tablerow1>"
Response.Write " <select name=UserGroup size='1'>"
Set RsObj = Newasp.Execute("Select GroupName,Grades From NC_UserGroup order by Groupid")
Do While Not RsObj.EOF
Response.Write " <option value=""" & RsObj("Grades") & """"
If RsObj("Grades") = 0 Then Response.Write " selected"
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 align=right><b>专题设置：</b></td>"
Response.Write " <td class=tablerow1 align=center><input type=checkbox name=selSpecial value='1'></td>"
Response.Write " <td class=tablerow1>"
Response.Write "<select name=""SpecialID"" id=""SpecialID"">" & vbNewLine
Response.Write "<option value=""0"">不指定" & sModuleName & "专题</option>" & vbNewLine
Set RsObj = Newasp.Execute("SELECT SpecialID,SpecialName FROM NC_Special WHERE ChannelID="& ChannelID &" And ChangeLink=0 ORDER BY orders")
Do While Not RsObj.EOF
Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("SpecialID") & """>"
Response.Write RsObj("SpecialName")
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 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("AdminFlash" & 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=""flashid"" size=80 value='"& Request("selflashid") &"'></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("flashid")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择" & sModuleName & "ID。</li>"
Exit Sub
Else
SQL = "UPDATE NC_FlashList SET ClassID="& CLng(Request.Form("tClassID")) &" WHERE isAccept>0 And ChannelID = "& ChannelID &" And flashid in ("& Request("flashid") &")"
End If
Else
If Trim(Request.Form("ClassID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请选择分类。</li>"
Exit Sub
Else
SQL = "UPDATE NC_FlashList 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("AdminFlash" & 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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -