📄 admin_batch.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if ChannelID=0 then Cl.ShowErr("参数错误！")
if Not Cl.TrueChannelPurview(1,ChannelID) then
Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim InfoID,Action
Action=Trim(Request("Action"))
Cl.Load_ChannelSetting(ChannelID)
header
%>
<script src="../inc/Js/selectdate.js" type="text/javascript"></script>
<script language="JavaScript" type="text/javascript">
function SelectAll(){
for(var i=0;i<document.form1.ClassID.length;i++){
document.form1.ClassID.options[i].selected=true;}
}
function UnSelectAll(){
for(var i=0;i<document.form1.ClassID.length;i++){
document.form1.ClassID.options[i].selected=false;}
}
</script>
<%
if Action="SaveBatch" then
Server.ScriptTimeOut=9999
OpenConn
Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
Case 1
SaveBatch_1
Case 2
SaveBatch_2
Case 3
SaveBatch_3
Case 4
SaveBatch_4
Case 5
SaveBatch_5
Case Else
Cl.ShowErr("参数错误！")
End Select
Cl.SaveAdminLog
Call Cl.ShowSuc("恭喜您，批量设置成功！请返回 <a href='Admin_Batch.asp?ChannelID="&ChannelID&"'>栏目管理首页</a>")
else
%>
<form name="form1" method="post" action="Admin_Batch.asp" onsubmit="return check()">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong><%=Cl.Channel.selectSingleNode("@channelitemname").text%>批量设置</strong></td>
</tr>
<tr class="tdbg">
<td width="210" valign="top"><input type="radio" name="BatchType" value="1">指定ID：<br />
<input type="text" name="InfoID" value="" size="28"><br />
<input type="radio" name="BatchType" value="2" checked>指定栏目：<br />
<select name="ClassID" size="2" multiple style="height:300px;width:200px;">
<%=ShowClass_Option(ChannelID,0,0,3)%>
</select><br /><input type="button" name="Submit" value="选定所有" onclick="SelectAll()"> <input type="button" name="Submit" value="取消所有" onclick="UnSelectAll()"></td>
<td valign="top">
<%
Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
Case 1
Batch_1
Case 2
Batch_2
Case 3
Batch_3
Case 4
Batch_4
Case 5
Batch_5
Case Else
Cl.ShowErr("参数错误！")
End Select
%>
</td>
</tr>
<tr class="tdbg">
<td height="40" colspan="2" align="center">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveBatch">
<input name="Submit" type="submit" value=" 执行批处理 ">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Class.asp?ChannelID=<%=ChannelID%>'"></td>
</tr>
</table>
</form>
<%
end if
footer
Sub Batch_1()
dim strCusTom
Dim sKeyword,sAuthorName,sCopyFromName
Dim sKeywordV,sAuthorNameV,sCopyFromNameV
strCusTom=Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
sKeyword=Split(strCusTom(0),"$")
sAuthorName=Split(strCusTom(1),"$")
sCopyFromName=Split(strCusTom(2),"$")
sKeywordV=Split(Cl.GotTopic(strCusTom(0),60),"$")
sAuthorNameV=Split(Cl.GotTopic(strCusTom(1),60),"$")
sCopyFromNameV=Split(Cl.GotTopic(strCusTom(2),60),"$")
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MKeyword" value="Yes"></td>
<td width="80" align="right"><strong>关 键 字：</strong></td>
<td colspan="2"><input name="Keyword" type="text" id="Keyword" value="<%=sKeywordV(0)%>" size="65" maxlength="255"><br />
<font color="#808080">关 键 字：</font><font color="#0000FF"><%for i=0 to Ubound(sKeywordV)
Response.write "<a href=""javascript:ToValue('add','Keyword','|"&sKeywordV(i)&"')"">"&sKeyword(i)&"</a>"
if i<Ubound(sKeywordV) then Response.write "/"
next%></font> <font color=#66666>more...</font><br />
<font color="#0000FF">可输入多个关键字，中间用<font color="#FF0000">“|”</font>分开。不能出现""'*?,.()等字符。</font></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MAuthorName" value="Yes"></td>
<td width="80" align="right"><strong>作 者：</strong></td>
<td colspan="2"> 姓名：
<input name="AuthorName" type="text" id="AuthorName" value="<%=sAuthorNameV(0)%>" size="20" maxlength="30">
Email：
<input name="AuthorEmail" type="text" id="AuthorEmail" value="" size="28" maxlength="100"><br />
<font color="#808080">作者选择：</font><font color="#0000FF"><%for i=0 to Ubound(sAuthorNameV)
Response.write "<a href=""javascript:ToValue('','AuthorName','"&sAuthorNameV(i)&"')"">"&sAuthorName(i)&"</a>"
if i<Ubound(sAuthorNameV) then Response.write "/"
next%></font> <font color=#66666>more...</font></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MCopyFrom" value="Yes"></td>
<td width="80" align="right"><strong>来 源：</strong></td>
<td colspan="2">名称：
<input name="CopyFromName" type="text" id="CopyFromName" value="<%=sCopyFromNameV(0)%>" size="20" maxlength="50">
网 址：
<input name="CopyFromUrl" type="text" id="CopyFromUrl" value="" size="28" maxlength="200"><br />
<font color="#808080">转 贴 自：</font><font color="#0000FF"><%for i=0 to Ubound(sCopyFromNameV)
Response.write "<a href=""javascript:ToValue('','CopyFromName','"&sCopyFromNameV(i)&"')"">"&sCopyFromName(i)&"</a>"
if i<Ubound(sCopyFromNameV) then Response.write "/"
next%></font> <font color=#66666>more...</font></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MPaginationType" value="Yes"></td>
<td width="80" align="right"><strong>分页方式：</strong></td>
<td><select name="PaginationType" id="PaginationType">
<option value="0">不分页</option>
<option value="1">自动分页</option>
</select> <strong>每页大约字符数：<input name="MaxCharPerPage" type="text" id="MaxCharPerPage" value="10000" size="8" maxlength="8"></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MInfoGroup" value="Yes"></td>
<td width="80" align="right"><strong>阅读等级：</strong></td>
<td colspan="2">
<input name="InfoGroup" type="hidden" id="InfoGroup" value="5">
<input name="InfoGroupView" type="text" id="InfoGroupView" value="<%=Cl.GetUserGroupName(5)%>" size="65" onclick="SelectUserGroup('InfoGroup');" Readonly></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MInfoPoint" value="Yes">
<br><input type="checkbox" name="MInfoMoney" value="Yes"></td>
<td width="80" align="right"><strong>阅读<%=Cl.Web_Setting(28)%>：</strong>
<br><strong>阅读<%=Cl.Web_Setting(26)%>：</strong></td>
<td colspan="2">
<input name="InfoPoint" type="text" id="InfoPoint" value="0" size="8" maxlength="5" style="text-align: right;"> <%=Cl.Web_Setting(29)%> <font color="#0000FF">如果大于0，则用户阅读此<%=Cl.Channel.selectSingleNode("@channelitemname").text%>时将消耗相应<%=Cl.Web_Setting(28)%>。</font>
<br><input name="InfoMoney" type="text" id="InfoMoney" value="0" size="8" maxlength="5" style="text-align: right;"> <%=Cl.Web_Setting(27)%> <font color="#0000FF">如果大于0，则用户阅读此<%=Cl.Channel.selectSingleNode("@channelitemname").text%>时将消耗相应<%=Cl.Web_Setting(26)%>。</font>
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MBackPoint" value="Yes">
<br /><input type="checkbox" name="MBackMoney" value="Yes"></td>
<td width="80" align="right"><strong>回扣设置：</strong></td>
<td colspan="2">
<%=Cl.Web_Setting(28)%>：<input name="BackPoint" type="text" id="BackPoint" value="0" size="5" maxlength="3" style="text-align: right;"> <%=Cl.Web_Setting(29)%>＋<%=Cl.Web_Setting(28)%>的<input name="BackPointRate" type="text" id="BackPointRate" value="0" size="5" maxlength="2" style="text-align: right;">%<br />
<%=Cl.Web_Setting(26)%>：<input name="BackMoney" type="text" id="BackMoney" value="0" size="5" maxlength="3" style="text-align: right;"> <%=Cl.Web_Setting(27)%>＋<%=Cl.Web_Setting(26)%>的<input name="BackMoneyRate" type="text" id="BackMoneyRate" value="0" size="5" maxlength="2" style="text-align: right;">%<br /><font color="#0000FF">即当用户游览或下载此内容时，给予一定的回扣给添加者！</font>
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MOnTop" value="Yes"><br />
<input type="checkbox" name="MHot" value="Yes"><br />
<input type="checkbox" name="MElite" value="Yes"></td>
<td width="80" align="right"><strong><%=Cl.Channel.selectSingleNode("@channelitemname").text%>性质：</strong></td>
<td colspan="2"><input name="OnTop" type="checkbox" id="OnTop" value="yes">
固顶<%=Cl.Channel.selectSingleNode("@channelitemname").text%><br />
<input name="Hot" type="checkbox" id="Hot" value="yes">
热点<%=Cl.Channel.selectSingleNode("@channelitemname").text%><br />
<input name="Elite" type=checkbox id="Elite" value="yes">
推荐<%=Cl.Channel.selectSingleNode("@channelitemname").text%></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MStars" value="Yes"></td>
<td width="80" align="right"><strong>评分等级：</strong></td>
<td colspan="2">
<select name="Stars" id="Stars">
<option value="5">★★★★★</option>
<option value="4">★★★★</option>
<option value="3" selected>★★★</option>
<option value="2">★★</option>
<option value="1">★</option>
<option value="0">无</option>
</select></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MHits" value="Yes"></td>
<td width="80" align="right"><strong>点击数值：</strong></td>
<td colspan="2"><input name="Hits" type="text" id="Hits" value="0" size="10" maxlength="10"></td>
</tr>
</table>
<%
End Sub
Sub Batch_2()
dim strCusTom
Dim sSoftType,sSoftLanguage,sCopyrightType,sOperatingSystem,sAuthor,sKeyword
Dim sSoftTypeV,sSoftLanguageV,sCopyrightTypeV,sOperatingSystemV,sAuthorV,sKeywordV
strCusTom=Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
sSoftType=Split(strCusTom(0),"$")
sSoftlanguage=Split(strCusTom(1),"$")
sCopyrightType=Split(strCusTom(2),"$")
sOperatingSystem=Split(strCusTom(3),"$")
sAuthor=Split(strCusTom(4),"$")
sKeyword=Split(strCusTom(5),"$")
sSoftTypeV=Split(Cl.GotTopic(strCusTom(0),60),"$")
sSoftLanguageV=Split(Cl.GotTopic(strCusTom(1),60),"$")
sCopyrightTypeV=Split(Cl.GotTopic(strCusTom(2),60),"$")
sOperatingSystemV=Split(Cl.GotTopic(strCusTom(3),60),"$")
sAuthorV=Split(Cl.GotTopic(strCusTom(4),60),"$")
sKeywordV=Split(Cl.GotTopic(strCusTom(5),60),"$")
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MKeyword" value="Yes"></td>
<td width="80" align="right"><strong>关 键 字：</strong></td>
<td colspan="2"><input name="Keyword" type="text" id="Keyword" value="<%=sKeywordV(0)%>" size="65" maxlength="255"><br />
<font color="#808080">关 键 字：</font><font color="#0000FF"><%for i=0 to Ubound(sKeywordV)
Response.write "<a href=""javascript:ToValue('add','Keyword','|"&sKeywordV(i)&"')"">"&sKeyword(i)&"</a>"
if i<Ubound(sKeywordV) then Response.write "/"
next%></font> <font color=#66666>more...</font><br />
<font color="#0000FF">可输入多个关键字，中间用<font color="#FF0000">“|”</font>分开。不能出现""'*?,.()等字符。</font></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MAuthor" value="Yes"></td>
<td width="80" align="right"><strong>开 发 商：</strong></td>
<td colspan="2">开 发 商：
<input name="Author" type="text" id="Author" size="20" maxlength="100" value="<%=sAuthorV(0)%>">
Email：<input name="AuthorEmail" type="text" id="AuthorEmail" size="26" maxlength="100"><br />
<font color="#808080">开 发 商： </font><font color="#0000FF"><%for i=0 to Ubound(sAuthorV)
Response.write "<a href=""javascript:ToValue('','Author','"&sAuthorV(i)&"')"">"&sAuthor(i)&"</a>"
if i<Ubound(sAuthorV) then Response.write "/"
next%></font> <font color=#66666>more...</font>
<br />主 页：<input name="AuthorHomepage" type="text" id="CopyFrom2" value="http://" size="50" maxlength="100"><br />演 示：<input name="DemoUrl" type="text" id="DemoUrl" value="http://" size="50" maxlength="200">
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MSoftSize" value="Yes">
</td>
<td width="80" align="right"><strong><%=Cl.Channel.selectSingleNode("@channelitemname").text%>大小：</strong></td>
<td colspan="2"><strong><input name="SoftSize" type="text" id="SoftSize" size="20" maxlength="18"><input name="SizeUnit" type="radio" id="SizeUnit" value="k" checked>KB <input name="SizeUnit" type="radio" id="SizeUnit" value="m">MB <input name="SizeUnit" type="radio" id="SizeUnit" value="g">GB</strong>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -