admin_flash.asp
来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 1,413 行 · 第 1/5 页
ASP
1,413 行
End If
If Trim(Request.Form("classid")) <> "" Then
Newasp.Execute ("update NC_FlashList set ClassID = " & Request.Form("ClassID") & ",isUpdate=1 where flashid in (" & selflashid & ")")
OutHintScript ("批量移动操作成功")
Else
OutHintScript ("不能移动到外部分类！")
End If
End Sub
Private Sub upindate()
Newasp.Execute ("update [NC_FlashList] set addTime = " & NowString & " where flashid in (" & selflashid & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub
Private Sub isCommend()
Newasp.Execute ("update NC_FlashList set isBest=1 where flashid in (" & selflashid & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub
Private Sub noCommend()
Newasp.Execute ("update NC_FlashList set isBest=0 where flashid in (" & selflashid & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub
Private Sub isTop()
Newasp.Execute ("update NC_FlashList set isTop=1 where flashid in (" & selflashid & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub
Private Sub noTop()
Newasp.Execute ("update NC_FlashList set isTop=0 where flashid in (" & selflashid & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub
'----批量审核
Private Sub BatAccept()
Set Rs = Newasp.Execute("SELECT username FROM NC_FlashList WHERE isAccept=0 And flashid in (" & selflashid & ")")
Do While Not Rs.EOF
AddUserPointNum Rs("username"),1
Rs.movenext
Loop
Rs.Close:Set Rs = Nothing
Newasp.Execute ("update NC_FlashList set isAccept=1 where flashid in (" & selflashid & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub
Private Sub NotAccept()
Set Rs = Newasp.Execute("SELECT username FROM NC_FlashList WHERE isAccept>0 And flashid in (" & selflashid & ")")
Do While Not Rs.EOF
AddUserPointNum Rs("username"),0
Rs.movenext
Loop
Rs.Close:Set Rs = Nothing
Newasp.Execute ("update NC_FlashList set isAccept=0 where flashid in (" & selflashid & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub
Private Function AddUserPointNum(username,stype)
On Error Resume Next
Dim rsuser,GroupSetting,userpoint
Set rsuser = Newasp.Execute("SELECT userid,UserGrade,userpoint FROM NC_User WHERE username='"& username &"'")
If Not(rsuser.BOF And rsuser.EOF) Then
GroupSetting = Split(Newasp.UserGroupSetting(rsuser("UserGrade")), "|||")(13)
If CInt(stype) = 1 Then
userpoint = CLng(rsuser("userpoint") + GroupSetting)
Newasp.Execute ("UPDATE NC_User SET userpoint="& userpoint &",experience=experience+2,charm=charm+1 WHERE userid="& rsuser("userid"))
Else
userpoint = CLng(rsuser("userpoint") - GroupSetting)
Newasp.Execute ("UPDATE NC_User SET userpoint="& userpoint &",experience=experience-2,charm=charm-1 WHERE userid="& rsuser("userid"))
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 ⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?