📄 admin_batch.asp
字号:
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MPassword" value="Yes">
</td>
<td width="80" align="right"><strong>解压密码：</strong></td>
<td colspan="2"><input name="SoftPassword" type="text" id="SoftPassword" size="38" maxlength="100">
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MOnTop" 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="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="DayHits" type="text" id="DayHits" value="0" size="10" maxlength="10">
本周：
<input name="WeekHits" type="text" id="WeekHits" value="0" size="10" maxlength="10"><br />本月：
<input name="MonthHits" type="text" id="MonthHits" value="0" size="10" maxlength="10">
总计：
<input name="Hits" type="text" id="Hits" value="0" size="10" maxlength="10"></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="MDownLoadUrl" value="Yes"></td>
<td width="80" align="right"><strong>下载地址：</strong></td>
<td colspan="2">字符串：<input name="CharString" type="text" id="CharString" size="55" maxlength="200">
<br />替换为：<input name="CharStringR" type="text" id="CharStringR" size="55" maxlength="200">
</td>
</tr>
</table>
<%
End Sub
Sub Batch_3()
dim strCusTom
Dim sKeyword,sAuthor,sKeywordV,sAuthorV
strCusTom=Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
sKeyword=Split(strCusTom(0),"$")
sAuthor=Split(strCusTom(1),"$")
sKeywordV=Split(Cl.GotTopic(strCusTom(0),60),"$")
sAuthorV=Split(Cl.GotTopic(strCusTom(1),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="<%=sAuthorV(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(sAuthor)
Response.write "<a href=""javascript:ToValue('','AuthorName','"&sAuthorV(i)&"')"">"&sAuthor(i)&"</a>"
if i<Ubound(sAuthor) then Response.write "/"
next%></font> <font color=#66666>more...</font></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="MElite" value="Yes"><br />
<input type="checkbox" name="MIsDownLoad" 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="Elite" type=checkbox id="Elite" value="yes">
推荐<%=Cl.Channel.selectSingleNode("@channelitemname").text%><br />
<input name="IsDownLoad" type=checkbox id="IsDownLoad" value="yes">
允许下载
</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="DayHits" type="text" id="DayHits" value="0" size="10" maxlength="10">
本周：
<input name="WeekHits" type="text" id="WeekHits" value="0" size="10" maxlength="10"><br />本月：
<input name="MonthHits" type="text" id="MonthHits" value="0" size="10" maxlength="10">
总计：
<input name="Hits" type="text" id="Hits" value="0" size="10" maxlength="10"></td>
</tr>
</table>
<%
End Sub
Sub Batch_4()
dim rsCusTom,strCusTom
Dim sKeyword,sDirector,sActName,sMovieFormat,sMovieLong,sMovieCorner,sMovieLanguage
Dim sKeywordV,sDirectorV,sActNameV,sMovieFormatV,sMovieLongV,sMovieCornerV,sMovieLanguageV
strCusTom=Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
sKeyword=Split(strCusTom(0),"$")
sDirector=Split(strCusTom(1),"$")
sActName=Split(strCusTom(2),"$")
sMovieFormat=Split(strCusTom(3),"$")
sMovieLong=Split(strCusTom(4),"$")
sMovieCorner=Split(strCusTom(5),"$")
sMovielanguage=Split(strCusTom(6),"$")
sKeywordV=Split(Cl.GotTopic(strCusTom(0),60),"$")
sDirectorV=Split(Cl.GotTopic(strCusTom(1),60),"$")
sActNameV=Split(Cl.GotTopic(strCusTom(2),60),"$")
sMovieFormatV=Split(Cl.GotTopic(strCusTom(3),20),"$")
sMovieLongV=Split(Cl.GotTopic(strCusTom(4),30),"$")
sMovieCornerV=Split(Cl.GotTopic(strCusTom(5),20),"$")
sMovieLanguageV=Split(Cl.GotTopic(strCusTom(6),20),"$")
%>
<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="MMovieCorner" value="Yes"><br /><input type="checkbox" name="MMovieLanguage" value="Yes"></td>
<td width="80" align="right"><strong>地 区：<br />语 言：</strong></td>
<td colspan="2"><input name="MovieCorner" type="text" id="MovieCorner" size="28" maxlength="20" Value="<%=sMovieCornerV(0)%>"> <font color="#808080">选择：</font><font color="#0000FF"><%for i=0 to Ubound(sMovieCornerV)
Response.write "<a href=""javascript:ToValue('','MovieCorner','"&sMovieCornerV(i)&"')"">"&sMovieCorner(i)&"</a>"
if i<Ubound(sMovieCornerV) then Response.write "/"
next%></font> <font color=#66666>more...</font>
<br /><input name="MovieLanguage" type="text" id="MovieLanguage" size="28" maxlength="20" Value="<%=sMovieLanguageV(0)%>"> <font color="#808080">选择：</font><font color="#0000FF"><%for i=0 to Ubound(sMovieLanguageV)
Response.write "<a href=""javascript:ToValue('','MovieLanguage','"&sMovieLanguageV(i)&"')"">"&sMovieLanguage(i)&"</a>"
if i<Ubound(sMovieLanguageV) then Response.write "/"
next%></font> <font color=#66666>more...</font></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MIsOnline" value="Yes"><br />
<input type="checkbox" name="MIsDownLoad" value="Yes"><br />
<input type="checkbox" name="MOnTop" 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="IsOnline" type="checkbox" id="IsOnline" value="yes" checked> 在线观看<br />
<input name="IsDownLoad" type="checkbox" id="IsDownLoad" value="yes"> 提供下载<br />
<input name="OnTop" type="checkbox" id="OnTop" 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -